<% dim str set str = new stringoperations test = str.tochararray("check this out") response.write "<strong>str.tochararray</strong>: " for i = 0 to ubound(test) response.write test(i) & " " next
'**************************************************************************** '' @功能說明: 把字符串換為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 arraytostring = 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] 轉換后的字符串 '**************************************************************************** public function capitalize(str) words = split(str," ") for i = 0 to ubound(words) if not i = 0 then tmp = " " end if tmp = tmp & ucase(left(words(i), 1)) & right(words(i), len(words(i))-1) words(i) = tmp next capitalize = arraytostring(words) end function
