コードコピーは次のとおりです。
<％
クラスストリングレーション
''****************************************************************************
'' '@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文字列をコピーします