请问怎样循环读入字符串到7个文本框中

gaoxiaoyun286

大家好!
    我想在外部建立一个文件为
123
234
234
234
请问怎样设置循环语句将每行的值输入到4个文本框中呢?
谢谢大家了

sidneylover

Const ForReading = 1,ForWriting =2
Dim fso,f
Dim myarray(5)
Set fso = createobject("Scripting.FileSystemObject") '创建对象
Set f=fso.OpenTextFile("d:\hello.txt",ForReading) '读文件
i = 1
While f.atendofline<>true ''是否最后一行
          
        myarray(i) = f.readline
        msgbox myarray(i)  '将每行内容保存在数组中
        i = i +1
Wend
f.close
Set fso = nothing

然后用SetTOProperty方法给文本框赋值

[ 本帖最后由 sidneylover 于 2007-3-3 14:02 编辑 ]

gaoxiaoyun286

谢谢啊,请问用了qtp为什么系统变得超慢啊

gaoxiaoyun286

再小声的问一句,谢谢了,brower()....webedit().set array[1]这样给文本框赋值为什么不对啊

gaoxiaoyun286

问题解决了,真是感激不敬啊