- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 编码合并文本文件jf ,出现的问题如何解决 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=140102)
-- 发布时间：2019/8/29 13:48:00
-- 编码合并文本文件jf ,出现的问题如何解决
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)
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 = 4 Then
Dim
dr As DataRow =
DataTables("表A").Addnew()
dr("第一列") =
cs(0)
dr("第二列") =
cs(1)
dr("第三列") =
cs(2)
dr("第四列") =
cs(3)
End
If
Next
End If
Tables("表A").ResumeRedraw
编码合并文本文件jf ,出现的问题如何解决
提示错误
此主题相关图片如下：tim截图20190829133656.png
-- 发布时间：2019/8/29 14:36:00
--
这个提示是文件被其它程序锁定，无法打开使用。最好是把文件复制出来放到D盘等，不要直接使用这种目录的文件
-- 发布时间：2019/8/30 11:44:00
--
感谢您的回复，我把文件复制到D盘下面，执行代码后，提示如下信息：
此主题相关图片如下：tim截图20190830113319.png
我点击确定后，表A就成如下图了：
此主题相关图片如下：tim截图20190830113331.png
-- 发布时间：2019/8/30 13:52:00
--
文件太大，内存溢出了。看看这个：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=91737&replyID=&skin=1
-- 发布时间：2019/8/30 16:42:00
-- 如何把读取到的每一行，按列分别录入到表中？
Dim dlg As new OpenFileDialog
dlg.Filter = "文本文件|*.txt"
Tables("表A").StopRedraw
If dlg.ShowDialog = DialogResult.OK Then
Using sr As IO.StreamReader = New IO.StreamReader(dlg.FileName) \'直接从文件路径生成\'
Dim line As String = sr.ReadLine() \'读取一行
\'\\\\\\
Do While line IsNot Nothing \'如果不为空.为空说明读取完毕,结束循环
line = sr.ReadLine() \'读取下一行
请问如何把读取到的每一行，按列分别录入到表中？
Loop
End Using
End If
-- 发布时间：2019/8/30 16:47:00
--
看每一行是什么分隔符