主题：请问我有一个文件，如何导入

高速合并，不是可以合并xml文件吗？

用代码也可以，比如代码

参考代码

Dim dlg As new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
    Dim txt As String = FileSys.ReadAllText(dlg.FileName, Encoding.Default)
    Dim idx As Integer = txt.IndexOf("</business>")
    Dim s1 As String = txt.SubString(0, idx+11)
    Dim s2 As String = txt.SubString(idx+12)
    'output.show(s1)
    'output.show(s2)
   
    Dim xmlDoc As New System.XML.XmlDocument
    xmlDoc.Loadxml(s1)
    Dim ndList  = xmlDoc.GetElementsByTagName("input")
   
    For i As Integer = 0 To ndList.count - 1
        Dim id As String = ndList(i).Item("fphm").InnerText
        output.show(id)
    Next
   
End If

没看懂你想做什么

Dim dlg As new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
    Dim txt As String = FileSys.ReadAllText(dlg.FileName, Encoding.Default)
    Dim idx As Integer = txt.IndexOf("</business>")
    Dim s1 As String = txt.SubString(0, idx+11)
    Dim s2 As String = txt.SubString(idx+12)
    msgbox(s1)
    msgbox(s2)
   
    Dim xmlDoc As New System.XML.XmlDocument
    xmlDoc.Loadxml(s1)
    Dim ndList  = xmlDoc.GetElementsByTagName("input")
   
    For i As Integer = 0 To ndList.count - 1
        Dim fphm As String = ndList(i).Item("fphm").InnerText
        msgbox(fphm)
        Dim xhdwmc As String = ndList(i).Item("xhdwmc").InnerText
        msgbox(xhdwmc)
    Next
   
End If

多条的话，内容是怎样的，文件是怎样的？

参考代码

Dim dlg As new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
    Dim txt As String = FileSys.ReadAllText(dlg.FileName, Encoding.Default)
    Dim idx As Integer = txt.IndexOf("</business>")
    Dim s1 As String = txt.SubString(0, idx+11)
    Dim s2 As String = txt.SubString(idx+12)
    msgbox(s1)
    msgbox(s2)
   
    Dim xmlDoc As New System.XML.XmlDocument
    xmlDoc.Loadxml(s1)
   
    Dim ndList  = xmlDoc.GetElementsByTagName("input")
   
    For i As Integer = 0 To ndList.count - 1
        Dim fphm As String = ndList(i).Item("fphm").InnerText
        msgbox(fphm)
        Dim xhdwmc As String = ndList(i).Item("xhdwmc").InnerText
        msgbox(xhdwmc)
    Next
   
    ndList = xmlDoc.GetElementsByTagName("fyxm")(0).ChildNodes
   
    For i As Integer = 0 To ndList.count - 1
        Dim spmc As String = ndList(i).Item("spmc").InnerText
        msgbox(spmc)
        Dim spsl As String = ndList(i).Item("spsl").InnerText
        msgbox(spsl)
    Next
   
End If

单个

Dim dlg As new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
    Dim txt As String = FileSys.ReadAllText(dlg.FileName, Encoding.Default)
    Dim idx As Integer = txt.IndexOf("</business>")
    Dim s1 As String = txt.SubString(0, idx+11)
    Dim s2 As String = txt.SubString(idx+12)
   
    Dim xmlDoc As New System.XML.XmlDocument
    xmlDoc.Loadxml(s1)
   
    Dim ndList  = xmlDoc.GetElementsByTagName("input")
    Dim fphm As String
    Dim xhdwmc As String
    For i As Integer = 0 To ndList.count - 1
        fphm = ndList(i).Item("fphm").InnerText
        xhdwmc = ndList(i).Item("xhdwmc").InnerText
    Next
   
    ndList = xmlDoc.GetElementsByTagName("fyxm")(0).ChildNodes
   
    For i As Integer = 0 To ndList.count - 1
        Dim spmc As String = ndList(i).Item("spmc").InnerText
        Dim se As String = ndList(i).Item("se").InnerText
        Dim dw As String = ndList(i).Item("dw").InnerText
        Dim spsl As String = ndList(i).Item("spsl").InnerText
        Dim dj As String = ndList(i).Item("dj").InnerText
        Dim je As String = ndList(i).Item("je").InnerText
        Dim r As Row = Tables("表A").AddNew
        r("第一列") = fphm
        r("第二列") = xhdwmc
        r("第三列") =spmc
        r("第四列") =spsl
        r("第五列") = dw
        r("第六列") = se
        r("第七列") = dj
        r("第八列") = je
       
    Next
   
End If

参考代码，导入比较耗时

Dim dlg As new FolderBrowserDialog
If dlg.ShowDialog = DialogResult.Ok Then
    Tables("表a").StopRedraw
    For Each dir As String In FileSys.GetDirectories(dlg.SelectedPath)
        For Each f As String In FileSys.GetFiles(dir)
            If f.EndsWith(".log") Then
                Dim txt As String = FileSys.ReadAllText(f, Encoding.Default)
                Dim idx As Integer = txt.IndexOf("</business>")
               
                Dim s1 As String = txt.SubString(0, idx+11)
                Dim s2 As String = txt.SubString(idx+12)
                Dim xmlDoc As New System.XML.XmlDocument
                xmlDoc.Loadxml(s1)
               
                Dim ndList  = xmlDoc.GetElementsByTagName("input")
               
               
                Dim fphm As String
                Dim xhdwmc As String
                For i As Integer = 0 To ndList.count - 1
                    If ndList(i).Item("fphm") IsNot Nothing Then fphm = ndList(i).Item("fphm").InnerText
                    If ndList(i).Item("xhdwmc") IsNot Nothing Then xhdwmc = ndList(i).Item("xhdwmc").InnerText
                Next
                If fphm <> Nothing Then
                    ndList = xmlDoc.GetElementsByTagName("fyxm")(0).ChildNodes
                    For i As Integer = 0 To ndList.count - 1
                        Dim spmc As String = ndList(i).Item("spmc").InnerText
                        Dim se As String = ndList(i).Item("se").InnerText
                        Dim dw As String = ndList(i).Item("dw").InnerText
                        Dim spsl As String = ndList(i).Item("spsl").InnerText
                        Dim dj As String = ndList(i).Item("dj").InnerText
                        Dim je As String = ndList(i).Item("je").InnerText
                        Dim r As Row = Tables("表A").AddNew
                        r("第一列") = fphm
                        r("第二列") = xhdwmc
                        r("第三列") =spmc
                        r("第四列") =spsl
                        r("第五列") = dw
                        r("第六列") = se
                        r("第七列") = dj
                        r("第八列") = je
                       
                    Next
                End If
            End If
        Next
    Next
    Tables("表a").ResumeRedraw
End If

测试，没问题，请看15楼。

肯定是你有重复的文件导致的。