文字列の取得について

質問

Accessのモジュールを使ってある文字列から指定した文字数の文字列を取得しようとしています。

A："あああああ" & vbcrlf
B："いいいいい" & vbcrlf
C："うううううう" & vbcrlf
D："えええええ" & vbcrlf

A～Dまでフィールドがあり、vbcrlfは改行です。
この文字列に対して以下の処理を実行します。

(1)変数mojiにA & B & C & Dを代入
(2)mojiを全角に変換
(3)Left(moji,20)で左から20文字取得します。
(4)mojiをテキストボックスに登録します。
(5)入力チェック処理
　・フィールドサイズが20文字以内か？
　・全角で登録されているか？

→登録後のイメージ
----------------
あああああ
いいいいい
ううううう

----------------

テキストボックスには全角でしっかり登録されているようにみえるのですが、
どうしても全角で登録してくださいというメッセージが表示されてしまいます。

うううううの次の改行を削除すると、メッセージはでなくなります。
この改行が半角になっているのでしょうか？

アドバイスよろしくお願いいたします。

回答No.1

K-Sogacchi · ベストアンサー

そもそもCr(&H0D)、Lf(&H0A)は特殊な文字コードで、
「全角に変換」とかいう概念は存在しません。
（敢えて言うなら「全角に変換できない特殊制御文字」？）
上の例に限定して言えば、全角に変換する意味は全くありません。
また、文字数的にはCr、Lf共に１文字として数えられると思うので、
A～Dの全てを連結すると28文字になるはず。
「全角チェック」がどういう処理を行っているか不明ですが、CrLfを含む文字列について
チェックを行うなら、本来は元の文字列からCrLfを取り除いたものに対して
全角チェックを行うべきです。
文字数による処理についても同様。CrLfが付いている状態で20文字で切ろうとしたら、
"ううううう"の後のCrのみ（Lfは削られる）までになります。

お礼

分かりやすい説明をしていただきありがとうございます。

CrLfのCrだけ残っていたとは。。
まったく気づいていませんでした。

参考にもうちょっと処理内容を考え直してみます。
また何かありましたらどうぞよろしくお願いします。