读取超过100M的文本文件 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 读取超过100M的文本文件

共有4009人关注过本帖树形打印复制链接主题：读取超过100M的文本文件

cglsg5076

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1010 积分：6496 威望：0 精华：0 注册：2015/2/25 23:14:00

读取超过100M的文本文件 发帖心情

Post By：2015/5/3 22:25:00 [只看该作者]

请问各位老师，foxtable能否读取超过100M大小的文本文件。我用以下的方法不行，是否有更好的办法。

Dim dlg As new OpenFileDialog

dlg.Filter = "TEXT|*.txt|DAT|*.dat|P294|*.p294"

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)

谢谢！

cglsg5076

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1010 积分：6496 威望：0 精华：0 注册：2015/2/25 23:14:00

Post By：2015/5/3 22:44:00 [只看该作者]

foxtable提示内存溢出。该如何处理？

大红袍01

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：88 积分：518 威望：0 精华：0 注册：2015/5/3 21:12:00

Post By：2015/5/3 22:56:00 [只看该作者]

Dim sr As new Io.StreamReader("d:\test.txt")
Dim line As String = sr.ReadLine()
Do While line IsNot Nothing
line = sr.ReadLine()
output.show(line)
Loop
sr.Close

cglsg5076

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1010 积分：6496 威望：0 精华：0 注册：2015/2/25 23:14:00

Post By：2015/5/3 23:18:00 [只看该作者]

谢谢指点，可是Io.StreamReader为什么在帮助文件里找不到？在哪里可以找到关于Io.StreamReader的资料？

大红袍01

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：88 积分：518 威望：0 精华：0 注册：2015/5/3 21:12:00

Post By：2015/5/3 23:31:00 [只看该作者]

https://msdn.microsoft.com/zh-cn/library/system.io.streamreader.aspx

http://www.baidu.com/s?ie=utf-8&f=8&rsv_bp=1&tn=monline_4_dg&wd=vb.net%20%E6%96%87%E6%9C%AC%E8%AF%BB%E5%86%99&rsv_pq=ca65c60f0009b5e0&rsv_t=55d9kDaYgV40BATCuVGkWx7IeZLhtoe9Fv6xX3Z9MjWW51skUii0rCSMij1z7yngxLSl&rsv_enter=1&inputT=2437&rsv_sug1=16&rsv_sug3=25&rsv_sug2=0&rsv_sug4=2999&rsv_sug=1

cglsg5076

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1010 积分：6496 威望：0 精华：0 注册：2015/2/25 23:14:00

Post By：2015/5/4 0:58:00 [只看该作者]

非常感谢指点！再问一个问题，如何从文件尾部向头部读取数据，而不是从头部向尾部读取数据？

大红袍01

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：88 积分：518 威望：0 精华：0 注册：2015/5/3 21:12:00

Post By：2015/5/4 9:02:00 [只看该作者]

以下是引用cglsg5076在2015/5/4 0:58:00的发言：
非常感谢指点！再问一个问题，如何从文件尾部向头部读取数据，而不是从头部向尾部读取数据？

不行，必须从头开始读取。

你可以临时保存读取的数据，读取完以后，再反向循环输出。

Bin

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/5/4 9:05:00 [只看该作者]

Dim path As String = "c:\MyTest.txt"

Try

If FileSYS.FileExists(path) Then

FileSYS.DeleteFile(path)

End If

Dim sw As IO.StreamWriter = New IO.StreamWriter(path)

sw.WriteLine("This")

sw.WriteLine("is some text")

sw.WriteLine("to test")

sw.WriteLine("Reading")

sw.Close()

Dim sr As IO.StreamReader = New IO.StreamReader(path)

Dim newValue As String

Dim oldValue As String

Do While sr.Peek() > 0

newValue = sr.ReadLine()

oldValue = IIF(newValue <> "" , newValue , oldValue)

Loop

sr.Close()

output.show(oldValue)

Catch e As Exception

output.show("The process failed:" & e.ToString())

End Try

cglsg5076

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1010 积分：6496 威望：0 精华：0 注册：2015/2/25 23:14:00

Post By：2015/5/4 14:25:00 [只看该作者]

多谢老师指点，我试试。

下一主题 >> << 上一主题

主题：读取超过100M的文本文件