以下是引用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