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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 拆分文件

共有2803人关注过本帖树形打印复制链接主题：拆分文件

cglsg5076

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

加好友

发短信

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

拆分文件

Post By：2020/6/26 11:17:00 [只看该作者]

请问老师，我有100万行数据的文本文件，要求拆分成5个20万行的文本文件，请问代码如何写？

linyunu1

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

加好友

发短信

等级：幼狐帖子：162 积分：1089 威望：0 精华：0 注册：2020/1/16 11:58:00

Post By：2020/6/26 13:38:00 [只看该作者]

参考

Dim dlg As New OpenFileDialog

dlg.Filter = "文本文件|*.txt"

If dlg.ShowDialog = DialogResult.OK Then

Dim fl As String = dlg.FileName

Dim sr As System.IO.StreamReader = New System.IO.StreamReader(fl,System.Text.Encoding.Default)

Dim line As String

Dim sb As new StringBuilder

Dim i As Integer = 0

Dim j As Integer = 0

Do Until sr.EndOfStream

if i = 10 then '每份的行数

line = sb.Tostring

Dim f As String = SpecialFolder.DesktopDirectory & "\" & j & ".txt"

FileSys.WriteAllText(f, line, False, Encoding.Default)

j += 1

i = 0

sb.Clear()

line = ""

else

sb.AppendLine(sr.ReadLine)

i += 1

end if

Loop

line = sb.Tostring

if line > "" then

Dim f As String = SpecialFolder.DesktopDirectory & "\" & j & ".txt"

FileSys.WriteAllText(f, line, False, Encoding.Default)

end if

sr.Close()

Msgbox("拆分完成")

End If

[此贴子已经被作者于2020/6/26 13:52:03编辑过]

cglsg5076

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

加好友

发短信

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

Post By：2020/6/26 16:55:00 [只看该作者]

谢谢老师，sb.clear()不对，clear不是stringbuilder成员，请问如何改正？注销他运行内存溢出。

linyunu

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

加好友

发短信

等级：童狐帖子：249 积分：1859 威望：0 精华：2 注册：2018/1/16 20:53:00

Post By：2020/6/26 17:12:00 [只看该作者]

我测试正常

linyunu

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

加好友

发短信

等级：童狐帖子：249 积分：1859 威望：0 精华：2 注册：2018/1/16 20:53:00

Post By：2020/6/26 17:13:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:test.txt

代码没改测试没问题

cglsg5076

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

加好友

发短信

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

Post By：2020/6/26 17:46:00 [只看该作者]

此主题相关图片如下：图片1.png

cglsg5076

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

加好友

发短信

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

Post By：2020/6/26 17:47:00 [只看该作者]

语法错误，老师

linyunu

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

加好友

发短信

等级：童狐帖子：249 积分：1859 威望：0 精华：2 注册：2018/1/16 20:53:00

Post By：2020/6/26 17:56:00 [只看该作者]

.NET Framework 要4.0或4.0 以上

linyunu

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

加好友

发短信

等级：童狐帖子：249 积分：1859 威望：0 精华：2 注册：2018/1/16 20:53:00

Post By：2020/6/26 17:58:00 [只看该作者]

或者试试sb.Remove(0, sb.Length)

cglsg5076

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

加好友

发短信

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

Post By：2020/6/26 18:21:00 [只看该作者]

不行，我的操作系统是win10，安装提示已经是.net framework4.0以上,安装 .net framework 4.5提示也是系统已经是 .net framework 4.5,编译程序，还是不行。

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

总数 13 1 2 下一页

主题：拆分文件

.NET Framework 要4.0或4.0 以上