如何在CSV文件中指定位置插入一行或多行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何在CSV文件中指定位置插入一行或多行

共有21080人关注过本帖树形打印复制链接主题：如何在CSV文件中指定位置插入一行或多行

epilight

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

加好友

发短信

等级：婴狐帖子：20 积分：211 威望：0 精华：0 注册：2009/4/22 8:22:00

如何在CSV文件中指定位置插入一行或多行 发帖心情

Post By：2009/7/24 9:17:00 [只看该作者]

有一个目录下有许多CSV纯文本文件，每个CSV文件有几百行数据，现想在每个文件中第六行插入一行或多行数据时后保存，如何实限。

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2009/7/24 9:30:00 [只看该作者]

随便写的，自己调试：

Dim s As string
Dim p As Integer
s = Filesys.ReadAllText("文件名")
p = s.Indexof(ControlChars.NewLine,0,5)
s= s.substring(0,p) & ControlChars.NewLine & "新的移行" & ControlChars.NewLine & s.substring(p+2)
Filesys.WriteAllText("文件名",s)

[此贴子已经被作者于2009-7-24 9:30:37编辑过]

epilight

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

加好友

发短信

等级：婴狐帖子：20 积分：211 威望：0 精华：0 注册：2009/4/22 8:22:00

Post By：2009/7/24 9:53:00 [只看该作者]

以下是引用狐狸爸爸在2009-7-24 9:30:00的发言：
随便写的，自己调试：

Dim s As string
Dim p As Integer
s = Filesys.ReadAllText("文件名")
p = s.Indexof(ControlChars.NewLine,0,5)
s= s.substring(0,p) & ControlChars.NewLine & "新的移行" & ControlChars.NewLine & s.substring(p+2)
Filesys.WriteAllText("文件名",s)

[此贴子已经被作者于2009-7-24 9:30:37编辑过]

运行后不行，出现报错

此主题相关图片如下：test.jpg

lxl

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

加好友

发短信

等级：MVP荣誉狐帖子：858 积分：6071 威望：0 精华：19 注册：2008/9/1 9:13:00

Post By：2009/7/24 10:25:00 [只看该作者]

Filesys.WriteAllText("文件名",s,True)
试试

epilight

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

加好友

发短信

等级：婴狐帖子：20 积分：211 威望：0 精华：0 注册：2009/4/22 8:22:00

Post By：2009/7/24 10:40:00 [只看该作者]

试过还是不行，如果将代码改为如下可以运行，但是结果是在原数据结尾开始复制了原数据

Dim s As string
Dim p As Integer
s = Filesys.ReadAllText("d:\S010971210.CSV")
p = s.Indexof(ControlChars.NewLine,1)
s= s.substring(0,p) & ControlChars.NewLine & "新的移行" & ControlChars.NewLine & s.substring(p+2)
FileSys.WriteAllText("d:\S010971210.CSV",s,true)

现上传原始数据请测试，不知代码中参数如何调整。