QTP基本脚本设计（第一部分）

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

vb的转义字符有如下：

VB中的转义字符（回车、换行、Tab等）

 

成员
常数
等效
说明

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

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