Dim dlg As new OpenFileDialog
dlg.Filter = "文本文件|*.txt"
Tables("SNMAC临时").StopRedraw
If dlg.ShowDialog = DialogResult.OK Then
Dim strs As String = FileSys.ReadAllText(dlg.FileName)
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(vbtab)
If cs.Length = 3 Then
Dim dr As DataRow = DataTables("SNMAC临时").Addnew()
dr("dat") = cs(0)
dr("sn") = cs(1)
dr("mac") = cs(2)
End If
Next
End If
Tables("SNMAC临时").ResumeRedraw
这个txt每列是怎么分割的？好像不是tab。应该怎么处理？
加好友 
发短信
Post By：2018/10/26 18:12:00 [只看该作者]
