检测 VB.Net 中数字的文化，即小数点/千位分隔符的句点或逗号

Question

在 VB.Net 中，有没有一种方法可以自动检测数字的字符串表示形式的区域性？我将解释一下这种情况：

我们的 asp.net 网站接收船数据的 xml 数据源。大多数时候，价格的数字格式使用简单的非格式化整数，例如“999000”。这对我们来说很容易处理。

有时，千位分隔符用逗号，小数点用句点。另外，这也很好，因为我们的数据导入可以理解这一点。示例“999,000.00”。

我们开始从法国获取一些数据，其中一些价格是用句点和千位分隔符输入的，就像许多欧洲国家的做法一样。例如“999.000,00”。这就是我们的系统将其解释为九百九十九磅而不是预期的九十九万九千磅的地方。

不幸的是，数据源包含多种格式的价格，每种格式都没有任何文化指标。有谁知道任何内置的 .net 函数可以根据句点和逗号的位置自动检测字符串数字的区域性？

Answer 1

我发现一个线程< /a> 在 vbforums 上建议如何通过区域性获取小数点分隔符。

我制作了一个转换器，可以使用 oledb、excel 对象、mysql 等在不同文件之间进行转换。当我转换为 Excel 和 Access 文件时，使用“decimalSeparator”是使数字格式正常工作的解决方案。

Dim decimalSeparator As String = Globalization.CultureInfo.CurrentCulture.NumberFormat.NumberDecimalSeparator

cellValue = cellValue.Replace(".", decimalSeparator ).Replace(",", decimalSeparator )

Answer 2

据我所知，没有内置方法可以根据数字字符串确定 CultureInfo。我严重怀疑它是否会成为现实，因为没有 100% 安全的方法可以做到这一点。

在找到更好的解决方案（例如：发送方进行一些更改）之前，我想您能做的最好的事情就是分两步减少出错的机会：

1）输入数据清理和标准化 ：

Dim input as String = " 99 9.000,00 "
' This way you can remove unwanted characters (anything that is not a digit, and the following symbols: ".", "-", ",")
Dim fixedInput as String = Regex.Replace(input, "[^\d-,\.]", "")
' fixedInput now is "999.000,00"

2）猜测一下格式：

Dim indexOfDot as Integer = fixedInput.IndexOf(".")
Dim indexOfComma as Integer = fixedInput.IndexOf(",")
Dim cultureTestOrder as List(Of CultureInfo) = new List(Of CultureInfo)
Dim parsingResult as Double?
Try
    If indexOfDot > 0 And indexOfComma > 0 Then
        ' There are both the dot and the comma..let's check their order
        If indexOfDot > indexOfComma Then
            ' The dot comes after the comma. It should be en-US like Culture
            parsingResult = Double.Parse(fixedInput, NumberStyles.Number, CultureInfo.GetCultureInfo("en-US"))
        Else
            ' The dot comes after the comma. It should be it-IT like Culture
            parsingResult = Double.Parse(fixedInput, NumberStyles.Number, CultureInfo.GetCultureInfo("it-IT"))
        End If
    Else If indexOfDot = fixedInput.Length-3 Then
        ' There is only the dot! And it is followed by exactly two digits..it should be en-US like Culture
        parsingResult = Double.Parse(fixedInput, NumberStyles.Number, CultureInfo.GetCultureInfo("en-US"))
    Else If indexOfComma = fixedInput.Length-3 Then
        ' There is only the comma! And it is followed by exactly two digits..it should be en-US like Culture
        parsingResult = Double.Parse(fixedInput, NumberStyles.Number, CultureInfo.GetCultureInfo("it-IT"))
    End If
Catch
End Try
If Not parsingResult.HasValue Then
    Try
        ' There is no dot or comma, or the parsing failed for some reason. Let's try a less specific parsing.
        parsingResult = Double.Parse(fixedInput, NumberStyles.Any, NumberFormatInfo.InvariantInfo)
    Catch
    End Try 
End If
If Not parsingResult.HasValue Then
    ' Conversion not possible, throw exception or do something else
Else
    ' Use parsingResult.Value
End If

这种方式并不是100%安全，但它应该仍然比您当前的代码更好（并且至少在您提供的示例数据上按预期工作）。

Answer 3

不知道字符串可以格式化多少种不同方式的具体细节...这适用于您给出的三个示例

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim v As String = "999.123,45"
    Debug.WriteLine(foo(v))

    v = "999,123.45"
    Debug.WriteLine(foo(v))

    v = "999123"
    Debug.WriteLine(foo(v))
End Sub

Private Function foo(value As String) As Double
    Dim style As NumberStyles = NumberStyles.AllowThousands Or NumberStyles.AllowDecimalPoint
    Dim culture As CultureInfo = CultureInfo.InvariantCulture
    Dim rv As Double
    If Double.TryParse(value, style, culture, rv) Then
        Debug.WriteLine(",.Converted '{0}' to {1}.", value, rv)
    Else
        Dim styleES As NumberStyles = NumberStyles.AllowThousands Or NumberStyles.AllowDecimalPoint
        Dim cultureES As CultureInfo = CultureInfo.CreateSpecificCulture("es-ES")

        If Double.TryParse(value, styleES, cultureES, rv) Then
            Debug.WriteLine(".,Converted '{0}' to {1}.", value, rv)
        Else
            Throw New ArgumentException
        End If
    End If
    Return rv
End Function

Answer 4

'如果操作系统区域设置使用点作为小数点分隔符，则此变量为 True，在其他情况下为 false。

Dim bAmerican as boolean=Cdec("0,2") > 1

原帖：
https://www.linkedin.com/groups/8141257/8141257-6347113651027079171