私は分割でこの問題を抱えています
数値を formatcurrency に変換したいのですが、文字が含まれています
例えば:
POC 1900
output :
POC $1,900.00
または
1900 POC
output :
$1,900.00 POC
ありがとうございました
正規表現を使用して、値を照合および置換します。
Dim str = "1900 POC" //Or "POC 1900"
Dim reg = New Regex("\d+")
Dim match = reg.Match(str)
If match.Success Then
str = reg.Replace(str, Decimal.Parse(match.Value).ToString("C"))
Console.WriteLine(str)
End If
編集:
文字列に数字の間にコンマ (,) が含まれている場合は、次のように置き換えます。
Dim str = "1,900 POC".Replace(",", "")
Dim strValue As String = "POC 1900"
Dim strOutput As String = String.Empty
Dim strNum As String() = strValue .Split(" ")
Dim strDisplay As String = String.Empty
For x As Integer = 0 To strNum.Length - 1
strDisplay = String.Concat(strDisplay, " ", IIf(IsNumeric(strNum(x)), FormatCurrency(Val(strNum(x)), 2), strNum(x)))
Next
strOutput = strDisplay