Die Codekopie lautet wie folgt:
<%
Klassenstringoperationen
''**************************************
'' '@Function Beschreibung: Tauschen Sie die Zeichenfolge in ein Zeichen -Array aus
'' '@parameter Beschreibung: -str [String]: String, die konvertiert werden muss
'' '' @Return Value:-[Array] char-Typ-Array
''**************************************
publicFunction tocharArray (Byvalstr)
redimararray (len (str))
fei = 1tolen (str)
Chararray (I-1) = MID (STR, I, 1)
nächste
toarArray = chararray
Endfunktion
''**************************************
'' '' @Function Beschreibung: Konvertieren Sie ein Array in eine Zeichenfolge
'' '@parameter Beschreibung: -arr [Array]: Daten, die konvertiert werden müssen
'' '' @Return Value:-[String] String
''**************************************
publicFunctionArrayToString (Byvalarr)
fei = 0toubund (arr)
Strobj = Strobj & arr (i)
nächste
ArrayToString = Strobj
Endfunktion
''**************************************
'' '@Function Beschreibung: Überprüfen Sie, ob die Quellzeichenfolge STR mit Zeichen startet
'' '@parameter Beschreibung: -str [String]: Quellzeichenfolge
'' '@parameter Beschreibung: -chars [String]: Vergleichzeichen/String
'' '@Return Value:-[bool]
''**************************************
publicFunctionStartswith (Byvalstr, Chars)
ifleft (str, len (chars)) = charSthen
startswith = true
anders
startswith = false
Endif
Endfunktion
''**************************************
'' '@Function Beschreibung: Überprüfen Sie, ob die Quellzeichenfolge STR mit Zeichen endet
'' '@parameter Beschreibung: -str [String]: Quellzeichenfolge
'' '@parameter Beschreibung: -chars [String]: Vergleichzeichen/String
'' '@Return Value:-[bool]
''**************************************
publicFunctionendswith (Byvalstr, Chars)
IFright (str, len (chars)) = charSthen
Endswith = true
anders
Endswith = false
Endif
Endfunktion
''**************************************
'' '' @Function Beschreibung: Kopie n Strings kopieren