| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 827 人关注过本帖
标题:本人是个菜鸟,请问一个问题
只看楼主 加入收藏
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
以下是引用313778676在2005-9-15 21:05:29的发言: 对不起,我是新手,请把这些用中文翻译一下好吗,帮帮忙 Private Sub Command1_Click() text1.Text ="" '先清空文本内容 Open "slore.txt" For Input As #1 '这句话就是打开slore.txt的文本文件#1为文件编号 Dim tep As String'声明字符串不用我说了吧? Do Until EOF(1)'循环读取直到读到文本文件的最后结束。 Line Input #1, tep'读取一行文本到tep的字符串变量中 Text1.Text = Text1.Text & tep & vbCrLf '忘了要加上~我都晕了这个我就不用说了吧? Loop Close #1'最后一定要关闭该文件,这样做是节省程序运行消耗的计算机资源。 End Sub
2005-09-15 22:19
slore
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1108
专家分:0
注 册:2005-7-1
收藏
得分:0 
呵呵,回复的不错。谢谢了。

快上课了……
2005-09-16 12:49
jxing
Rank: 1
等 级:新手上路
帖 子:79
专家分:0
注 册:2004-12-3
收藏
得分:0 
大多明白了,谢谢了 Text1.Text = Text1.Text & tep & vbCrLf 但是这句的 & tep & vbCrLf 不懂 本人没有学过VB,全是自学的
2005-09-16 13:39
slore
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1108
专家分:0
注 册:2005-7-1
收藏
得分:0 
vbcrlf是换行的意思。

快上课了……
2005-09-16 14:16
networkangle
Rank: 1
等 级:新手上路
帖 子:93
专家分:0
注 册:2005-4-22
收藏
得分:0 
论坛里有这么多好心人热心人

发展中国的程序开发有前途无量啊

迎着太阳的朝阳我们喝着咖啡
2005-09-16 20:15
jxing
Rank: 1
等 级:新手上路
帖 子:79
专家分:0
注 册:2004-12-3
收藏
得分:0 
懂了,谢谢好心人
2005-09-17 13:08
Oppenheimer
Rank: 1
等 级:新手上路
帖 子:52
专家分:0
注 册:2005-7-7
收藏
得分:0 
用FSO文件系统也可以。

爱编程,也爱吃红萝卜.
2005-09-17 14:10
快速回复:本人是个菜鸟,请问一个问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.045784 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved