Una clase de procesamiento de cadenas en ASP

La copia del código es la siguiente:

<%

Operaciones de clases

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

'' '' '@Function Descripción: intercambie la cadena en una matriz de caracteres

'' '' @parameter Descripción: -str [string]: cadena que debe convertirse

'' '' '@Return valor:-[matriz] Char Tipo Array

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

PublicFunction ToCharArray (Byvalstr)

RedimCharArray (Len (STR))

fori = 1Tolen (str)

Chararray (I-1) = Mid (Str, I, 1)

próximo

toCharArray = CharArray

Función final

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

'' '' '@Function Descripción: Convierta una matriz en una cadena

'' '' '@parameter Descripción: -Arr [Array]: datos que deben convertirse

'' '' '@Return valor:-[cadena] cadena

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

PublicFunctionArrayToString (Byvalarr)

fori = 0toUbound (arr)

strobj = strobj & arr (i)

próximo

ArrayToString = strobj

Función final

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

'' '' '@Function Descripción: Verifique si la cadena de origen STR comienza con Chars

'' '' '@parameter Descripción: -str [string]: String String

'' '' '@parameter Descripción: -Chars [String]: Comparación Caracter/String

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

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

PublicFunctionStartswith (Byvalstr, Chars)

ifleft (str, len (chars)) = Charsthen

Inicio con = True

demás

iniciar con = falso

endif

Función final

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

'' '' '@Function Descripción: Verifique si la cadena de origen STR termina con Chars

'' '' '@parameter Descripción: -str [string]: String String

'' '' '@parameter Descripción: -Chars [String]: Comparación Caracter/String

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

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

PublicFunctionEdswith (Byvalstr, Chars)

ifright (str, len (chars)) = Charsthen

Endswith = True

demás

Endswith = falso

endif

Función final

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

'' '' '@Function Descripción: Copiar n cadenas