可能な形式の入力を使用しています
$1,200
20 cents/ inch
$10
これらをVBで数値に解析する方法はありますか? これらの数字も印刷しますか？
編集:正規表現は素晴らしいでしょう。
編集：特にVB 6
2209 次
3 に答える
3
VB6/VBA または VB.net のことですか? VB6 または VBA では、必要な数値の種類に応じてCLng()
Orを実行できます。CDec()彼らは最初のドル記号とコンマを問題なく処理します。20セント/インチを扱うには、おそらく次のようにする必要があります
CLng(split("20 cents / inch", " ")(0))
これらの関数は、変換できない場合、型変換エラーをスローします。それをトラップして、失敗した場合は別の方法で変換してみることができます。
数値部分を返す Val という関数もあります。のような型変換エラーは発生しませんCDec。ただし、数値以外の入力も処理しません。文字列が数字で始まる限り、文字列内の数字の 10 進値が得られます。末尾の文字は無視されます。
于 2008-10-23T19:24:18.703 に答える
1
ええと...あなたが望むのは数字だけだと仮定すると、正規表現を使用して、数字以外を単純に「」に置き換えます。
プロジェクトで Microsoft VBScript 正規表現を参照する必要があります。次に、テキストが strTest という変数にあるとします。これは、テストされていないコードの一部です。
Dim oRE As Object
Set oRE = New VBScript_RegExp.RegExp
oRe.Pattern = "\D"
strTest = oRE.Replace(strTest, "")
于 2008-10-23T19:07:07.477 に答える
1
場合によっては力ずくでやるしかない！
以下は、数値を含む文字列を受け取り、分数、M または B サフィックスなどで適切に処理された数値を返すルーチンです。i を変更して、特別な条件またはテキスト代数 (マイル/時、セント/インチなど) を処理できます。
これは、本番アプリケーションの 1 つから取られるため、エラー ハンドラ (ERHandler) と標準の終了ルーチンで使用する行番号です。
Function GetNumberFromString(s As String) As Currency
12800 Const ProcID = "GetNumberFromString"
12810 Dim c As String
12820 Dim d As Integer
12830 Dim Denominator As Double ' currency only handles 4 places
12840 Dim HaveDec As Boolean
12850 Dim HaveSlash As Boolean
12860 Dim HaveSpace As Boolean
12870 Dim i As Integer
12880 Dim LenV As Integer
12890 Dim NegMult As Integer
12900 Dim Numerator As Currency
12910 Dim TempVal As Currency
12920 Dim v As String
'Provides the functionality of VAL, but handles commas, fractions
' also million and billion
12930 On Error GoTo ErrLbl
12940 oLog.LogProcEntry ModuleID, ProcID, "v=" & v
12950 v = Trim(s)
12960 LenV = Len(v)
12970 If LenV = 0 Then
12980 GetNumberFromString = 0
12990 GoTo ExitProc
13000 End If
13010 TempVal = 0
13020 d = 0
13030 NegMult = 1
'
13040 For i = 1 To LenV
13050 c = Mid(v, i, 1)
13060 Select Case c
Case "0" To "9"
13070 If HaveSpace Then
13080 If Not HaveSlash Then
13090 Numerator = 10 * Numerator + Asc(c) - 48
13100 Else
13110 Denominator = 10 * Denominator + Asc(c) - 48
13120 End If
13130 ElseIf Not HaveDec Then
13140 TempVal = 10 * TempVal + Asc(c) - 48
13150 Else
13160 TempVal = TempVal + ((Asc(c) - 48)) / (10 ^ d)
13170 d = d + 1
13180 End If
13190 Case ",", "$"
' do nothing
13200 Case "-" 'let handle negatives ns 12/20/96
13210 NegMult = -1 * NegMult
13220 Case "(" 'let handle negatives mt 6/9/99
13230 NegMult = -1 * NegMult
13240 Case "."
13250 HaveDec = True
13260 d = 1
13270 Case " "
13280 HaveSpace = True
13290 d = 1
13300 Case "/"
13310 HaveSlash = True
13320 If Not HaveSpace Then
13330 HaveSpace = True
13340 Numerator = TempVal
13350 TempVal = 0
13360 End If
13370 Case "b", "B"
13380 If UCase(Mid(v, i, 7)) = "BILLION" Then
13390 TempVal = TempVal * 1000000000#
13400 Exit For
13410 End If
13420 Case "m", "M"
13430 If UCase(Mid(v, i, 7)) = "MILLION" Then
13440 TempVal = TempVal * 1000000#
13450 Exit For
13460 End If
13470 Case Else
' ignore character/error
13480 End Select
13490 Next i
13500 If HaveSlash And Denominator <> 0 Then
13510 TempVal = TempVal + Numerator / Denominator
13520 End If
13530 GetNumberFromString = TempVal * NegMult
ExitProc:
13540 oLog.LogProcExit ModuleID, ProcID
13550 Exit Function
ErrLbl:
13560 Debug.Print Err.Description, Err.Number
13570 Debug.Assert False
13580 ERHandler ModuleID, ProcID
13590 Resume
End Function
于 2008-10-23T22:01:34.067 に答える