(VBScript) StringBuilder ReplaceBetween

Demonstrates the ReplaceBetween 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)

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder")
set sb = CreateObject("Chilkat.StringBuilder")
success = sb.Append("<company><industry>Software</industry><name>Chilkat Software</name><abc>Abc Software</abc><name>Xyz Software</name></company>")

' The ReplaceBetween method restricts the replacements to only
' the parts that occur between two delimiter strings.

' For example:
numReplacements = sb.ReplaceBetween("<name>","</name>","Software","Technology")

' The number of replacements should be 2.
outFile.WriteLine("numReplacements = " & numReplacements)

' The sb now contains:
' <company><industry>Software</industry><name>Chilkat Technology</name><abc>Abc Software</abc><name>Xyz Technology</name></company>
outFile.WriteLine(sb.GetAsString())

outFile.Close