ＶＢ６での文字列のカウント方法（謎）

Goolge+が無くなると聞いたので、いくつかの記事をこちらへコピーしておこう。これは2013/11/22に書いた記事。

ＶＢ６でのテキスト文字列のカウント方法。昔のソースコードを探していくと、テキストの文字列をカウントする調査ソフトが見つかった。昔、悩んだ記憶があるなあ。



ＬＥＮはＶＢ６の文字数カウント関数、ＬＥＮＢはバイト数を返す関数。
StrConv(s, vbUnicode) はテキストをユニコードに変換する関数。

1. LEN
2. LENB
3. Len(StrConv(s, vbUnicode))
4. LenB(StrConv(s, vbUnicode))

３番目はユニコードの文字数をカウント、４番目はユニコードのバイト数をカウントしている。
「あ」の場合は３番目は「２」になるが、「わ」の場合はなぜか「１」になる。

これは、LEN関数を使ったらまずいことがあったので、わざわざ面倒な式を使ったのだよねえ。しかし、その「まずい理由」が記録されていないので、なぜ変えたのかがわからない。LEN関数を使うように変えたら別の問題が浮上するのだろうか。

「𠮷」はSQLServerに登録すると2文字分を消費するらしい。ユニコードのサロゲート文字という種類の文字ではそうなるらしい。SQLServerのnvarcharは２バイト単位なので、３バイト、４バイトのユニコード文字は２文字分を消費するということなのだろう。

あと、ＶＢ６で文字列の長さをチェックする式も見つけたのだが、これは何をしているのだろう？

• m = Int((Len(StrConv(s, vbUnicode)) + 1) / 2)

この計算式だと、２００文字のテキストが１８０文字くらいになる。謎だ。

＊

テストデータ
あいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほまみむめもやゆよらりるれろわをん