(VBScript) StringBuilder GetNth

Demonstrates the GetNth 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 GetNth method is handy for getting parts from delimited strings.
' 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

' Prints "[red]"
outFile.WriteLine("[" & sb.GetNth(0,delimiterChar,exceptDoubleQuoted,exceptEscaped) & "]")

' Prints "[blue]"
outFile.WriteLine("[" & sb.GetNth(1,delimiterChar,exceptDoubleQuoted,exceptEscaped) & "]")

' Prints "[green,purple]"
outFile.WriteLine("[" & sb.GetNth(2,delimiterChar,exceptDoubleQuoted,exceptEscaped) & "]")

' Prints "[]"
outFile.WriteLine("[" & sb.GetNth(3,delimiterChar,exceptDoubleQuoted,exceptEscaped) & "]")

' Prints "[yellow]"
outFile.WriteLine("[" & sb.GetNth(4,delimiterChar,exceptDoubleQuoted,exceptEscaped) & "]")

' Prints "[]"
outFile.WriteLine("[" & sb.GetNth(5,delimiterChar,exceptDoubleQuoted,exceptEscaped) & "]")

outFile.Close