Кода -копия выглядит следующим образом:
<%
ClassStringoperations
'' *****************************************************
'' '' @Function Описание: замените строку на массив char
'' '' @parameter Описание: -str [String]: строка, которую необходимо преобразовать
'' '' @Return value:-[Array] Массив типов Char
'' *****************************************************
publicfunction toCharraray (Byvalstr)
Redimcharraray (Len (Str))
fori = 1tolen (str)
chararray (i-1) = mid (str, i, 1)
следующий
ToCharraray = Chararray
конечная функция
'' *****************************************************
'' '' @Function Описание: преобразовать массив в строку
'' '' @parameter Описание: -arr [Array]: данные, которые необходимо преобразовать
'' '' @Return Value:-[String] String
'' *****************************************************
publicfunctionArrayToString (Byvalarr)
fori = 0toubound (arr)
Strobj = strobj & arr (i)
следующий
ArraytoString = Strobj
конечная функция
'' *****************************************************
'' '' @Function Описание: Проверьте, начинается ли исходная строка STR с Chars
'' '' @parameter Описание: -str [String]: Source String
'' '' @parameter Описание: -CHARS [String]: Сравнение символа/строка
'' '' @Return value:-[bool]
'' *****************************************************
publicfunctionStartSwith (Byvalstr, Chars)
ifleft (str, len (chars)) = charsthen
startSwith = true
еще
startSwith = false
эндиф
конечная функция
'' *****************************************************
'' '' @Function Описание: Проверьте, заканчивается ли STR STRING STRING STR
'' '' @parameter Описание: -str [String]: Source String
'' '' @parameter Описание: -CHARS [String]: Сравнение символа/строка
'' '' @Return value:-[bool]
'' *****************************************************
publicfunctionendswith (byvalstr, chars)
ifright (str, len (chars)) = charsthen
endswith = true
еще
endswith = false
эндиф
конечная функция
'' *****************************************************
'' '' @Function Описание: копия n строки