51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 1770|回复: 4
打印 上一主题 下一主题

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

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2007-3-3 12:35:58 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
大家好!
    我想在外部建立一个文件为
123
234
234
234
请问怎样设置循环语句将每行的值输入到4个文本框中呢?
谢谢大家了
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2007-3-3 13:49:49 | 只看该作者
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 编辑 ]
回复 支持 反对

使用道具 举报

该用户从未签到

3#
 楼主| 发表于 2007-3-3 14:54:31 | 只看该作者
谢谢啊,请问用了qtp为什么系统变得超慢啊
回复 支持 反对

使用道具 举报

该用户从未签到

4#
 楼主| 发表于 2007-3-3 17:31:01 | 只看该作者
再小声的问一句,谢谢了,brower()....webedit().set array[1]这样给文本框赋值为什么不对啊
回复 支持 反对

使用道具 举报

该用户从未签到

5#
 楼主| 发表于 2007-3-3 17:56:33 | 只看该作者

感谢sidneylover

问题解决了,真是感激不敬啊
回复 支持 反对

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-14 12:39 , Processed in 0.066604 second(s), 28 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表