cxuQTP的参数化的问题，该这么样的取解决！

tiger_86

现在我要进行QTP的参数化，我在机器上有一个 name.txt的文件
我要把里面的数据作为参数化的数据，
在里面的 字，我想让它每3个作为一个数据进行参数化，
首先 要读里面的数据，按照每3个字读一次，
现在请问：代码要怎么写！
谢谢各位！

tiger_86

请各位帮忙了！

tiger_86

请帮忙了啊！

mustwangrong

转为xls
每三个字一个column
估计不行，呵呵

tiger_86

应该有办法的，有大侠的帮忙吗？

walker1020

这是对 文件的操作，楼主先搜索一下以前的类似帖子吧

小孩

希望能帮到你
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