正在阅读:ASP中一个字符串处理类加强版(VBScript)ASP中一个字符串处理类加强版(VBScript)

2004-02-14 09:33 出处:PConline 作者:asilas 责任编辑:linjixiong

 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
 

键盘也能翻页,试试“← →”键

关注我们

最新资讯离线随时看 聊天吐槽赢奖品