A cópia do código é a seguinte:
<%
ClassStringOperations
'' ***********************************************
'' '' @Function Descrição: Troque a string em uma matriz de char
'' '' @parameter Descrição: -str [string]: string que precisa ser convertida
'' '' @Return Valor:-[Array] Char Array
'' ***********************************************
Função pública ToCharArray (Byvaltr)
RedimCharArray (Len (STR))
fori = 1Tolen (STR)
CharArray (I-1) = MID (STR, I, 1)
próximo
toCharArray = CharArray
Função final
'' ***********************************************
'' '' @Function Descrição: Converta uma matriz em uma string
'' '' @parameter Descrição: -arr [Array]: dados que precisam ser convertidos
'' '' @Return valor:-[string] string
'' ***********************************************
PublicFunctionArrayToString (Byvalarr)
fori = 0TOUBOUND (ARR)
strobj = strobj & arr (i)
próximo
ArrayToString = strobj
Função final
'' ***********************************************
'' '' @Function Descrição: Verifique se a string de origem STR começa com chars
'' '' @parameter Descrição: -str [string]: string de origem
'' '' @parameter Descrição: -Chars [String]: Caractere de comparação/string
'' '' @Return valor:-[bool]
'' ***********************************************
PublicFunctionStartSwith (Byvaltr, Chars)
ifleft (str, len (chars)) = charsthen
startSwith = true
outro
startSwith = false
endif
Função final
'' ***********************************************
'' '' @Function Descrição: Verifique se a string de origem termina com chars
'' '' @parameter Descrição: -str [string]: string de origem
'' '' @parameter Descrição: -Chars [String]: Caractere de comparação/string
'' '' @Return valor:-[bool]
'' ***********************************************
PublicFunctionendSwith (Byvaltr, Chars)
Seright (str, len (chars)) = charSThen
endswith = true
outro
endswith = false
endif
Função final
'' ***********************************************
'' '' @Function Descrição: Copiar n sequências