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