复制代码代码如下:
<%
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