UC知道VB 通用对话框 语句问题
来源：百度知道 编辑：UC知道 时间：2024/06/14 09:23:54
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, inputdata
Text1.Text = Text1.Text + inputdata + vbCrLf
Loop
Close #1
完蛋了，每一行都看不懂，望高手解释下。。谢谢
除了基本属性方法外
#1
EOF
Line Input #1, inputdata
vbCrLf
都不懂。。
我是希望高手解释下每句话的意思。。。
Do While Not EOF(1)
Line Input #1, inputdata
Text1.Text = Text1.Text + inputdata + vbCrLf
Loop
Close #1
完蛋了，每一行都看不懂，望高手解释下。。谢谢
除了基本属性方法外
#1
EOF
Line Input #1, inputdata
vbCrLf
都不懂。。
我是希望高手解释下每句话的意思。。。
Open CommonDialog1.FileName For Input As #1
'以读方式打开文件，后面的文件号可以是任意的（范围在#1~#255之间）
Do While EOF(1)
‘循环开始，这个#1就代表你刚才打开的CommonDialog1.FileName
直到读到文件结尾时结束循环，eof()是判断文件结尾函数
Line Input #1, inputdata'读取一行到 inputdata
Text1.Text = Text1.Text + inputdata+vbCrLf
’在文件框text1中显示读取一行的内容，bCrLf表示回车换行，
loop ‘读完所有行结束
Close #1'关闭打开的文件
#1:文件号，读文件范围在#1~#255之间
EOF：文件结束标志，EOF（1）为真，表示到文件尾，
Line Input #1, inputdata 这是读文件，line是指行读
vbCrLf：回车换行
EASY
我写的
可以搞定你所说的问题
Private Sub Command1_Click()
Dim str1, Allstr
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
lineint# 1, str1
Allstr = Allstr + str1 + vbCrLf
Loop
Close #1
Text1.Text = Allstr
END IF
End Sub
希望可以帮助你
#1: 1号文件，用VB程序读文件时，首先程序会将文件编号，为#1，那么后续对此文件编辑