文字列の中の全角チェック

たぶち 2004-02-13 18:57:43 No: 82013

はじめまして、たぶちといいます。
文字列の中に全角が混ざっているかどうかを
判別するにはどうしたらよいでしょう？
知っている方がいらっしゃいましたら
ご教示ください。よろしくおねがいします。

マフユ 2004-02-13 20:10:42 No: 82014

ここの掲示板の「掲示板の全トピックから単語」にて検索
[全角と半角の判断について]

http://www.yahoo.co.jp/ にて下記のキーワードなどで
検索もして見て下さい。

全角と半角 vb6

nanashi 2004-02-14 03:00:37 No: 82015

lLen = Len(sText)
lLenB = LenB(StrConv(sText, vbFromUnicode))

If lLenB = lLen Then
    Debug.Print "半角のみ"
ElseIf lLenB = (lLen * 2) Then
    Debug.Print "全角のみ"
Else
    Debug.Print "混在"
End If

こんな感じ？