コードコピーは次のとおりです。
<%
クラスストリングレーション
''****************************************************************************
'' '@function説明:文字列をchar配列に交換します
'' '@Parameter説明:-str [string]:変換する必要がある文字列
'' '' @return値: - [配列] charタイプ配列
''****************************************************************************
publicFunction toCharArray(byvalstr)
redimchararray(len(str))
fori = 1tolen(str)
Chararray(i-1)= mid(str、i、1)
次
toCharArray = Chararray
エンド機能
''****************************************************************************
'' '@function説明:配列を文字列に変換します
'' '@Parameter説明:-ARR [配列]:変換する必要があるデータ
'' '' @return値: - [string] string
''****************************************************************************
publicFunctionArrayTostring(byvalarr)
fori = 0toubound(arr)
strobj = strobj&arr(i)
次
arraytostring = strobj
エンド機能
''****************************************************************************
'' '' @Function説明:ソース文字列STRがcharsで始まるかどうかを確認します
'' '' @parameter説明:-str [string]:ソース文字列
'' '' @parameter説明:-chars [string]:比較文字/文字列
'' '' @return値: - [bool]
''****************************************************************************
publicFunctionStartswith(byvalstr、chars)
ifleft(str、len(chars))= charsthen
Startswith = true
それ以外
startswith = false
endif
エンド機能
''****************************************************************************
'' '' @function説明:ソース文字列strがcharsで終わるかどうかを確認します
'' '' @parameter説明:-str [string]:ソース文字列
'' '' @parameter説明:-chars [string]:比較文字/文字列
'' '' @return値: - [bool]
''****************************************************************************
publicFunctionEndswith(byvalstr、chars)
ifright(str、len(chars))= charsthen
endswith = true
それ以外
endswith = false
endif
エンド機能
''****************************************************************************
'' '@function説明:n文字列をコピーします