(Visual FoxPro) StringTable SplitAndAppend Example

Demonstrates the StringTable SplitAndAppend method.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loStrTab
LOCAL s
LOCAL i
LOCAL lnNumStrings

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringTable')
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