VBScript

StringBuilder GetNth

Demonstrates the GetNth method. 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)

' The GetNth method is handy for getting parts from delimited strings.
' For example:

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