- ベストアンサー
文字列の中に2バイトが含まれているか調べたい
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
正規表現で7bitコード以外の文字の有無を判定すればよいと思います。 if($str =~ /[\x80-\xff]/){ print "全角文字有り！"; }else{ print "全角文字なし"; } ただし欧文の特殊な文字と日本語コードでかぶる部分もありますので、欧文を誤判定する可能性を回避することはできないと思います。
関連するQ&A
- バイト数
こんにちわ。 ＶＢ６でのすごく初歩的な質問なんですが、テキストボックスの中の文字のバイト数をＬｅｎＢ関数で取得して表示させようとしたのですが、半角も全角も１文字２バイトとでてしまいますがなぜでしょうか？ お暇なときで結構ですのでどなたか回答をおねがいします。
- ベストアンサー
- Visual Basic
- VBA(Excel2003)で文字列の切り出し
下のプロシージャーで全角半角混じりの文字列を切り出し、別の文字列で結合しようと思いますがうまくいく場合といかない場合があります。 イミディエイト・ウィンドウ上とCell上で動作が違います。 Cell上でうまく表示させるにはどうしたらいいでしょうか？ Sub Test() Dim myString(2) As String Dim i As Integer myString(0) = "airueo" myString(1) = "かきくけこ" myString(2) = "さシすせそ" For i = 0 To 2 Debug.Print MidMbcs(myString(i), 1, 5) & "...テスト" Cells(i + 1, 1).Value = MidMbcs(myString(i), 1, 5) & "...テスト" Next i End Sub Function LenMbcs(ByVal str As String) LenMbcs = LenB(StrConv(str, vbFromUnicode)) End Function Function MidMbcs(ByVal str As String, start, length) MidMbcs = StrConv(MidB(StrConv(str, vbFromUnicode), start, length), vbUnicode) End Function
- ベストアンサー
- オフィス系ソフト
- VB2008で全角半角の判定
VB2008で全角半角の判定 VB6 では下記のようにして判定していましたが、VB2008では どのようにすればよいのかお教えください。 dim moji as string dim zhN as integer zhN = LenB(StrConv(moji, vbFromUnicode)) mojiには１文字格納されており、 半角なら zhN = 1 全角なら zhN = 2 となる。 これをVB2008で実現する方法がわかりません。 よろしくお願いします。
- ベストアンサー
- Visual Basic
- [VBScript]バイト長の判定
テキストのバイト長を取得したく「LenB関数」を使用したのですが、Unicodeの為、半角も全角も全て2バイトでカウントされてしまいます。 「StrConv関数」もVBScriptにはないため、どうしたものかと困っています。 一文字ずつコード値を出して、1バイトか2バイトに振り分けるという処理は、データの量からして現実的ではありません。 なにかよい方法がありましたらおしえてください。 よろしくお願いします。
- ベストアンサー
- Visual Basic
- VBA(Excel)で文字列内の"～"記号だけ半角変換したくない
VBA(Excel)で、StrConvを用いて、文字列内に存在する記号を全角→半角に変換して、再び文字列内に格納するようにしています。 strValue = StrConv(strValue, vbNarrow) しかし、"～"も"~"に変換されてしまいます。 "～"は半角変換しないようにしたいのですが、何か良い手法はありますでしょうか？ どなたかご教授下さいませ。 よろしくお願い致します。
- ベストアンサー
- その他（プログラミング・開発）
- エクセル：文字列のバイト数が欲しい
セル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に入れていた文字は、 １Ｂ です。 （半角スペース・全角数字１・全角英字Ｂ・半角スペース）
- 締切済み
- オフィス系ソフト
- Word, Excel, PowerPointで2バイト文字検索
お世話になります。 Word, Excel, PowerPointのデータ（ファイル）にある2バイト文字を検索し、順番にハイライト表示（選択状態）にしていく処理をVBAで作りたいと考えています。 当方はC言語やPHPのプログラミングの経験はあるのですが、VBやVBAは初めてでして中々思うように作成が出来ません。 現在はとりあえず試験的に以下のようなプロシージャを作成し、メッセージボックスで表示するところまでは作成出来ています。 Sub check_2byte_stirngs(text As Object) moji_len = Len(text) byte_len = LenB(StrConv(text, vbFromUnicode)) If (moji_len <> byte_len) Then '2バイト文字発見 For i = 1 To Len(text) one_char = Mid(text, i, 1) If LenB(StrConv(one_char, vbFromUnicode)) <> Len(one_char) Then MsgBox one_char End If Next End If End Sub これに以下のような機能を追加したいと思っています。 ・「次へ」を表示するダイアログを付ける（その場で編集可能にしたいのでMsgBoxは使わない） ・見つかった文字の場所までカーソルを移動させて選択状態にする どちらか一方でもお分りの方がいらっしゃいましたら、ご教示願いますでしょうか。 以上、宜しくお願い致します。
- ベストアンサー
- Visual Basic
- VB6.0の「vbFromUnicode」はVB.NETではどれに相当しますか？
VB6.0で、例：StrConv(Text, vbFromUnicode)とかで使用する、 「vbFromUnicode」（文字列を Unicode からシステムの既定のコードページに変換する） は、VB.NETでは使用できないようです。（相当する定数はない？） 「vbFromUnicode」と同等の機能を、VB.NETで使用したいのですが、 どうすれば良いでしょうか？
- ベストアンサー
- Visual Basic
- 入力された文字列のバイト数を知りたい。
こんにちは。 いまWebページ上のテキストボックスに入力されたテキスト文字列のバイト長を判定しようとして， 下記のようなコーディングをしました。 ～ n = escape(document.forms(0).txtProjectCode.value); if (!(n.length == 5)) ～ ところが上記のコーディングだと半角文字は正しくバイト長が取れるのですが，全角文字が入力されると正しくバイト長が取れません。 そうすれば全角文字が入力されても正しくバイト長が取れるでしょうか？ 教えてください。よろしくお願いします。
- ベストアンサー
- JavaScript
- Excelで22バイトの文字を数えたい
Excel2002です。 VBAでセルの文字列を取得する時に全角制御文字（2バイト）を含めて22バイトの制限を考慮したいのですがその方法がわかりません。 全角文字だけなら10文字、 半角文字だけなら22文字の取得ができます。 その後の作業の都合上、22バイトを基準に条件判断したいのですが現在はその方法がわからないためLEN()で10を上限としています。LENB()でも同じ結果（文字数が返される）になります。 対象のセルには全角文字/半角文字が混在しており、全角-半角-全角-半角のような混在であれば制御文字を２回考慮する必要があります。 最悪その文字が全角か半角かの区別がつけば対応できると思います。 よい方法をご教授いただきたくお願いいたします。
- ベストアンサー
- オフィス系ソフト
お礼
この処理の理由は、外国からの英語イタズラ投稿（掲示板への）を防止させたかったからです。 いただいたコードでバッチリできました！ ありがとうございました。