文字操作 文字列中の数値だけ取り出します

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][文字操作 文字列中の数値だけ取り出します]
Option Explicit


Sub NumericalValue()
'*********************************
'文字列中の数値だけ取り出します
'*********************************
Dim strTest(6) As String

strTest(1) = "これは10000個です。"  'ケース@
strTest(2) = "10000個です。"        'ケースA
strTest(3) = "  10000個です。"      'ケースB
strTest(4) = "  10,000個です。"     'ケースC
strTest(5) = "  10000.5個です。"    'ケースD
strTest(6) = "10000個です。"   'ケースE

MsgBox Val(strTest(1)) 'ケース@ 結果[0]
MsgBox Val(strTest(2)) 'ケースA 結果[10000]
MsgBox Val(strTest(3)) 'ケースB 結果[10000]
MsgBox Val(strTest(4)) 'ケースC 結果[10]
MsgBox Val(strTest(5)) 'ケースD 結果[10000.5]
MsgBox Val(strTest(6)) 'ケースE 結果[0]

'※Val関数 先頭から検索し数値でない場合は終了します。
'ケース@ 先頭文字が数値ではない場合、終了し[0]を返します。
'ケースA 結果[10000]
'ケースB 空白は無視して検索します。
'ケースC 桁区切りの[,]は数値とは認識しません。
'ケースD 少数点は認識します。
'ケースE 全角数字は認識しません。
'※文字列内に2つの数値があった場合は最初の数値だけ認識します。

End Sub





Production Japan Import Application. Since 1998