VB读取TXT文件内容

Question

点下按钮后，自动读取某目录下的TXT全部内容，该怎么写代码

Answer 1

'首先你的建立个a.txt的文件 然后随便写些什么 然后放到C盘根目录下 示例代码如下：
Private Sub Form_Click()
Open "c:\a.txt" For Input As #1
Do While Not EOF(1)
Input #1, b
Text1.Text = Text1.Text & b
Loop
End Sub

Answer 2

Private Sub Command1_Click()
Dim s As String
Open "c:\q.txt" For Binary As #1
s = input(LOF(1), #1)
Text1.Text = s
Close #1
End Sub
以上代码把txt文件内容读入s变量中，如果有text的话，赋值就可以了。具体文件名称即路径你可以根据你的需要改变。

Answer 3

看你要把读取的内容放到什么地方去
比如你是要把TEXTBOX1的内容放到TEXTBOX2中去
就直接写TEXTBOX2。TEXT=TEXTBOX1。TEXT就好了！！

Answer 4

dim s as string , _
r as string
dim n as integer

n=freefile

open path for input as #n
do until eof(n)
line input #1,r
s= s & r & vbcrlf
loop
close #n
text1.text=s

Answer 5

Private Sub Form_Click()
Open "c:\a.txt" For Input As #1
Do While Not EOF(1)
Input #1, b
Text1.Text = Text1.Text & b
Loop
Close #1
End Sub