(VBScript) StringBuilder RemoveAfterFinal

Demonstrates the StringBuilder.RemoveAfterFinal method.

The GetBefore method was added in Chilkat v9.5.0.77

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)

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder")
set sb = CreateObject("Chilkat.StringBuilder")
success = sb.Append("abc::def::ghi")

' The RemoveAfterFinal method removes the chars after the final occurrence of the marker.
' It also removes the marker string.
' If the marker is not found, then nothing is removed and the method returns 0.
marker = "::"
bFound = sb.RemoveAfterFinal(marker)

outFile.WriteLine("bFound = " & bFound)
outFile.WriteLine("sb contains: " & sb.GetAsString())

' Output is:
' bFound = 1
' sb contains: abc::def

outFile.Close