51Testing软件测试论坛

标题: 读写配置文件(.ini) [打印本页]

作者: yurui829 时间: 2010-6-21 17:49
标题: 读写配置文件(.ini)
在一个QTP framework中，不可避免的要用到配置文件(.ini), 如何简单快捷的读写配置文件呢，我们可以通过两个API函数来控制。

例如：配置文件在D:\Project\Test\Test.ini目录下，格式如下：
[Automation]
Test=Value1
Test2=

可以通过以下语句来给配置文件中Test赋值, 参数不介绍了，一看就懂。
Extern.Declare micInteger,"WritePrivateProfileString","kernel32.dll","WritePrivateProfileStringA",micString,micString,micString,micString
Ret = Extern.WritePrivateProfileString("Automation", "Test", "Value1", "D:\Project\Test\Test.ini")

可以通过以下语句来读取配置文件中Test的值：
Extern.Declare micLong,"GetPrivateProfileString","kernel32","GetPrivateProfileStringA",micString, micString, micString, micString+micByRef, micLong, micString
Dim outparamter
Ret = Left(outparamter, Extern.GetPrivateProfileString("Automation", "Test", "", outparamter, 255, "D:\Project\Test\Test.ini"))
第三个参数指定的条目没有找到时返回的默认值。可设为空（""）
第四个参数指定一个字串缓冲区，用来存储读取的值
第五个参数指定装载到outparamter缓冲区的最大字符数量
返回值为outparamter缓冲区的字节数量

为方便期间，可以写成两个函数。

作者: k4124k 时间: 2010-6-21 22:07
总结：
QTP可以调用win32 API

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)