Question

vb中如何将文本导入textbox中?

我就要导入的文本内容如下：
PK
jk
hk
我用如下代码导入
Open wj.Text For Input As #1
Line Input #1, ip$
Close #1
xx.Text = ip$
Cls
Print "导入完成！"
可是xx.text中只能出现PK，其余的不能出现，如何让其全部导入呢？
xx.text是可以接受多行文本的，但为什么不能将内容全部导入呢？
wj.text中为文件路径

Answer 1

1.不用对待读文件内容做任何修改，想读多行就用循环：

Dim s As String
xx.Text = ""
FileName = wj.text
filenum = FreeFile() '返回可用文件号
Open FileName For Input As filenum
Do Until EOF(filenum) 'EOF：是否到文件尾
Line Input #filenum, s
xx.Text = xx.Text & Chr(13) & Chr(10) & s
Loop
Close (filenum)
Cls
Print "导入完成！"

原理：一行一行读，在文本框中一行一行追加，应该能懂吧

2.还有一特省事的方法：用richtextbox控件，一条语句：
RichTextBox1.LoadFile (wj.Text)
解决

Answer 2

一个命令按钮：然后新建一个txt文件 1.txt
Open "C:\1.txt" For Output As #1'引号内为文件路径
Print #1, Text1.Text '将数据写入到文件

Close #1

Answer 3

1。open语句中的 wj.text 是什么？
应该要求是能确定路径的文件名吧？
2。 不能要 line 句
3。文件中的文本要用双引号括起来。
像，
"PK
jk
hk"

为什么呢?因为用 output 写的文件在文本中它就用 " " 括起来的。

反正这样就能实现，可能也有别的原因。偶就不知道了。