关于qtp的参数化的问题！

tiger_86

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

雷声之前

什么文件?excel?word?txt?

tiger_86

我想读取 txt的文件！

zte_boy

建议你用excel管理，便于控制

tiger_86

我不知道这么样的去读文件来进行参数化！

andycai

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

可以使用Split方法

hsjzfling

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

dreamever

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

tiger_86

谢谢各位！我的问题现在解决了！虽然不是很完美，但是我相信经过我的修改
和不断的完善，这个问题会得到彻底的解决，完美的使用！
再次谢谢各位，
附录：个人写的代码！复制到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

谢谢楼上的将自己的技术给大家一起分享。

hxf

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

ls的不错。我要好好的学习了