![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.2ベストアンサー
- 回答日時:
#1さんの方法は半角“文字”の判定方法で、半角“数字”ではないかと・・・
最も単純に考えて、1文字ずつ文字コードを調べる方法です。関数にしてみました。
' 文字列が半角数字であるかを判定
' [引数]
' strValue ... 検証する文字列
' [戻り値]
' True .... 全て半角数字
' False ... 半角数字以外が含まれている
Private Function CheckNarrowNum(strValue As String) As Boolean
Dim strChr() As Byte, i As Long
'文字列をバイト配列に変換
strChr = strValue
'バイト配列を1つ置きに調べる(Unicodeのため)
For i = 0 To UBound(strChr) Step 2
'文字コードが 0 ~ 9 の場合
If strChr(i) >= 48 And strChr(i) <= 57 And strChr(i + 1) = 0 Then
'それ以外の場合
Else
'半角数字以外の文字なのでFalseを返す
CheckNarrowNum = False
Exit Function
End If
Next
'全て半角数字なのでTrueを返す
CheckNarrowNum = True
End Function
もっと効率のいい方法があるような気もしますが・・・。
Replace関数で0~9を全部空白に置き換えて、文字列がなくなるかどうかを調べる、という方法も考えましたけど、配列を1回だけループさせる方が速いと思ったのでコーディングしてません。
No.3
- 回答日時:
お世話になります。
参考 URL が参考になると思います。
個人的には RegExp をオススメしたいです。
参考URL:http://homepage1.nifty.com/rucio/main/technique/ …
この回答へのお礼
お礼日時:2006/09/14 09:24
ご回答ありがとうございました。
今回はしたの方に教えていただいたコードを
使いたいと思います。
でも、RegExpは全く知らなかったので興味深く
見させていただきました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルの数式で教えてください。 1 2023/07/31 15:49
- Visual Basic(VBA) 特定の文字を簡単な操作で半角スペースに変換するか削除したい 2 2022/11/01 10:35
- その他(データベース) Accessのクエリで1フィールドの抽出条件設定をNullでなく全角半角含む空白のみの文字列でない文 1 2023/04/24 15:20
- Excel(エクセル) capeofdragonと申します Excel2016を使っておりまして 半角又は全角の任意文字列が 2 2022/10/31 13:51
- その他(プログラミング・Web制作) 2つのテキストファイルを比べて文字列を特定する方法を教えて下さい 5 2022/05/01 15:22
- Excel(エクセル) エクセルの数式で教えてください。 2 2022/04/01 09:10
- Visual Basic(VBA) 指定した文字から指定した文字のスペースまでを削除するVBAの構文について 6 2022/07/24 22:20
- マウス・キーボード macからリモートデスクトップでwindowsに接続した際のキーボード配列 3 2023/07/10 08:40
- Excel(エクセル) エクセルの数式で教えてください。 3 2022/10/25 10:52
- その他(プログラミング・Web制作) 文章中の数値を自動で足すサービスはあるでしょうか? 1 2022/10/16 08:10
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
正規表現 文中空白可能
-
なぜインターネットでは半角カ...
-
全角英数文字が嫌われる理由を...
-
全角半角変換 C++/CLI
-
文字の入力で横バー上段、中断...
-
VBAのコマンドボタンの文字列の...
-
awkの BEGIN{RS=""} で空行を削...
-
fputsで改行できない
-
PHPで<a>タグ内からURLと文字を...
-
ソースコードの1行が長いとき...
-
コンボボックスの項目中に改行を
-
「続行するには何かキーを押し...
-
タグにはさまれている文字以外...
-
VBA テキストボックスの行数取得
-
SQL Serverで文字コードUTF-8
-
正規表現で記号 & アンドの検索...
-
正規表現で特定のHTMLタグのク...
-
PHPで変数から1行目だけを取得...
-
テキストファイルから改行コー...
-
ファイルから読み取った改行文...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
メッセージボックスで1025文字...
-
文字の入力で横バー上段、中断...
-
Excel関数「COUNTIF」で”文字”...
-
エクセルのCOUNTIFが正しくカウ...
-
全角括弧と全角読点の間隔を狭...
-
半角記号、全角記号を含む正規...
-
特定の文字を簡単な操作で半角...
-
全角英数文字が嫌われる理由を...
-
VBAで英数字入力チェックしたい。
-
エクセルでの漢字、カタカナ、...
-
全角半角変換 C++/CLI
-
XMLのタグ名の禁則文字
-
VBScriptである文字列に半角文...
-
記号は半角と全角どちらがよい...
-
文字列中の両丸括弧を取り除くV...
-
パソコンで全角、半角文字の切...
-
HTML5の「pattern」属性で前後...
-
Replace関数は文字数の制限ある...
-
Excel2002 一桁数字だけ全角に置換
-
エスケープ文字にstr_replaceが...
おすすめ情報