VBScript

StringBuilder ReplaceBetween

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

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