VB.NET读文本文件创建数据表

 

        Dim 数据表1 = 读文本到数据表(System.Environment.CurrentDirectory + "\\数据1.txt")
        Dim 数据表2 = 读文本到数据表(System.Environment.CurrentDirectory + "\\数据2.txt")

    Function 读文本到数据表(ByVal 文件路径 As String) As DataTable
        Dim aa = New DataTable
        Dim 文行 As String
        Dim 文件 = New IO.FileInfo(文件路径)
        If 文件.Exists Then
            Using 打开 = New IO.FileStream(文件路径, IO.FileMode.Open)
                Using 读取 = New IO.StreamReader(打开, System.Text.Encoding.GetEncoding("GB2312"))
                    While 读取.EndOfStream = False
                        文行 = 读取.ReadLine()
                        If 文行.IndexOf("ID") = 0 Then
                            For Each ss In 文行.Split("	")
                                aa.Columns.Add(ss)
                            Next ss
                        Else
                            aa.Rows.Add(文行.Split("	"))
                        End If
                    End While
                End Using
            End Using
        End If
        Return aa
    End Function