Visual FoxPro

Load StringTable from a StringBuilder

Demonstrates how to load a StringTable from the text contained in a Chilkat StringBuilder object. Visual FoxPro

LOCAL lnSuccess
LOCAL loStrTab
LOCAL loSb
LOCAL i
LOCAL lnNumStrings

lnSuccess = 0

loStrTab = CreateObject('Chilkat.StringTable')
loSb = CreateObject('Chilkat.StringBuilder')

loSb.Append("This is line 1" + CHR(13) + CHR(10))
loSb.Append("An empty line follows..." + CHR(13) + CHR(10))
loSb.Append(CHR(13) + CHR(10))
loSb.Append("This is line 4" + CHR(13) + CHR(10))

loStrTab.AppendFromSb(loSb)

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

RELEASE loStrTab
RELEASE loSb