该项目的一些简单的脚本的设计脚本如下所示;

vb的转义字符有如下：

 

成员

常数 等效 说明

CrLf

vbCrLf

Chr(13) + Chr(10)

回车/换行组合符。

Cr

vbCr

Chr(13)

回车符。

Lf

vbLf

Chr(10)

换行符。

NewLine

vbNewLine

Chr(13) + Chr(10)

换行符。

NullChar

vbNullChar

Chr(0)

值为 0 的字符。

n/a

vbNullString

值为 0 的字符串

与零长度字符串 ("") 不同；用于调用外部过程。

n/a

vbObjectError

-2147221504

错误号。用户定义的错误号应当大于该值。例如：

Err.Raise(Number) = vbObjectError + 1000

Tab

vbTab

Chr(9)

Tab 字符。

Back

vbBack

Chr(8)

退格字符。

FormFeed

vbFormFeed

Chr(12)

在 Microsoft Windows 中无用。

VerticalTab

vbVerticalTab

Chr(11)

在 Microsoft Windows 中无用。

 

打开文件，读入文件内容：

' VBScript\

Dim message Sub myPrint(msg)    Const ForReading = 1, ForWriting = 2, ForAppending = 8    Dim fso, f    Set fso = CreateObject("Scripting.FileSystemObject")    Set f = fso.OpenTextFile("D:\QTPscript.log", ForAppending, True)    f.Write "测试执行结果步骤: "&"时间："&now()&vbnewline&"测试信息："&msg&vbnewline    f.Close End Sub

其他的内容，以后在做整理。。。

本文转自hcy's workbench博客园博客，原文链接：http://www.cnblogs.com/alterhu/archive/2011/11/04/2235940.html，如需转载请自行联系原作者。