51Testing软件测试论坛

标题: 如何在一个指定的TXT文件的指定位置中插入数据（该TXT文件本身是有数据的）？ [打印本页]

---

作者: binlanfang    时间: 2012-3-7 18:11
标题: 如何在一个指定的TXT文件的指定位置中插入数据（该TXT文件本身是有数据的）？
如何在一个指定的TXT文件的指定位置中插入数据（该TXT文件本身是有数据的）？

---

作者: mimmy    时间: 2012-3-7 19:38
1、分别获取指定位置前后的数据data1和data2
2、将要插入的数据与data1、data2进行连接，写入TXT

---

作者: binlanfang    时间: 2012-3-8 10:56
回复 2# mimmy


    我是新手，能有具体的实例不？

---

作者: yyc2164708    时间: 2012-3-8 14:07
回复 1# binlanfang 给你一个笨点的代码吧，希望帮到你，建议测试之前先备份好你的数据，不然...

1. '参数1: txt文件
   
2. '参数2: 在第几行后插入数据
   
3. '参数3: 插入数据内容
   
4. 
   
5. Call AddLine("C:\test.txt",2,"2")
   
6. 
   
7. Function AddLine(strPath,IntLine,strInput)
   
8.     Dim Fso,MyFile
   
9.     Set Fso = CreateObject("Scripting.FileSystemObject")
   
10.     '以只读的方式打开文件
    
11.     Set ReadFile = Fso.OpenTextFile(strPath,1,true)
    
12.         '以只写的方式打开文件
    
13.         Set WriteFile = Fso.OpenTextFile("NewFile.txt",2,true)
    
14.     '如果当前的指针不在整个文档的末尾，读取文本的整行内容
    
15.     Do Until ReadFile.AtEndOfStream
    
16.                 WriteFile.WriteLine ReadFile.ReadLine
    
17.         IntLine = IntLine - 1
    
18.         '判断光标是否已达到指定行，达到则退出函数        
    
19.         If IntLine = 0 Then
    
20.                    WriteFile.WriteLine strInput
    
21.         End If
    
22.     Loop
    
23.         ReadFile.Close
    
24.         WriteFile.Close
    
25.         Set Fso = Nothing
    
26. End Function

复制代码

---

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)

Powered by Discuz! X3.2