全角データの存在判定

質問

いつもお世話になります。
さて標記の件、データの中に全角文字が入っているかどうかの判定をしたいと思っています。

過去の質問からクエリでLen(文字列)<>LanB(文字列)を作ってみたんですが、半角文字しかないのにLanBに倍の数字が入ります。
office2000だからだと思いますが何か方法が在りませんでしょうか。

WinXP Office2000PROを使用しています。

以上、宜しくお願いいたします。

回答No.2

pkh4989 · ベストアンサー

おはようございます。

>"あア"（全角、半角）
→"あア" では無いでしょうか。

以下は全角２文字ですので、結果はその通りです。

Len("あア")　→　２
LenB("あア")　→　４
Len(StrConv("あア",64)) →　４ '→ これは vbUnicode です
LenB(StrConv("あア",64)) →　８ '→ これは vbUnicode です

>LenB(StrConv("あア",64)) →　８
→ LenB(StrConv("あア", vbFromUnicode)) ですので
→ LenB(StrConv("あア",128)) →　3 になります。

再度確認してみてくださいね。

お礼

できました！！！
ありがとうございました。

回答No.1

pkh4989

こんにちは。

表記の間違いだと思います。

Len(文字列)<>LanB(文字列)
↓
Len(文字列)<>LenB(StrConv(文字列, vbFromUnicode))

補足

回答ありがとうございます。
上記内容でも無理でした。
内容記述しますのでフォロー願えますでしょうか。

文字列を例えば"あア"（全角、半角）として
Lenで２、LanBで３の情報がほしいです。

Len("あア")　→　２
LenB("あア")　→　４
Len(StrConv("あア",64)) →　４
LenB(StrConv("あア",64)) →　８

特に最後がまったく理解できません。
すみませんがよろしくお願いいたします。