Dim dlg As new OpenFileDialog dlg.Filter = "文本文件|*.txt" Tables("成绩").StopRedraw If dlg.ShowDialog = DialogResult.OK Then Dim strs As String = FileSys.ReadAllText(dlg.FileName,encoding.default) Dim rs() As String = strs.replace(chr(10), "").Split(chr(13)) For Each s As String In rs Dim i As Integer = 0 Dim nr As Row For Each ss As String In s.split(" ") If ss > "" Then If i = 0 Then nr = Tables("成绩").addnew nr("代码") = ss ElseIf i = 1 Then nr("姓名") = ss ElseIf i= 2 Then nr("成绩") = ss End If i += 1 End If Next Next End If Tables("成绩").ResumeRedraw
|