カタカナ判別

質問

下記は他のサイトで見たカタカナ判別の関数です。
javascriptはさっぱりまだわからないので、これをvbscriptの関数に変えたいのですが・・。

function checkKatakana(mojiretsu){
for(i=0; i<mojiretsu.length; i++){
if(mojiretsu.charAt(i) < 'ア' || mojiretsu.charAt(i) > 'ン'){
return false;
}
}
return true;
}

回答No.2

hequil · ベストアンサー

#1補足のASPですが、私の環境では正しく動作（Trueが表示）されました。
スクリプトエンジンのバージョンが低いと思われるので
ASPを処理させるサーバーに参考URLからWindows Script 5.5をインストールすると正常に動作すると思います。

なお、ASPについての話題でしたら、該当カテゴリがあります
そちらで質問されたほうが、私の回答より的確な返事が期待できると思います（苦笑）

コンピューター＆インターネット > プログラミング > Microsoft ASP
http://www.okweb.ne.jp/oshiete.php3?c=249

参考まで

参考URL：

http://www.microsoft.com/msdownload/vbscript/scripting.asp?id=25

回答No.1

hequil

文字列に全角カタカナが含まれているかのチェックですよね？
こんな感じでどうでしょう↓

Function CheckKatakanaVBS( strMoji )
　　Dim objChkKatakana
　　Set objChkKatakana = New RegExp
　　objChkKatakana.Pattern = "[ア-ン]"
　　CheckKatakanaVBS = objChkKatakana.Test( strMoji )
End Function

補足

早速の回答ありがとうございます。実際の環境はASP(access jet)で使いたいのですが、下記だと、
Set objChkKatakana = New RegExp
で構文エラーになるようです。初心者のため、解読できず・・。

<%= CheckKatakanaVBS("アクセス") %>
<%
Function CheckKatakanaVBS(strMoji)
Dim objChkKatakana
Set objChkKatakana = New RegExp
objChkKatakana.Pattern = "[ア-ン]"
CheckKatakanaVBS = objChkKatakana.Test(strMoji)
End Function
%>