- ベストアンサー
バイト数
こんにちわ。 VB6でのすごく初歩的な質問なんですが、テキストボックスの中の文字のバイト数をLenB関数で取得して表示させようとしたのですが、半角も全角も1文字2バイトとでてしまいますがなぜでしょうか? お暇なときで結構ですのでどなたか回答をおねがいします。
- reizi_y
- お礼率65% (23/35)
- Visual Basic
- 回答数2
- ありがとう数4
- みんなの回答 (2)
- 専門家の回答
質問者が選んだベストアンサー
VB6は分かりませんが、VB5までの32Bit版VBでは、内部の漢字コードが Unicodeを使用していました Unicodeは、半角も全角も全て2バイトで表現されているため、そういう現象が 発生します StrConvという関数を使い、UnicodeをANSIに変換してやることで、この問題は 解決します 詳しくは、VBのマニュアル、ヘルプ等でStrConvを検索するか、以下のサイト (MicroSoftのVBに対するFAQ)をご覧ください・・・下の方に載ってます
その他の回答 (1)
- ymmasayan
- ベストアンサー率30% (2593/8599)
VBの内部ではユニコードのため半角も2バイトです。LenBではなく別の関数があるはずですが。 ACCESSとVBscriptの例ですが参考URLをどうぞ。 http://www.joho-miyagi.or.jp/member/access1/length.htm http://www.users.gr.jp/ml/archive/ASP/7403.asp
関連するQ&A
- 文字のバイト数について
現在VBの勉強をしております(WindowsXP、VB6.0) テキストボックスの文字数(バイト)チェックを行っていて、不思議に思った事があるので質問させてください。 C言語では、数字の「1」は1バイトなのに、VBのLenBで取得すると、2バイトです。 これって何ででしょうか? 文字コードが違うからでしょうか? 以上、よろしくお願いいたします。
- ベストアンサー
- Visual Basic
- [VBScript]バイト長の判定
テキストのバイト長を取得したく「LenB関数」を使用したのですが、Unicodeの為、半角も全角も全て2バイトでカウントされてしまいます。 「StrConv関数」もVBScriptにはないため、どうしたものかと困っています。 一文字ずつコード値を出して、1バイトか2バイトに振り分けるという処理は、データの量からして現実的ではありません。 なにかよい方法がありましたらおしえてください。 よろしくお願いします。
- ベストアンサー
- Visual Basic
- エクセル:文字列のバイト数が欲しい
セルB1に、 半角スペース、全角2文字、半角スペース、 と入力しました。 このシートの別のセルに、 =Len(B1)と入力すると4と表示され、 =LenB(B1)と入力すると6と表示されますので、 間違いなく「半角スペース・全角2文字・半角スペース」がB1に入っているはずです。 このシートのコードに、 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$L$1" Then MsgBox LenB(Cells(1, 2).Value) End If End Sub と打ちました。 ここでシート上のセルL1に何か入力するとメッセージボックスが出るのですが、 メッセージボックスに出る値は8です。 何が原因でしょうか。 6が表示されて欲しいのですが(文字列のバイト数が欲しい)、 どのようにコードを書けばよいでしょうか。 実際にB1に入れていた文字は、 1B です。 (半角スペース・全角数字1・全角英字B・半角スペース)
- 締切済み
- オフィス系ソフト
- 文字列の中に2バイトが含まれているか調べたい
文字列の中に、2バイト(つまり全角)が含まれているかどうかを調べたいです。 VBなどでは、LenB(StrConv(Value, vbFromUnicode))とかで、調べられるのですが、Pealではどのような関数を用いれば良いでしょうか・ 最適な関数、あるいは手法があれば、教えてくださいませ。 よろしくお願いします。
- ベストアンサー
- Perl
- Excelで22バイトの文字を数えたい
Excel2002です。 VBAでセルの文字列を取得する時に全角制御文字(2バイト)を含めて22バイトの制限を考慮したいのですがその方法がわかりません。 全角文字だけなら10文字、 半角文字だけなら22文字の取得ができます。 その後の作業の都合上、22バイトを基準に条件判断したいのですが現在はその方法がわからないためLEN()で10を上限としています。LENB()でも同じ結果(文字数が返される)になります。 対象のセルには全角文字/半角文字が混在しており、全角-半角-全角-半角のような混在であれば制御文字を2回考慮する必要があります。 最悪その文字が全角か半角かの区別がつけば対応できると思います。 よい方法をご教授いただきたくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- ACCESS2000の文字数制限について
ACCESS2000のテーブルで文字数制限をすると、全角でも半角でも 1文字と数えられてしまい、困っています。 全角は2文字、半角は1文字として数えたいのです。 モジュールを使い、LENB()、LEFTB()関数を使っても、上記と同様の現象で 解決しません。よい方法はありますでしょうか?
- ベストアンサー
- オフィス系ソフト
- アクセスのLENBとエクセルのLENBの違い
アクセスで、定められたバイト数以上の文字を削除したいです。 エクセルでのLENBの考えで、やりたいのですが、それがアクセスでは、うまく認識しません。 例えば、 1234567:エクセルでは、10(半角4と全角3×2) :アクセスでは、14(全てが2バイトにみなされる) アクセスで、全角半角を区別して、桁数を表示させる関数がありましたら教えてください。 以上、よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- Excelでバイト数の最大数が決まったデータを作りたいんです!
上手く説明出来ないんですが・・。 エクセルで、項目それぞれにバイト数の最大数が決まったデータを作りたいんです。 例えば ◆職員番号・・・バイト数12(半角) 職員番号は8桁なので、その後ろに残り12バイトまでの半角パディング。 ◆氏名 ・・・ バイト数16(全角8字まで) 全角8文字以内なら、その後ろに残り8文字までの全角パディング。 全角8文字を超す氏名なら、8文字で切る。 ◆カナ ・・・ バイト数58(半角) 半角カナ文字で残りの58バイトまで半角パディング。 *これをcsvに変換します! これを文字列だけ打ち込んだら、自動で最大バイト数まで半角・全角を埋めるようにすることは出来るでしょうか? また、氏名のところのように自動で8文字までの入力しか出来なくするようにすることは出来るでしょうか? 説明が下手で申し訳ないんですが、おわかりになる方ご教授下さい。 よろしくお願いします!!
- ベストアンサー
- オフィス系ソフト
- 半角/全角文字混在データの分割方法
VB6.0にて、あるデータ項目の内容を、画面上の2つの表示領域に分割して セットする方法を教えて下さい。 あるファイルの項目として、「住所」という項目があるとします。 このデータを取得し、画面に表示する際に、「住所1」「住所2」とに分割して、 セットします。 この場合、ファイル上の「住所」は、キャラクタタイプで40バイトと定義されており、 ”半角/全角文字混在”でデータが格納されています。 画面上の、「住所1」「住所2」はそれぞれ、20バイトとします。 この様な条件で、単純に取得したデータを2分割すると、 取得したデータが、全て半角か全角なら問題はないのですが、 例えば、1文字目が半角で、以降が全て全角文字だった場合に、 最後の全角文字がぴったり収まらなくなり、うまく表示できないように思います。 また、文字を取得する際に、使用している、Mid(MidB)関数やLen(LenB)関数も、 うまく利用できていないようです。(コード体系の違いでしょうか?) どなたかご教授下さい。 よろしくお願いします。
- ベストアンサー
- Visual Basic
- Accessの文字数を調べたい
住所項目で半角と全角の混ざった状態になっており、半角1文字は1として全角は1文字は2として合計文字数を算出したいのですが、良い方法を教え下さい。 例 ○○県☐☐市1-2-3 Len 11 LenB 22 求めたい値は、全角6文字×2 + 半角5文字×1 = 17
- 締切済み
- その他(データベース)