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

解決済

質問者：GBSGBS
質問日時：2003/05/23 13:02
回答数：3件

半角カナだけ入力できるテキストボックスは
作成可能でしょうか？

Vbscript だけを使って実現したいと思います。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

No.1

回答者： utatane
回答日時：2003/05/23 13:10

スクリプト言語だけでは、入力チェックも難しいのでは・・・・

また、ASPを扱うのに”半角カナ”は普通使わないようにする物だと思っていますが＾＾；逆にどうなんでしょう？

- 0
- 件

通報する

この回答へのお礼

回答ありがとうございます。
半角カナってやっぱりＷＥＢ上では使わない
ものなのでしょうか？・・。

通報する

お礼日時：2003/05/23 14:19

No.2ベストアンサー

回答者： you111111
回答日時：2003/05/23 13:47

ちょっと面倒なやり方ですが、以下の様なものはいかがでしょう？

テキストボックスの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>