问个简单问题,送分100

holytiger 2003-06-01 11:29:01
TEXTBOX控件中读取TXT文本文件的例子,我从上面搜索倒的
open filename for input as #1
do until eof(1)
line input #1,value
text1.text=text1.text+value+vbcrlf
loop
close #1

这个#l是什么意思啊,怎么定义啊,不太懂,我是搞硬件的,
希望大家指导,一百分送出

另外如何把textbox里面的数据送到txt文本

...全文
23 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
holytiger 2003-06-01
  • 打赏
  • 举报
回复
2楼的好,回答及时,还是把分数给你,
送给热心的人!!
接分
dyx 2003-06-01
  • 打赏
  • 举报
回复
#1 是你为要打开的文件的编号,如果你同时打开多个文件,就要用不同的编号,不然会发生冲突。
在给你个我的例子,不用再考虑这个问题了
'打开readme文件
Dim Handle As Integer '打开文件的编号
Dim NameOfOpen As String '文件名
NameOfOpen = App.Path & "\readme.txt"
Handle = FreeFile '系统空闲的文件号
Open NameOfOpen For Binary As #Handle
TextReadme.Text = Input$(LOF(Handle), Handle)
Close #Handle
holytiger 2003-06-01
  • 打赏
  • 举报
回复
100分就这样浪费了?
liu584 2003-06-01
  • 打赏
  • 举报
回复
as #1 的#1可以是任何的有效名字,没什么特殊的意思
open filename for output as txtfile
print txtfile,text1.text
close txtfile

holytiger 2003-06-01
  • 打赏
  • 举报
回复
不好意思, dyx(天火) 回答的时候我正在结贴!!

我结贴太勤了

7,763

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧