文字のバイト数について

質問

現在ＶＢの勉強をしております（WindowsXP、VB6.0）

テキストボックスの文字数（バイト）チェックを行っていて、不思議に思った事があるので質問させてください。

Ｃ言語では、数字の「1」は1バイトなのに、ＶＢのLenBで取得すると、2バイトです。
これって何ででしょうか？
文字コードが違うからでしょうか？

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

回答No.2

noah7150 · ベストアンサー

そうなんですね
UNICODEで扱われているんです

参考URLにもあるようにバイト数を求めるには一度ShiftJISに変換かけないと求められなくなってます

極力、OSや開発アプリの共通化が出来るようにとの配慮だと思いますが・・・
ちなみにSQL ServerもUNICODEで保存する文字型を推奨しているようです。
時代の変化と共に記憶媒体も安くなりましたから保存領域節約なんて時代遅れなのかもしれません。
なら、画面も半角を無くせと言いたいが・・・

参考URL：

http://oshiete1.goo.ne.jp/qa786809.html

お礼

ご回答ありがとうございました。
また、ＵＲＬはとても参考になりました。

本当にありがとうございますm(__)m

回答No.5

nda23

>ただ、イミディエイトウィンドウって、入力出来るのでしょうか？
やってみた？　やったんなら、できたか、できないか、ですよね。
「イミディエイト」の意味を考えましょう。
因みにイミディエイトウィンドウの出し方は Ctrl + U です。

お礼

入力出来ませんでした。
また、イミディエイトウィンドウっの出し方はCtrl＋Ｇです。
バージョン等で回答者様とは異なるようですね(>_<)

とりあえず質問した内容に関しては解決出来たので、締め切ってしまいたいと思います。

何度もご丁寧にありがとうございましたm(__)m

回答No.4

nda23

普通の関数のように使います。
Declare ～ はGeneralの所（特定のプロシージャに属さない）で定義

使用例
Sub Main()
Dim SSS As String
Dim LLL As Long
SSS = "Ab漢字-*"
LLL = lstrlen(SSS)
MsgBox """" & SSS & """は" & CStr(LLL) & "バイトです"
End Sub

また、いきなりイミディエイトウィンドウでも使えます。
以下のコマンドを入力してみてください。

? lstrlen("Ab漢字-*")

お礼

ご回答ありがとうございます。

参考にさせていただきますm(__)m

ただ、イミディエイトウィンドウって、入力出来るのでしょうか？
またまた質問になってしまって申し訳ありません(>_<)

回答No.3

nda23

理由は皆さんの回答のようにUniCodeだからです。
ANSI文字列として半角=1、全角=2として数える場合は私はAPIを
使っています。
Declare Function lstrlen Lib "KERNEL32" Alias "lstrlenA" _
　　(ByVal T As String) As Long

お礼

ご回答ありがとうございます。

＞ANSI文字列として半角=1、全角=2として数える場合は私はAPIを
＞使っています。

サンプルコードも記載していただきありがとうございます。
ただ、どう利用して良いのか分かりません(^_^;)

直接コードを記述するのでしょうか？
また、外部プロシージャって、どうやって探せば良いのか分からないのですが、機能一覧等がどこかにあるのでしょうか？

回答No.1

boro-pc

ほぼ自己完結してるみたいですけど一応

＞これって何ででしょうか？
＞文字コードが違うからでしょうか？
そうですね
たぶんVBはUnicodeになってるからでしょう

1バイトにしたいならStrConvで変換してあげれば良いでしょう

お礼

ご回答ありがとうございます。

＞たぶんVBはUnicodeになってるからでしょう
＞1バイトにしたいならStrConvで変換してあげれば良いでしょう

ありがとうございます。参考にさせていただきますm(__)m