(VBScript) StringBuilder SetNth

Demonstrates the SetNth method.

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

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

' The SetNth method is handy for setting a part of a delimited string.
' For example:

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder")
set sb = CreateObject("Chilkat.StringBuilder")
success = sb.Append("red,blue,""green,purple"",,yellow")

delimiterChar = ","
exceptDoubleQuoted = 1
exceptEscaped = 1

success = sb.SetNth(2,"magenta",delimiterChar,exceptDoubleQuoted,exceptEscaped)
' Prints "red,blue,magenta,,yellow"
outFile.WriteLine(sb.GetAsString())

success = sb.SetNth(3,"orange",delimiterChar,exceptDoubleQuoted,exceptEscaped)
' Prints "red,blue,magenta,orange,yellow"
outFile.WriteLine(sb.GetAsString())

' What happens if we start with an empty string?
sb.Clear 

success = sb.SetNth(2,"apple",delimiterChar,exceptDoubleQuoted,exceptEscaped)
' Prints ",,apple"
outFile.WriteLine(sb.GetAsString())

success = sb.SetNth(0,"orange",delimiterChar,exceptDoubleQuoted,exceptEscaped)
' Prints "orange,,apple"
outFile.WriteLine(sb.GetAsString())

success = sb.SetNth(1,"banana",delimiterChar,exceptDoubleQuoted,exceptEscaped)
' Prints "orange,banana,apple"
outFile.WriteLine(sb.GetAsString())

outFile.Close