Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(VBScript) StringBuilder GetBeforeDemonstrates the StringBuilder.GetBefore method. The GetBefore method was added in Chilkat v9.5.0.77
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("www.chilkatsoft.com") ' The GetBefore method returns the contents of the string up to but not including ' the marker string. If the remove flag is 1, then both the returned string AND ' the marker are removed. removeFlag = 0 marker = "." substr = sb.GetBefore(marker,removeFlag) outFile.WriteLine("substr = " & substr) outFile.WriteLine("sb contains: " & sb.GetAsString()) ' Output: ' substr = www ' sb contains: www.chilkatsoft.com removeFlag = 1 substr = sb.GetBefore(marker,removeFlag) outFile.WriteLine("substr = " & substr) outFile.WriteLine("sb contains: " & sb.GetAsString()) ' Output: ' substr = www ' sb contains: chilkatsoft.com ' If the marker is not found, and the removeFlag is 1, ' then the entire string is returned and the sb is cleared. ' For example: sb.Clear success = sb.Append("111--222--333--444") marker = "--" removeFlag = 1 Do While (sb.Length > 0) substr = sb.GetBefore(marker,removeFlag) outFile.WriteLine("substr = " & substr & ", sb contains: " & sb.GetAsString()) Loop ' Output is: ' substr = 111, sb contains: 222--333--444 ' substr = 222, sb contains: 333--444 ' substr = 333, sb contains: 444 ' substr = 444, sb contains: outFile.Close |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.