VBScript

Load StringTable from a StringBuilder

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

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

set strTab = CreateObject("Chilkat.StringTable")
set sb = CreateObject("Chilkat.StringBuilder")

success = sb.Append("This is line 1" & vbCrLf)
success = sb.Append("An empty line follows..." & vbCrLf)
success = sb.Append(vbCrLf)
success = sb.Append("This is line 4" & vbCrLf)

success = strTab.AppendFromSb(sb)

i = 0
numStrings = strTab.Count
Do While i < numStrings
    outFile.WriteLine(i & ": " & strTab.StringAt(i))
    i = i + 1
Loop

outFile.Close