0

我正在处理带有很多出生日期的 xml。XML 已加载到数据表中。我们需要的格式是“dd/MM/yyyy”日期很乱,例如“dd-MM-yyyy”或“dd.MM.yyyy”,所以我想写一个函数来自动纠正一组预定义的分隔符为正确的格式。所以我正在考虑做这样的事情_

但当然,这不仅仅是工作..我不能使用替换来替换数组。如果我能做到这一点,一切都会好起来的。希望有人可以指出解决方法。非常感谢。

Dim str As String = ""
Dim keywords() As String = {"-", "_", ".", "\"}

For Each x In dt.Rows
    str = x("DOB")
    If keywords.Contains(str) Then
        str = str.Replace(keywords, str)
    End If
Next
4

2 回答 2

0

我做到了..谢谢大家的帮助..希望它对其他人也有用..

    Public Function arrayReplace(ByVal dt As DataTable) As DataTable

    Dim str As String = ""
    Dim sep As String() = {"-", "_", ".", "\", "'"}
    For Each x In dt.Rows
        For i As Integer = 0 To Old.Length - 1
            str = x("DOB").Replace(sep(i), "/")
            x("DOB") = str
        Next
    Next
    Return dt

    End Function
于 2012-05-03T11:42:48.840 回答
0

这就是我使用文化的原因,然后我的问题就解决了。

Imports System.Globalization
Imports System.Threading

blah..blah..blah..

Threading.Thread.CurrentThread.CurrentCulture = New System.Globalization.CultureInfo("en-GB", False)
于 2012-05-03T09:16:35.087 回答