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
|