文字列のチェック

vb6.0でString型で格納されている文字列が半角英数字かどうか確認する方法ってありますか？
できれば、半角数字かどうかのチェック・文字数チェックのやり方も教えてください。

こんにちは。

Ifなどの条件判断で確認することになります。
ただし、文字数が多いと大変なのでLikeを使うと多少楽になります。
     

Dim st As String

    

st = "テスト"

    

Dim Letter As String

Dim i As Integer

    

For i = 1 To Len(st)

    Letter = Mid(st, i, 1)

    If Letter Like "[!0-9a-zA-Z]" Then

        MsgBox "半角英数ではない文字があります。"

        Exit For

    End If

Next i

この例は変数stに１文字でも半角英数でない文字が含まれている場合メッセージを表示します。

>できれば、半角数字かどうかのチェック・文字数チェックのやり方も教えてください。
半角数字かのチェック
Likeの条件を [0-9] や [!0-9]などにします。
文字数のチェック
Lenを使用します。

     

If Len(st) > 8 Then

    MsgBox "8文字までです。"

End If

入力のチェックに使用されることと思いますが、入力のチェックにはさまざまな方法があり、ここで紹介したのは一例です。
以下のページで説明しているのでよろしければ参照してください。
http://homepage1.nifty.com/rucio/main/technique/InputChk2.htm
http://homepage1.nifty.com/rucio/main/technique/InputChk.htm

返事は無しなんだろうなぁ。

http://my.chiebukuro.yahoo.co.jp/my/myspace_quedetail.php?writer=itotsukae233

>ジョンさん、
この掲示板ではマルチポスト自体はOKですが、
マルチポストをする際は、他に投稿した場所のURLを必ず書いてください。
また、他の場所で問題が解決した場合具体的な解決方法をこの掲示板にも書き込んでください。

ヴァンさん、情報提供ありがとうございます。