- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何在CSV文件中指定位置插入一行或多行 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=3686)
-- 发布时间：2009/7/24 9:17:00
-- 如何在CSV文件中指定位置插入一行或多行
有一个目录下有许多CSV纯文本文件，每个CSV文件有几百行数据，现想在每个文件中第六行插入一行或多行数据时后保存，如何实限。
-- 发布时间：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编辑过]
-- 发布时间：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)
随便写的，自己调试：
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
-- 发布时间：2009/7/24 10:25:00
--
Filesys.WriteAllText("文件名",s,True)
试试
-- 发布时间：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编辑过]
-- 发布时间：2009/7/24 10:47:00
--
Filesys.WriteAllText("文件名",s,false)
-- 发布时间：2009/7/24 11:28:00
--
1、按6楼修改后可以实现插入行。
2、如果要将路径 d:\\data\\ 所有文件进行插入行动作，流程语句怎样写？
-- 发布时间：2009/7/24 11:34:00
--
GetFiles
返回一个字符集合，该集合包括指定目录下的所有文件名。
语法：
GetFiles(directory)
directory: 指定的目录，获得该目录下所有的文件名。
例如列出C盘根目录下所有的文件名：
For
Each File As String In FileSys.GetFiles("C:\\")Output.Show(File)
Next
-- 发布时间：2009/7/24 11:44:00
--
运行后报错
此主题相关图片如下：test.jpg
-- 发布时间：2009/7/24 12:43:00
--
For Each File As String In FileSys.GetFiles("C:\\")