共10 条记录, 每页显示 10 条, 页签: [1]

标题：如何在CSV文件中指定位置插入一行或多行

1楼

epilight 发表于：2009/7/24 9:17:00

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

2楼

狐狸爸爸 发表于：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编辑过]

3楼

epilight 发表于：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

4楼

lxl 发表于：2009/7/24 10:25:00

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

5楼

epilight 发表于：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)

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

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

[此贴子已经被作者于2009-7-24 10:41:58编辑过]

6楼

狐狸爸爸 发表于：2009/7/24 10:47:00

Filesys.WriteAllText("文件名",s,false)

7楼

epilight 发表于：2009/7/24 11:28:00

1、按6楼修改后可以实现插入行。

2、如果要将路径 d:\data\ 所有文件进行插入行动作，流程语句怎样写？

8楼

狐狸爸爸 发表于：2009/7/24 11:34:00

GetFiles

返回一个字符集合，该集合包括指定目录下的所有文件名。

语法：

GetFiles(directory)

directory: 指定的目录，获得该目录下所有的文件名。

例如列出C盘根目录下所有的文件名：

For Each File As String In FileSys.GetFiles("C:\")
Output.Show(File)
Next

9楼

epilight 发表于：2009/7/24 11:44:00

运行后报错

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

10楼

狐狸爸爸 发表于：2009/7/24 12:43:00

For Each File As String In FileSys.GetFiles("C:\")

共10 条记录, 每页显示 10 条, 页签: [1]