【QTP】参数化

1、环境变量

1）设置自定义环境变量

2）调用

Environment("username")

2、文本

1）准备文本参数，放入脚本根目录下

2）调用

Const forread = 1
filepath = Environment("TestDir")&"\参数.txt"
Set fso = createObject("Scripting.FileSystemObject")
Set datafile = fso.OpenTextFile(FilePath,forread,false)
Do While datafile.AtEndOfLine<>true
	readstr = datafile.ReadLine
	datastr = split(readstr,",")
	MsgBox datastr(0)
Loop
datafile.close

3、Execl

1）准备execl参数，放入脚本根目录下

2）调用

filepath = Environment("TestDir")&"\参数.xls"
Set execlbook = createObject("Excel.Application")
Set execlsheet = createObject("Excel.Sheet")
Set myexeclbook = execlbook.WorkBooks.Open(filepath)
Set myexeclsheet = myexeclbook.WorkSheets("Sheet1")
getexeclrowcount = myexeclsheet.UsedRange.Rows.Count
For i = 2 To getexeclrowcount
	Msgbox myexeclsheet.cells(i,1)
Next
execlbook.Quit
set execlsheet = Nothing
Set execlbook = Nothing

4、XML

1）准备xml参数，放入脚本根目录下

2）调用

Dim xmlDoc
set xmldoc=CreateObject("microsoft.xmldom")
xmldoc.load(Environment("TestDir")&"/参数.xml")
Set Root=xmldoc.documentElement
For i = 0 To Root.childNodes.Length-1
	Set TestCases = Root.childNodes.Item(i)
	For j = 0 To TestCases.childNodes.Length-1
		Set TestCase = TestCases.childNodes.Item(j)
		If cstr(TestCase.nodeName)="username" Then
			Msgbox TestCase.text      
		End if                      
	Next
Next
Set root=nothing
Set xml=nothing