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