请老师看看这样可行吗？能不能再简化点，看看会不会在后期运行期间有问题啊
Dim sa1 As String = "A01"
Dim fsc As String = "开piao数据"
Dim drU As DataRow
drU = DataTables("表C").Find("[执行编号] = '" & sa1 & "' And [分类] = '" & fsc & "'")
Dim dzml1 As String = drU("主文件夹目录")
Dim dzml2 As String = drU("次文件夹目录")
For Each f As String In FileSys.GetFiles(dzml2)
If f.EndsWith(".log") Then
Dim txt As String = FileSys.ReadAllText(f, Encoding.Default)
Dim idx As Integer = txt.IndexOf("<?xml version")
Dim idx2 As Integer = txt.IndexOf("</business>",idx)
Do While idx > -1 And idx2 > -1
Dim s2 As String = txt.SubString(idx,idx2-idx+11)
idx = txt.IndexOf("<?xml version",idx2)
If idx > -1
idx2 = txt.IndexOf("</business>",idx)
Else
idx2=-1
End If
Dim xmlDoc As New System.XML.XmlDocument
xmlDoc.Loadxml(s2)
Dim ndList1 = xmlDoc.GetElementsByTagName("kpxx")
If ndList1.count > 0
Dim ndList3 = ndList1(0).ChildNodes
Dim fpdm As String
Dim fphm As String
Dim ghdwmc As String
Dim ghdwdzdh As String
Dim ghdwsbh As String
Dim ghdwyhzh As String
Dim hjje As String
Dim hjse As String
Dim jshj As String
Dim bz As String
For s As Integer = 0 To ndList3.count - 1
If ndList3(s).Item("fpdm") IsNot Nothing Then fpdm = ndList3(s).Item("fpdm").InnerText
If ndList3(s).Item("fphm") IsNot Nothing Then fphm = ndList3(s).Item("fphm").InnerText
If ndList3(s).Item("ghdwmc") IsNot Nothing Then ghdwmc = ndList3(s).Item("ghdwmc").InnerText
Dim ndList2 = xmlDoc.GetElementsByTagName("fyxm")
Dim ndList = ndList2(0).ChildNodes
For i As Integer = 0 To ndList.count - 1
Dim spmc As String = ndList(i).Item("spmc").InnerText
Dim ggxh As String = ndList(i).Item("ggxh").InnerText
Dim sl As String = ndList(i).Item("sl").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 fpxhh As String = ndList(i).Attributes("xh").value
Dim r As DataRow = DataTables("表B").find("第一列 = '" & fpdm & "'And 第二列 = '" & fphm & "'And 第九列 = '" & fpxhh & "'")
If r Is Nothing Then r = DataTables("表B").addnew
r("第一列") = fpdm
r("第二列") = fphm
r("第三列") = ghdwmc
r("第四列") = spmc
r("第五列") = ggxh
r("第六列") = dw
r("第七列") = spsl
r("第八列") = dj
r("第九列") = fpxhh
r("第十列") = "str"
r("st") = FileSys.GetName(f)
Next
Next
End If
Loop
End If
Next
加好友 
发短信
Post By：2021/3/23 15:12:00 [只看该作者]
此主题相关图片如下：01.jpg