如何更改文件

vaguely

请教大家如何在qtp中更改文件内容呢？

c:\abc.txt

原来是
####
orcal=true
####

####
#MySQL=true
#####

改为
####
#orcal=true
####

####
MySQL=true
#####

谢谢!

zhuyuancan

自己写脚本嘞

gzj_06

这个看来得要实现插入文本和删除文本的功能，期待高手的从天而降

风过无息

读和写有点问题啊...郁闷死了,弄了2小时没有什么进展.

vaguely

谢谢斑竹帮忙sdlkfj6

winfood

原帖由 vaguely 于 2007-8-17 18:04 发表
请教大家如何在qtp中更改文件内容呢？

c:\abc.txt

原来是
####
orcal=true
####

####
#MySQL=true
#####

改为
####
#orcal=true
####

####
MySQL=true
#####

谢谢!

这两天正在试用VbsEdit，发现里面有好多代码范例。找了一段关于文本文件操作的代码改了改，不知道能不能满足要求。

1. 
   
2. strFileName = "C:\test.txt"
   
3. Set objFS = CreateObject("Scripting.FileSystemObject")
   
4. '读出文件内容
   
5. Set objTS = objFS.OpenTextFile(strFileName, 1)
   
6. strContents = objTS.ReadAll
   
7. objTS.Close
   
8. 
   
9. '将文件内容转换为数组，逐行读出后根据需要进行修改并写会文件中
   
10. arrLines  = Split(strContents, vbNewLine)
    
11. Set objTS = objFS.OpenTextFile(strFileName, 2)
    
12. For i = 0 To UBound(arrLines)
    
13.     If InStr(1, arrLines(i), "orcal", 1) > 0 Then
    
14.         arrLines(i) = "#orcal=true"
    
15.     End If
    
16.     If InStr(1, arrLines(i), "MySQL", 1) > 0 Then
    
17.         arrLines(i) = "MySQL=true"
    
18.     End If       
    
19.     objTS.WriteLine arrLines(i)
    
20. Next
    

复制代码

vaguely

谢谢，我会试试

yabest

这种问题，简单点的，就是把整个文件内容读入字符串里，修改字符串内容，然后再把整个字符串覆盖写入原文件！

当然这个文件不能太大，几百M的就不好用这种方法了！
只能同时建立一个临时文件，然后读原文件一行内容，处理一下，然后写入临时文件。
这样循环处理每一行，直到全部处理完。再用临时文件覆盖原文件！

风过无息

用楼上的办法是可以的,不过感觉笨了,有没有别的办法呢?

方法如下:

1. Function Replace_str(oldstr,newstr)
   
2. Set fso = CreateObject("Scripting.FileSystemObject")
   
3. Set MyFilebak = fso.CreateTextFile("c:\testbak.txt", True)
   
4. MyFilebak.close
   
5. Set CreFile = fso.GetFile("c:\test.txt")
   
6. CreFile.Copy ("c:\testbak.txt")
   
7. Set MyFilebak=fso.OpenTextFile("c:\testbak.txt", 1, false)
   
8. Set theFile = fso.OpenTextFile("c:\test.txt", 2, True)
   
9. Do While MyFilebak.AtEndOfStream <> True
   
10.       retstring = MyFilebak.ReadLine
    
11.           If retstring=oldstr Then
    
12.                   theFile.WriteLine newstr
    
13. 
    
14.                   else
    
15.                             theFile.WriteLine retstring
    
16.           End If
    
17. 
    
18.    Loop
    
19.    MyFilebak.close
    
20. Set DelFile = fso.GetFile("c:\testbak.txt")
    
21. DelFile.Delete
    
22.    theFile.Close
    
23.    ReadEntireFile = retstring
    
24. End Function
    
25. 
    
26. Call Replace_str("#orcal=true","orcal=true")
    
27. Call Replace_str("MySQL=true","#MySQL=true")

复制代码

yabest

原帖由 风过无息 于 2007-8-18 16:15 发表
用楼上的办法是可以的,不过感觉笨了,有没有别的办法呢?

方法如下:
Function Replace_str(oldstr,newstr)
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFilebak = fso.CreateTextFile("c: ...

晕，你这不就是我说的第二种方法嘛

风过无息

不好意思，表诉不清楚，我的意思是你用的思路来实现了，但是希望有更好的方法．

昨天我实验的思路是每行读出来，遇到需要改的再写，不过没有实现呢．

yabest

部分改写文件内容的操作，不是很好处理的，还是另写到临时文件的比较简单！

vaguely

谢谢楼上各位的回答。我在试上面的方法。可是其实我要改的文件是.propertise的。
为什么qtp找不到 c:\test.preopertise文件呢？
对于c:\test.txt确可以找到。请大家再继续帮帮我吧。非常感谢！

vaguely

不好意思，我的问题是我自己写错了文件名造成的sdlkfj5 。现在文件可以被打开了。

walker1020

原帖由 vaguely 于 2007-8-19 10:32 发表
不好意思，我的问题是我自己写错了文件名造成的sdlkfj5 。现在文件可以被打开了。

测试一定要细心、细心、再细心！

vaguely

sdlkfj1  谢谢斑竹！