| 12345678910111213141516 |
- DEF VAR cString AS CHAR.
- DEF VAR lString AS LONGCHAR.
- DEF VAR ii AS INT.
- DEF VAR iPos AS INT INIT 1.
- FIX-CODEPAGE(lString) = 'utf-8'.
- DO ii = 1 TO 10:
- cString = SUBSTITUTE('Zuerich-&1&2', STRING(ii,'999'), '/').
- lString = lString + cString.
- iPos = LENGTH(cString).
- END.
- MESSAGE iPos SKIP
- STRING(lString)
- VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.
|
