Question

怎么使用VB打开文本文件？

我想用VB做一个程序，让他自动把一个文本文件里的内容读出来到窗体的文本框里写了下面的程序，但是总是提示“长度超出文件尾”，哪位高手帮我解决一下啊

Dim x As String
Open "g:\杂项\123.txt" For Input As #1
input #1, x
Close #1
text1.text=x

Answer 1

1、获取文本文件路径

2、通过流的方式打开文本文件

示例：

Dim MyString
Private Sub Command1_Click() ’按钮事件
  Open App.Path + "\Myfile.txt" For Input As #1  '打开文本文件，读取。
     Do While Not EOF(1)  '是否没到文件末尾
         Input #1, MyString   '读取文件内容
     Loop
  Close #1
End Sub

Answer 2

这样你换一种写法试一试：
dim x As String
open "g:\杂项\123.txt" for input as #1
DO while not eof(1)
line input #1,x
text1.text = text1.text & x & vbcrlf
loop
close #1
还有一种是：
open "g:\杂项\123.txt" for input as #1
text1.text = strconv(inputb(lof(2),#1),vbunicode)
close #1
不行的话 再问我

Answer 3

Dim x As String
Open "g:\杂项\123.txt" For Input As #1
Do While Not EOF(1) '此句为到文件尾时退出

Line input #1, x

text1.text=text1.text+x
loop
Close #1