回复gaoxiaoyun286关于循环读取文件内容输入到文本框的问题

xiaonan

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

谢谢xiaonan,写的真是详细的很,又学到了*_*