Question

vb 如何用Open For Input As #1 打开text里指定的文件

Answer 1

说明：Text1用来指定路径，Picture1用来输出打开的衫坦内容
Dim FilePath as string
Dim TextLine as string
FilePath = Text1.text

Open FilePath For Input As #4
Do While Not EOF(4) ’EOF为文尾测试拦裂函数
Line Input #4, TextLine ’将读入的一行存到变量简塌闭TextLine中
Picture1.Print TextLine ’在Picture1中输出变量TextLine
Loop
close #4

Answer 2

dim str as string
Open text.text For Input As #1
input #1,str
close #1