QTP环境变量的动态生成与加载
用过QTP的大概都知道，QTP里有不少内置环境变量，在我们自动化测试中，大概经常用到的内置环境变量有：
ActionName 返回当前运行的是哪一个Action
LocalHostName 返回当前QTP运行的计算机名称
ResultDir 返回当前Test的测试报告的保存地址，不包括最后的”\”
SystemTempDir 返回系统的临时目录的路径，不包括最后的”\”
TestDir 返回当前测试的绝对路径，不包括最后的”\”
TestName 返回当前运行的Test名称
还有很多其他的内置环境变量，以上列举的都是我们测试中会经常用到的内置变量，但是测试中，更重要的是一些我们自己定义的环境变量，会给我们的测试带来很大的方便，下面我们看看怎样动态地创建跟加载自定义的环境变量（静态创建跟加载的方式我就不多说了，在File-Settings-Environment里可以操作）。 我总结了下，目前自己创建的外部的环境变量的文件格式一共有三种，最常见的是xml格式，其次是ini格式，最后还有txt格式。其实以上我列举的顺序也是QTP默认读取的顺序，我把它叫做优先级，如果这三种文件里都有一个叫URL的变量，QTP会优先读取xml格式里的URL的值。不懂没关系，看代码，然后测一下就可以验证了。
代码如下，这里我主要实现了三种文件类型的生成与读写：
'动态写入txt格式环境变量
Public Function GenTxtEnvVar(byref txtVar,byval varName,byval varValue)
txtVar = txtVar + _
varName + "=" + varValue + vbcrlf
End Function
'动态写入ini格式环境变量
Public Function GenIniEnvVar(byref iniVar,byval varName,byval varValue)
iniVar = iniVar + _
varName + "=" + varValue + vbcrlf
End Function
'动态写入xml格式环境变量
Public Function GenXmlEnvVar(byref xmlVar,byval varName,byval varValue)
xmlVar = xmlVar + _
"<Variable>" + vbcrlf + _
"<Name>" + varName + "</Name>" + vbcrlf + _
"<Value>" + varValue + "</Value>" + vbcrlf + _
"</Variable>" + vbcrlf
End Function
'动态生成环境变量文件
Public Function GenEnvFile(pathName,strVar,fileType)
Dim envStreamFile
fileType = UCase(fileType)
'自定义保留对象syFSO，创建对象Scripting.FileSystemObject
'详情请参考我的上一篇文章
Set envStreamFile = syFSO.CreateTextFile(pathName)
Select Case fileType
Case "XML"
envStreamFile.Write "<Environment>" + vbcrlf + _
strVar + _
"</Environment>"
Case "INI","TXT"
envStreamFile.Write "[Environment]" + vbcrlf + strVar
Case Else
msgbox "File Type Wrong! Please make sure the file type in [txt,xml,ini]."
End Select
Set envStreamFile = nothing
'Set syFSO = nothing
End Function
'以下是测试代码
Dim txtVar
Dim xmlVar
Dim iniVar
GenTxtEnvVar txtVar,"url","http://www.baidu.com"
GenTxtEnvVar txtVar,"userAccount","sunyu_qinxi"
GenXmlEnvVar xmlVar,"url","http://www.testdao.com"
GenXmlEnvVar xmlVar,"userAccount","zzzzzsy"
GenIniEnvVar iniVar,"url","http://www.cnblogs.com/ryansunyu/"
GenIniEnvVar iniVar,"userAccount","态度决定测试"
GenEnvFile "D:\test.txt",txtVar,"txt"
GenEnvFile "D:\test.xml",xmlVar,"xml"
GenEnvFile "D:\test.ini",iniVar,"ini"
'加载环境变量文件，获取其中的值
Environment.LoadFromFile "D:\test.txt"
Environment.LoadFromFile "D:\test.ini"
Environment.LoadFromFile "D:\test.xml"
Print Environment.Value("url")
这是我生成的结果，在D盘里的三个文件：
我的测试结果是 显示的URL的结果为” http://www.testdao.com”
进一步验证了我之前说的所谓的优先级，有兴趣的大家可以试试。
要注意的是，ini格式的是在QTP早期版本使用的环境变量文件的格式，8.0版本之后就开始使用xml格式了，所以在8.0以后的版本中是无法静态加载ini格式的环境变量的。认真读代码的朋友也发现了，txt格式跟ini格式的文件必须具备一定的格式，就是一定要在文件头加”[Environment]”，否则程序会报错。
