Dim dlg As New OpenFileDialog
dlg.Filter = "文本文件|*.txt"
'Tables("表A").StopRedraw
If dlg.ShowDialog = DialogResult.OK Then
Dim strs As String = FileSys.ReadAllText(dlg.FileName, Encoding.Default)
strs = strs.Replace(vblf, "")
Dim rs() As String = strs.Split(vbcr)
For i As Integer = 1 To rs.Length - 2
Dim cs() As String = rs(i).Split(" ")
If cs.Length = 6 Then
'Dim dr As DataRow = DataTables("表A").Addnew()
Dim s As String = cs(0) & " " & cs(1)
Dim ss() As String = s.Split("=")
'dr(ss(0)) = ss(1).Trim("""")
Output.Show(ss(0) & "," & ss(1).Trim(""""))
For j As Integer = 2 To cs.Length - 1
Dim c1 As String = cs(j)
If c1.Trim() = "" Then Continue For
ss = c1.Split("=")
Output.Show(ss(0) & "," & ss(1).Trim(""""))
'dr(ss(0)) = ss(1).Trim("""")
Next
End If
Next
End If
'Tables("表A").ResumeRedraw
加好友 
发短信
Post By：2022/10/23 20:49:00 [显示全部帖子]
