51Testing软件测试论坛

标题: cxuQTP的参数化的问题，该这么样的取解决！ [打印本页]

作者: tiger_86 时间: 2008-3-13 15:45
标题: cxuQTP的参数化的问题，该这么样的取解决！
现在我要进行QTP的参数化，我在机器上有一个 name.txt的文件
我要把里面的数据作为参数化的数据，
在里面的字，我想让它每3个作为一个数据进行参数化，
首先要读里面的数据，按照每3个字读一次，
现在请问：代码要怎么写！
谢谢各位！

作者: tiger_86 时间: 2008-3-13 16:52
请各位帮忙了！

作者: tiger_86 时间: 2008-3-13 16:53
请帮忙了啊！

作者: mustwangrong 时间: 2008-3-13 17:03
转为xls
每三个字一个column
估计不行，呵呵

作者: tiger_86 时间: 2008-3-14 16:15
应该有办法的，有大侠的帮忙吗？

作者: walker1020 时间: 2008-3-14 23:52
这是对文件的操作，楼主先搜索一下以前的类似帖子吧

作者: 小孩 时间: 2008-3-18 00:26
希望能帮到你
Public Function ReadTxt(ByVal filepath)
Const ForReading=1, ForWriting=2, ForAppending=8
Dim fso,fil,MyArray
Set fso=CreateObject("Scripting.FileSystemObject")
Set fil = fso.OpenTextFile(filepath,ForReading)
Do While Not fil.AtEndOfLine
MyArray=Split(fil.ReadLine,"=",-1,1)
AutoCalcTest trim(MyArray(0)),trim(MyArray(1))
Loop
fil.Close
Set fil=Nothing
Set fso=Nothing
End Function

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