Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Conditional logic problem
Message
From
07/08/2007 17:09:58
 
 
To
07/08/2007 16:10:36
Jay Johengen
Altamahaw-Ossipee, North Carolina, United States
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Environment versions
Visual FoxPro:
VFP 8 SP1
Miscellaneous
Thread ID:
01246593
Message ID:
01246620
Views:
26
>>>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
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform