Dim kjqs As New List(Of Integer)
Dim jh As New List(Of String)
Dim lg As New List(Of String)
Dim path As String = args(0)
Dim ls = args(1)
Dim gs() As String
Dim strs,qs1 As String
strs=Forms("main").Controls("TextBox2").text
strs = strs.Replace(vblf,"")
Dim ds() As String = strs.Split(vbcr)
For Q As Integer = 0 To ds.Length - 1
Dim fs() As String= ds(Q).Split("：")
If fs.Length = 2 Then
Dim qs As String =trim(fs(0))
Dim KJHMS() As String=trim(fs(1)).split(" ")
If kjhms.Length=6 Then
For Each file As String In FileSys.GetFiles(path)
If file.Contains(".txt") Then
ls.add(file)
strs = 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 = 2 Then
Dim lins As String =cs(0)
Dim N,j As Integer
n=0
j=0
For j=0 To 5
If lins.Contains(KJHMS(j)) Then
N=N+1
End If
Next
If cs(1).Contains(N) Then
kjqs.add(qs)
jh.add("错误点 " & file & " <" & i+1 & ">" )
End If
End If
Next
End If
Next
Else
MessageBox.Show("号码格式错误,请检查")
Exit For
End If
Else
MessageBox.Show(fs(0) & "数据格式错误,请检查")
Exit For
End If
Next
For Each p As String In FileSys.GetDirectories(path) '循环调用自身代码
Functions.Execute("多文件递归", p, ls)
Next
pxqs =kjqs.ToArray()
pxjh=jh.ToArray()
For k As Integer=0 To pxqs.length-1
MessageBox.Show( pxqs(k) & "：" & pxjh(k) )
Next
加好友 
发短信
Post By：2024/3/30 11:47:00 [只看该作者]
