ASP中一个字符串处理类加强版(VBScript)

答案：
 本文在此基础上进行了一些添加，加了几个适合中文网站的FUNCTION进去，可能还有些没有补充进去，有感兴趣的朋友可以再在此基础上加一点FUNCTION进去，不过可别忘记分享一下！



   <%

   class StringOperations



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

   '' @功能说明: 把字符串换为char型数组

   '' @参数说明:  - str [string]: 需要转换的字符串

   '' @返回值:   - [Array] Char型数组

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

    public function toCharArray(byVal str)

     redim charArray(len(str))

     for i = 1 to len(str)

   charArray(i-1) = Mid(str,i,1)

     next

     toCharArray = charArray

    end function



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

    '' @功能说明: 把一个数组转换成一个字符串

    '' @参数说明:  - arr [Array]: 需要转换的数据

    '' @返回值:   - [string] 字符串

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

    public function arrayToString(byVal arr)

     for i = 0 to UBound(arr)

      strObj = strObj & arr(i)

     next

     varrayToString = strObj

    end function





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

    '' @功能说明: 检查源字符串str是否以chars开头

    '' @参数说明:  - str [string]: 源字符串

    '' @参数说明:  - chars [string]: 比较的字符/字符串

    '' @返回值:   - [bool] 

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

    public function startsWith(byVal str, chars)

     if Left(str,len(chars)) = chars then

      startsWith = true

     else

      startsWith = false

     end if

    end function



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

    '' @功能说明: 检查源字符串str是否以chars结尾

    '' @参数说明:  - str [string]: 源字符串

    '' @参数说明:  - chars [string]: 比较的字符/字符串

    '' @返回值:   - [bool] 

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

public function endsWith(byVal str, chars)

  if Right(str,len(chars)) = chars then

   endsWith = true

  else

   endsWith = false

  end if

end function



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

    '' @功能说明: 复制N个字符串str

    '' @参数说明:  - str [string]: 源字符串

    '' @参数说明:  - n [int]: 复制次数

    '' @返回值:   - [string] 复制后的字符串

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



public function clone(byVal str, n)

  for i = 1 to n

   value = value & str

  next

  clone = value

end function



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

    '' @功能说明: 删除源字符串str的前N个字符

    '' @参数说明:  - str [string]: 源字符串

    '' @参数说明:  - n [int]: 删除的字符个数

    '' @返回值:   - [string] 删除后的字符串

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

public function trimStart(byVal str, n)

  value = Mid(str, n+1)

  trimStart = value

end function



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

    '' @功能说明: 删除源字符串str的最后N个字符串

    '' @参数说明:  - str [string]: 源字符串

    '' @参数说明:  - n [int]: 删除的字符个数

    '' @返回值:   - [string] 删除后的字符串

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

public function trimEnd(byVal str, n)

  value = Left(str, len(str)-n)

  trimEnd = value

end function



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

    '' @功能说明: 检查字符character是否是英文字符 A-Z or a-z

    '' @参数说明:  - character [char]: 检查的字符

    '' @返回值:   - [bool] 如果是英文字符,返回TRUE,反之为FALSE

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

public function isAlphabetic(byVal character)

  asciiValue = cint(asc(character))

  if (65 <= asciiValue and asciiValue <= 90) or (97 <= asciiValue and asciiValue <= 122) then

   isAlphabetic = true

  else

   isAlphabetic = false

  end if

end function

  





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

    '' @功能说明: 对str字符串进行大小写转换

    '' @参数说明:  - str [string]: 源字符串

    '' @返回值:   - [string] 转换后的字符串

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

public function swapCase(str)

  for i = 1 to len(str)

   current = mid(str, i, 1)

   if isAlphabetic(current) then

    high = asc(ucase(current))

    low = asc(lcase(current))

    sum = high + low

    return = return & chr(sum-asc(current))

   else

    return = return & current

   end if

  next

  swapCase = return

end function



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

    '' @功能说明: 将源字符串str中每个单词的第一个字母转换成大写

    '' @参数说明:  - str [string]: 源字符串

    '' @返回值:   - [string] 转换后的字符串

    '*

上一个：小偷&小偷入库&采集入库
下一个：ASP中从数据库读取二进制文件数据代码