Une classe de traitement des chaînes dans ASP

La copie de code est la suivante:

<%

Coperations de classe

'' ******************************************************************************

'' '' @Function Description: échangez la chaîne dans un tableau char

'' '' @paramètre Description: -Str [String]: chaîne qui doit être convertie

'' '' @Return Value: - [Array] Char Type Array

'' ******************************************************************************

PublicFonction TOCHARARRAY (BYVALSTR)

redimChararray (Len (Str))

fori = 1tolen (str)

chararray (i-1) = mid (str, i, 1)

suivant

tocharArray = chararray

finition de fin

'' ******************************************************************************

'' '' @Function Description: Convertir un tableau en une chaîne

'' '' @paramètre Description: -arr [Array]: Données qui doivent être converties

'' '' @Return Value: - [String] String

'' ******************************************************************************

PublicFunctionArraytostring (ByValarr)

fori = 0Toubound (arr)

strobj = strobj & arr (i)

suivant

arraytoString = strobj

finition de fin

'' ******************************************************************************

'' '' @Function Description: Vérifiez si la chaîne source STR commence par Chars

'' '' @paramètre Description: -str [chaîne]: chaîne source

'' '' @paramètre Description: -chars [String]: Caractère de comparaison / chaîne

'' '' @Return Value: - [bool]

'' ******************************************************************************

PublicFonctionStartswith (ByValStr, Chars)

ifleft (str, len (chars)) = Charsthen

startSwith = true

autre

startSwith = false

endire

finition de fin

'' ******************************************************************************

'' '' @Function Description: Vérifiez si la chaîne source STR se termine par Chars

'' '' @paramètre Description: -str [chaîne]: chaîne source

'' '' @paramètre Description: -chars [String]: Caractère de comparaison / chaîne

'' '' @Return Value: - [bool]

'' ******************************************************************************

PublicFonctionendSwith (ByValStr, Chars)

ifright (Str, Len (Chars)) = Charsthen

Endswith = true

autre

Endswith = false

endire

finition de fin

'' ******************************************************************************

'' '' @Function Description: Copier n chaînes