主题：[求助]如何批量导入txt文件，并批量刷新

Dim ip as New Importer

ip.SourcePath = "c:\Data\" '指定目录

ip.SourceTableName = "订单" '指定要导入的文件“订单.txt”

ip.NewTableName ="订单" '导入后的表名

ip.Format = "Delimited" '指定导入格式

ip.Import()

Dim dlg As New FolderBrowserDialog

If dlg.ShowDialog = DialogResult.Ok Then

    For Each file As String In FileSys.GetFiles(dlg.SelectedPath)

        

        Dim strs As String = FileSys.ReadAllText(file)

        strs = strs.Replace(vblf,"")

        Dim rs() As String = strs.Split(vbcr)

        For i As Integer = 0 To rs.Length - 1

            Dim cs() As String = rs(i).Split(" ")

            If cs.Length = 7 Then

                Dim dr As DataRow = DataTables("股piao表").Addnew()

                dr("第一列") = cs(0)

                dr("第二列") = cs(1)

                dr("第三列") = cs(2)

                dr("第四列") = cs(3)

                dr("第五列") = cs(4)

                dr("第六列") = cs(5)

                dr("第七列") = cs(6)

            End If

        Next

        

    Next

End If

Dim dlg As New FolderBrowserDialog

If dlg.ShowDialog = DialogResult.Ok Then

    For Each file As String In FileSys.GetFiles(dlg.SelectedPath)

        If file.EndsWith(".txt") Then

            Dim strs As String = FileSys.ReadAllText(file)

            strs = strs.Replace(" ", ",")

            FileSys.WriteAllText(file, strs, False, Encoding.Default)

            

            Dim ip As New Importer

            Dim name = FileSys.GetName(file.SubString(0, file.length - 4))

            ip.SourcePath = dlg.SelectedPath

            ip.SourceTableName = name

            ip.NewTableName = name '导入后的表名

            ip.Format = "Delimited" '指定导入格式

            ip.Import()

        End If

    Next

End If

Dim dlg As New FolderBrowserDialog

If dlg.ShowDialog = DialogResult.Ok Then

    For Each file As String In FileSys.GetFiles(dlg.SelectedPath)

        If file.EndsWith(".txt") Then

            Dim strs As String = FileSys.ReadAllText(file)

            strs = strs.Replace(" ", ",")

            FileSys.WriteAllText(file, strs, False, Encoding.Default)

            

            Dim name = FileSys.GetName(file.SubString(0, file.length - 4))

            If DataTables.Contains(name) = False Then

                Dim ip As New Importer              

                ip.SourcePath = dlg.SelectedPath

                ip.SourceTableName = name

                ip.NewTableName = name '导入后的表名

                ip.Format = "Delimited" '指定导入格式

                ip.Import()

            Else

                msgbox(name & "表已经存在")

            End If

        End If

    Next

End If

Dim dlg As New FolderBrowserDialog

If dlg.ShowDialog = DialogResult.Ok Then

    For Each file As String In FileSys.GetFiles(dlg.SelectedPath)

        If file.ToLower.EndsWith(".txt") Then

            Dim strs As String = FileSys.ReadAllText(file)

            Dim title As String = "时间,开盘价,最高价,最低价,收盘价,成交量,金额" & vbCrLf

            If strs.StartsWith(title) = False Then

                strs = strs.Replace(" ", ",")

                strs = title + strs

                FileSys.WriteAllText(file, strs, False, Encoding.Default)

            End If

            

            Dim name = FileSys.GetName(file.SubString(0, file.length - 4))

            If DataTables.Contains(name) = False Then

                Dim ip As New Importer

                ip.SourcePath = dlg.SelectedPath

                ip.SourceTableName = name

                ip.NewTableName = name '导入后的表名

                ip.Format = "Delimited" '指定导入格式

                ip.Import()

            Else

                msgbox(name & "表已经存在")

            End If

        End If

    Next

End If