Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Conditional logic problem
Message
De
07/08/2007 17:09:58
 
 
À
07/08/2007 16:10:36
Jay Johengen
Altamahaw-Ossipee, Caroline du Nord, États-Unis
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Versions des environnements
Visual FoxPro:
VFP 8 SP1
Divers
Thread ID:
01246593
Message ID:
01246620
Vues:
27
>>>Just think of a big bunch of text with "MSH" and "EVN" imbedded at the beginning of lines. MSH means the first line of a message and a new record is appended. EVN (and any other following headers) mean that information needs to be populated into the new record. I do not have the luxary of putting triggers on this table, so it needs to be done in the code. When a message has finished I need to be able to say, "Cool, it finished. Let's send something back telling the sender it went well." Then onto the next message in the big bunch of text.
>>
Does something like this work for you??????????
llFirstRecord = .T.
FOR EACH lineofText IN oText
  DO CASE 
     CASE LEFT(lineofText,3) = "MSH" AND llFirstRecord
        llFirstRecord = .F.
     CASE LEFT(lineofText,3) = "MSH"  
        SendCompletionMessage
     OTHERWISE
        && Do Nothing - must be EVN, etc. record
  ENDCASE

  DO CASE
    CASE "MSH"
    CASE "EVN"
    CASE "ETC"
  ENDCASE
ENDFOR
SendCompletionMessage  && For Last set of records
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform