複製代碼代碼如下:
<%
classStringOperations
''****************************************************************************
''''@功能說明:把字符串換為char型數組
''''@參數說明:-str[string]:需要轉換的字符串
''''@返回值:-[Array]Char型數組
''****************************************************************************
publicfunctiontoCharArray(byValstr)
redimcharArray(len(str))
fori=1tolen(str)
charArray(i-1)=Mid(str,i,1)
next
toCharArray=charArray
endfunction
''****************************************************************************
''''@功能說明:把一個數組轉換成一個字符串
''''@參數說明:-arr[Array]:需要轉換的數據
''''@返回值:-[string]字符串
''****************************************************************************
publicfunctionarrayToString(byValarr)
fori=0toUBound(arr)
strObj=strObj&arr(i)
next
arrayToString=strObj
endfunction
''****************************************************************************
''''@功能說明:檢查源字符串str是否以chars開頭
''''@參數說明:-str[string]:源字符串
''''@參數說明:-chars[string]:比較的字符/字符串
''''@返回值:-[bool]
''****************************************************************************
publicfunctionstartsWith(byValstr,chars)
ifLeft(str,len(chars))=charsthen
startsWith=true
else
startsWith=false
endif
endfunction
''****************************************************************************
''''@功能說明:檢查源字符串str是否以chars結尾
''''@參數說明:-str[string]:源字符串
''''@參數說明:-chars[string]:比較的字符/字符串
''''@返回值:-[bool]
''****************************************************************************
publicfunctionendsWith(byValstr,chars)
ifRight(str,len(chars))=charsthen
endsWith=true
else
endsWith=false
endif
endfunction
''****************************************************************************
''''@功能說明:複製N個字符串str