qtp写日志到txt中
来源:互联网 发布:手术网络直播 编辑:程序博客网 时间:2024/04/28 10:08
''''''''''''''''<<<<--------写日志文件到C盘
Dim num
Public Sub WriteLineToFile(message)
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fileSystemObj, fileSpec
Dim currentTime
environment.Value("Num_count")=environment.Value("Num_count")+1
currentDate = Date
currentTime = Time
testName = "qtplog"
Set fileSystemObj = CreateObject("scripting.FileSystemObject")
fileSpec ="C:\" &testName& ".txt"
If Not (fileSystemObj.FileExists(filespec)) Then
Set logFile = fileSystemObj.CreateTextFile(fileSpec, ForWriting, True)
logFile.WriteLine ("<监护坐席>片段处理记录信息如下:创建文件时间"&now()&"")
'logFile.WriteLine (currentDate & currentTime & " Test: " & environment.Value("TestName") )
logFile.WriteLine ("#######################################################################")
logFile.Close
Set logFile = Nothing
End If
Set logFile = fileSystemObj.OpenTextFile(fileSpec, ForAppending, False, True)
logFile.WriteLine (" 第"&environment.Value("Num_count")&"条片段处理信息-----》"&message&"")
logFile.Close
Set logFile = Nothing
Set fileSystemObj = Nothing
End Sub
'''''''''---------------------->>>>>>>>>>>结束日志
Dim num
Public Sub WriteLineToFile(message)
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fileSystemObj, fileSpec
Dim currentTime
environment.Value("Num_count")=environment.Value("Num_count")+1
currentDate = Date
currentTime = Time
testName = "qtplog"
Set fileSystemObj = CreateObject("scripting.FileSystemObject")
fileSpec ="C:\" &testName& ".txt"
If Not (fileSystemObj.FileExists(filespec)) Then
Set logFile = fileSystemObj.CreateTextFile(fileSpec, ForWriting, True)
logFile.WriteLine ("<监护坐席>片段处理记录信息如下:创建文件时间"&now()&"")
'logFile.WriteLine (currentDate & currentTime & " Test: " & environment.Value("TestName") )
logFile.WriteLine ("#######################################################################")
logFile.Close
Set logFile = Nothing
End If
Set logFile = fileSystemObj.OpenTextFile(fileSpec, ForAppending, False, True)
logFile.WriteLine (" 第"&environment.Value("Num_count")&"条片段处理信息-----》"&message&"")
logFile.Close
Set logFile = Nothing
Set fileSystemObj = Nothing
End Sub
'''''''''---------------------->>>>>>>>>>>结束日志
0 0
- qtp写日志到txt中
- 写日志到专案目录下的txt文件中
- 写文件到txt中
- QTP将错误信息写到数据库中
- 把语句写到txt文件中
- vbs 写txt日志
- QTP写文本到txt文件的Sub过程Sub TestResultLog
- C#中打日志导出日志到txt文本
- C# 写txt 文档日志
- matlab 写txt 保存日志
- Java实现将日志信息存到TXT中
- java异步写日志到文件中
- 多线程写到一个日志文件中
- 将数据库中的数据内容写到.txt中
- 怎样写一个增广矩阵到txt文件中
- QTP:.net中写文件
- 输出日志到txt示例
- 【QTP】FSO读取/写txt文本乱码解决方法
- Python 正则表达式查找特定XML Tag中的Attribute
- http头部信息详讲
- Servlet之Listener监听器
- 【Hibernate框架】Hibernate入门
- java I/O流学习(三)
- qtp写日志到txt中
- 设计模式之“创建型模式”
- Servlet中的文件上传
- iOS7 用户头像——圆形处理
- 现代C++中的预处理宏
- SwipeMenuListView使用详解
- iphone发送短信
- Filter过滤器
- Rserve与Java的跨平台通信