ベストアンサー

半角カナだけが入力できる<input type="text">は可能？

2003/05/23 13:02

半角カナだけ入力できるテキストボックスは作成可能でしょうか？ Vbscript だけを使って実現したいと思います。

GBSGBS
お礼率36% (370/1012)

Microsoft ASP
回答数3
ありがとう数3

みんなの回答 （3）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

you111111
ベストアンサー率45% (20/44)

2003/05/23 13:47 回答No.2

ちょっと面倒なやり方ですが、以下の様なものはいかがでしょう？テキストボックスのonblurイベント時にVBScriptでチェックしています。 ----サンプル----- <html> <head> <title>半角カナチェック</title> <script language="vbscript"> Function KanaCheck(strTarget) Dim obj, i, strChar, intAscBuff For Each obj in frm1 If InStr(obj.name, strTarget) > 0 then For i = 1 To Len(obj.value) strChar = Mid(obj.value, i, 1) intAscBuff = Asc(strChar) If intAscBuff < Asc("ア") Or intAscBuff > Asc("ン") Then If Not (intAscBuff = Asc("゛") Or _ intAscBuff = Asc("゜") Or _ intAscBuff = Asc(" ") Or _ intAscBuff = Asc("(") Or _ intAscBuff = Asc(")") Or _ intAscBuff = Asc("-") Or _ intAscBuff = Asc(",") Or _ intAscBuff = Asc(".") Or _ intAscBuff = Asc("\") Or _ intAscBuff = Asc("/") Or _ intAscBuff = Asc("「") Or _ intAscBuff = Asc("」")) Then If intAscBuff < Asc("A") Or _ intAscBuff > Asc("Z") Or _ intAscBuff < Asc("0") Or _ intAscBuff > Asc("9") Then KanaCheck = False msgbox obj.name & "は半角カナ文字のみの入力となります。" Exit Function End If End If End If Next End If Next KanaCheck = True End Function </script> </head> <body> <form name="frm1" method="post"> <input type="text" name="txt1" onblur="KanaCheck('txt1')"> <input type="text" name="txt2" onblur="KanaCheck('txt2')"> <input type="text" name="txt3" onblur="KanaCheck('txt3')"> </form> </body> </html>

質問者