51Testing软件测试论坛

标题: 回复gaoxiaoyun286关于循环读取文件内容输入到文本框的问题 [打印本页]

作者: xiaonan 时间: 2007-3-5 11:41
标题: 回复gaoxiaoyun286关于循环读取文件内容输入到文本框的问题
xiaonan,你好,想请教一个问题,就是怎样循环读入一个字符串到7个文本框中呢?
字符串是这样的:
WP-GSGR-JDY6A-ZGZTM-HF3WP-RBC3J-JPA5H,将这个字符串存入a.txt中,编辑为
WP
GSGR
.
.
.
相当于依次输入序列号到7个文本框中,我想通过循环实现,这样就不需要手动输入了每次.
我用 Dim fso, f, Msg,i

for  i=1 to 7
   Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)
ReadTextFileTest = f.Readline
browser().page().frame().webedit(ac i).set ReadTextFileTest
next

为什么不行呢?好像文本框也没有接受呢

回复:

首先,你要看看7个文本框的属性,如何来参数化.比如:我以前做过类似的WebEdit对象的输入.而这些对象的name属性的属性值正好是有规律的.是从name0依次往下,所以这里我把WebEdit对象用描述性编程的方式描述了.你可以看看是否也能类似操作.

Dim fso, MyFile,tmp,cname,i
Set fso = CreateObject("Scripting.FileSystemObject")                         '创建文件对象
Set MyFile= fso.OpenTextFile("c:\testfile.txt", 1 , False)                      '打开文件
'******************************循环读取文件内容,一行一行读取,直到到了文件结束********************************
Do While MyFile.AtEndOfLine <> True
Tmp = MyFile.ReadLine
i=0
cname="name"&i
browser().page().frame().WebEdit("type:=text","name:="&cname,"html tag:=INPUT").set Tmp
i=i+1
MyFile.Close

'******************************************************************************************************

作者: gaoxiaoyun286 时间: 2007-3-5 13:24
谢谢xiaonan,写的真是详细的很,又学到了*_*

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