I haven't used 8.5 in a while, so the old name might be length().  I am using XI and it recognizes len().

OK, so I think I've hit on a way of getting my memo data out by splitting it into four smaller sections, no more than 255 characters.  Now I'm trying to write the formula to put it all together. 

Based on the suggestion above in the thread (thanks again), I think I have the logic correctly set out, but am encountering a few syntax errors that I can't figure out.  When I solve one, another rises to take it's place, so I might be doing something wrong elsewhere.

This current one is giving me an "a string is required here." error between an ELSE and an IF.  I really have no idea why anything should appear there, let alone a string.  No Formula samples I've seen have ever put anything between an ELSE IF statement.

Any ideas?

Here's the code.  The syntax error location is marked with a red *.  Oh, and any feedback on the general structure would be welcome.  It's my first stab at CR so I'm sure I could benefit from the insights of experience.


LOCAL NumberVar ParseCnt := 1;   // Counter for loop to pull extracted characters sequentially
LOCAL NumberVar ExtStrCnt := 1;  // Counter for loop to pull extracted strings sequentially
LOCAL NumberVar Toggle := 1;     // Toggles between language to write (1=English, 2=French)
LOCAL StringVar EString := "";   // New English string built from parsed characters
LOCAL StringVar SString := "";   // Current extracted source string
LOCAL StringVar PullChar := "";  // Current extracted character

WHILE ExtStrCnt < 5 DO // Begin loop to call string fragments                          
(
  IF ExtStrCnt = 1 THEN //Begin loop to select correct string fragment
    SString := {%Pull_1}
  ELSE IF ExtStrCnt = 2 THEN
    SString := {%Pull_2}
  ELSE IF ExtStrCnt = 3 THEN
    SString := {%Pull_3}
  ELSE
    SString := {%Pull_4}; // End loop to select correct string fragment

  WHILE ParseCnt <> (LENGTH(SString) + 1) DO // Begin loop to extract single characters
  (
    PullChar := Mid(SString,ParseCnt,1);
    IF PullChar <> "|" AND Toggle = 1 THEN // Begin character evaluation and English string building
      EString := EString & PullChar
    ELSE *IF PullChar = "|" AND Toggle = 1 THEN 
      ( 
      EString := EString & PullChar;
      Toggle := 2
      )
    ELSE
      Toggle := 1; // End character evaluation and English string building 
    ParseCnt := ParseCnt + 1;
  ); // End loop to extract single characters

  ExtStrCnt := ExtStrCnt + 1
); // End loop to call string fragments

ToText(EString)