QTP日志实践的几点总结

gzj_06

请教各位，我用下面的代码（参考1楼生成txt文件），在生成的log文件中怎么会有乱码，弄了半天也不知究竟是怎么回事
出现乱码主要是在追加文件的时候发生的，哪位帮帮忙，可以直接把我的代码拷到QTP中，注意scripting这个单词中的i有没有错，有错改一下，然后直接运行即可，在此先谢谢了！

1. Option Explicit
   
2. Const ForReading = 1, ForWriting = 2, ForAppending = 8
   
3. Dim fileSystemObj, fileSpec
   
4. Dim currentTime, currentDate, logName, logFile, message
   
5. currentDate = Date
   
6. currentTime = Time
   
7. logName = "log"
   
8. Set fileSystemObj = CreateObject("scripting.FileSystemObject")
   
9. fileSpec ="D:\" &logName& ".txt" 'change this according to your directory
   
10. If not (fileSystemObj.FileExists(fileSpec)) Then  
    
11. Set logFile = fileSystemObj.CreateTextFile(fileSpec, ForWriting, True)  
    
12. logFile.WriteLine ("#######################################################################")
    
13. logFile.WriteLine (currentDate & currentTime & " Test: " & environment.Value("TestName") )
    
14. logFile.WriteLine ("#######################################################################")
    
15. logFile.Close  
    
16. Set logFile = Nothing
    
17. End If
    
18. Set logFile = fileSystemObj.OpenTextFile(fileSpec, ForAppending, True)
    
19. message = "my message"
    
20. logFile.WriteLine ("##############################################")
    
21. logFile.WriteLine (message)
    
22. logFile.Close
    
23. Set logFile = Nothing
    
24. Set fileSystemObj = Nothing

复制代码

gzj_06

原因已经找到了，是Set logFile = fileSystemObj.CreateTextFile(fileSpec, ForWriting, True)里多了个ForWriting，去掉就对了

cxl216

收藏一下。

auto_tester

收藏～

mindy_1980

回复来收藏