Visual FoxPro

StringTable SplitAndAppend Example

Demonstrates the StringTable SplitAndAppend method. Visual FoxPro

LOCAL loStrTab
LOCAL s
LOCAL i
LOCAL lnNumStrings

loStrTab = CreateObject('Chilkat.StringTable')

*  SplitAndAppend make it easy to break apart comma delimited, semicolon delimited,
*  or strings delimited by other characters.
s = 'abc,123,xyz,456,music,math,"World History","Chicago,Cubs",Japan'

loStrTab.SplitAndAppend(s,",",1,1)

i = 0
lnNumStrings = loStrTab.Count
DO WHILE i < lnNumStrings
    ? STR(i) + ": " + loStrTab.StringAt(i)
    i = i + 1
ENDDO

*  The output is: 
*  0: abc
*  1: 123
*  2: xyz
*  3: 456
*  4: music
*  5: math
*  6: "World History"
*  7: "Chicago,Cubs"
*  8: Japan

*  Note: Keeping the quotes is intentional.

RELEASE loStrTab