Question

需要帮助格式化.net中的数据表，在vb.net下面给出代码

Dim dt As New DataTable
            dt.Columns.Add("a", GetType(System.String))
            dt.Columns.Add("b", GetType(System.String))

            dt.Rows.Add("N/A", "22")
            dt.Rows.Add("99", "22.3")
            dt.Rows.Add("Not Available", "#Error")
            dt.Rows.Add("5.5", "10")

'需要建议转换.net c＃/ vb中的数据表

'将数据表的所有非数值转换为NULL，尝试避免使用正则表达式循环和更新每一行

            'Result dt
            'a      b       
            'null   22
            '99     22.3
            'null   null
            '5.5    10

Answer 1

如果你不需要表格来包含非数字值，并且不像这样得到它，你可以编写自己的方法来添加行，如果它们是在数字与否。

否则我想不出任何阻止循环的事情，如果你不想因为某些原因使用正则表达式，你可以检查转换是否可行（Convert.ToDouble）

Answer 2

发布工作代码（vb）

 Dim dt As New DataTable
            dt.Columns.Add("a")
            dt.Columns.Add("b")
            dt.Columns.Add("c")

Dim typeList As New List(Of Type)
            typeList.Add(GetType(Integer))
            typeList.Add(Nothing)
            typeList.Add(GetType(Decimal))

            dt.Rows.AddRow(typeList, {10, "23ff", "Test if Numeric 45.6"})
            dt.Rows.AddRow(typeList, {"Ten", "We are here", "89"})

扩展方法是

<System.Runtime.CompilerServices.Extension()> _
    Public Sub AddRow(dr As DataRowCollection, ByRef objTypeConversion As List(Of Type), objValue As Object())
        Dim length = objTypeConversion.Count

        If length <> objValue.Length Then
            Throw New Exception("Data Types must be provided for all Values")
        End If

        Dim _n As Integer = 0
        objTypeConversion.ForEach(Function(t)
                                      If t IsNot Nothing Then
                                          Try
                                              Dim converter = TypeDescriptor.GetConverter(t)
                                              If converter IsNot Nothing Then
                                                  objValue(_n) = CTypeDynamic(converter.ConvertFrom(objValue(_n)), t)
                                              End If
                                          Catch ex As Exception
                                              objValue(_n) = DBNull.Value
                                          End Try
                                      End If
                                      _n = _n + 1
                                  End Function)

        'Logic to convert into provided datatype
        dr.Add(objValue)
    End Sub

.net：DataTable将数据表的所有非数值设置为NULL

2 个答案: