出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
全角と半角の判断 　 ゆうさん [01/06/21 20:09:48] [334]
　 Re:全角と半角の判断 　 三瓶さん [01/06/21 20:53:16] [335]
　 Re:全角と半角の判断 　 YasNet（管理人）さん [01/06/22 7:40:36] [336]
　 Re:全角と半角の判断 　 naritanさん [01/06/22 9:01:49] [337]
[334] 全角と半角の判断
投稿者：ゆうさん 01/06/21 20:09:48
今晩和。
教えて欲しい事があります。
INPUTのテキストBOXに入力された値が全角か半角かの判断をさせたいのですが、
どうしたら良いでしょうか。
半角しか入力できないようになれば一番良いのですが・・・。
[335] Re:全角と半角の判断
投稿者：三瓶さん 01/06/21 20:53:16
こんばんわ。
LenとMid関数を使って、1文字ずつチェックしてみては？

> 今晩和。
> 教えて欲しい事があります。
> INPUTのテキストBOXに入力された値が全角か半角かの判断をさせたいのですが、
> どうしたら良いでしょうか。
> 半角しか入力できないようになれば一番良いのですが・・・。
>
[336] Re:全角と半角の判断
投稿者：YasNet（管理人）さん の <ホームページ> 01/06/22 7:40:36
こんにちは　YasNet　です
　
横レスすみません。
以下処理を1文字（Mid等を使って）づつチェックすると可能です。
If (Asc(InData) And &HFF00) = 0 Then
'半角
Else
'全角
End If
　
役に立ちましたか？
では　では
[337] Re:全角と半角の判断
投稿者：naritanさん 01/06/22 9:01:49
nairtanです。

> 半角しか入力できないようになれば一番良いのですが・・・。

vbscriptのucase関数、lcase関数で全角→半角、半角→全角に変換する事ができますよ！

TreeBBS For ASP V.0.1.3
Program By ＹａｓＮｅｔ