51Testing软件测试论坛

标题: 关于qtp的参数化的问题！ [打印本页]

作者: tiger_86 时间: 2008-4-14 15:57
标题: 关于qtp的参数化的问题！
现在我想用qtp 读取我的电脑D盘上面的一个文件，我要用文件中的内容进行我的测试的参数化，
具体的要求是：
每三个字节读一次，也就是说：每三个字为一组
我这么样能在qtp中来实现这样的功能呢？
请各位赐教啊！

作者: 雷声之前 时间: 2008-4-14 16:19
什么文件?excel?word?txt?

作者: tiger_86 时间: 2008-4-14 17:18
我想读取 txt的文件！

作者: zte_boy 时间: 2008-4-14 17:30
建议你用excel管理，便于控制

作者: tiger_86 时间: 2008-4-14 17:54
我不知道这么样的去读文件来进行参数化！

作者: andycai 时间: 2008-4-14 17:57

原帖由 tiger_86 于 2008-4-14 15:57 发表
现在我想用qtp 读取我的电脑D盘上面的一个文件，我要用文件中的内容进行我的测试的参数化，
具体的要求是：
每三个字节读一次，也就是说：每三个字为一组
我这么样能在qtp中来实现这样的功能呢？
请各位赐教啊！ ...

可以使用Split方法

作者: hsjzfling 时间: 2008-4-14 18:18
若你的每3位间没有其它字符隔开，那么用split和用以下方法差不多
将txt中的内容读取出来赋给一个变量str，然后循环用
for i=0 to Len(str)/3-1
paraArr(i)=mid(str,1+i*3,3)
next

作者: dreamever 时间: 2008-4-14 18:49
同意七楼的代码；
其实在每段读取的内容之间加上一个分割符反而会更好，这样数据文件的可读性强，而且写代码的时候也会更方便

作者: tiger_86 时间: 2008-4-15 13:20
谢谢各位！我的问题现在解决了！虽然不是很完美，但是我相信经过我的修改
和不断的完善，这个问题会得到彻底的解决，完美的使用！
再次谢谢各位，
附录：个人写的代码！复制到qtp中就可以直接的使用！

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("d:\test.txt", 1)
Do While objFile.AtEndOfStream = False
strLine = objFile.Read(5)
objFile.Skip(3)
Loop

[ 本帖最后由 tiger_86 于 2008-4-15 13:21 编辑 ]

作者: hxf 时间: 2008-4-22 09:48
谢谢楼上的将自己的技术给大家一起分享。

作者: hxf 时间: 2008-4-22 10:38
Dim fso,myfile
Set fso=createobject("scripting.filesystemobject")
Set myfile=fso.opentextfile("c:\user.txt",1,false)
While myfile.AtEndOfStream <> True
a=myfile.ReadLine()
a1=a1+a
Wend
b=len(a1)
For i=0 to b/3-1
c=mid(a1,1+i*3,3)
msgbox c
Next
这个是我的方法。结合大家的建议。

作者: tiger_86 时间: 2008-4-29 11:15
ls的不错。我要好好的学习了

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