vb如何保存大量的TEXT文本？

Private Sub Form_Load()
Open "路径" For Input As #1 '读取路径到文本
While Not EOF(1)
Line Input #1, S
S1 = S1 & S & vbCrLf
Wend
Text1.Text = S1 '将读取内容放入文本框'
Close #1 '关闭#1号文件
End SubPrivate Sub Form_Unload(Cancel As Integer)
Open "路径" For Output As #1 '设定文件保存路径
Print #1, Text1.Text '把Text1内容保存到Open路径
Close #1 '关闭#1号文件
End Sub

先说下你需要哪种方案，再给你写代码。1、每个Text针对性保存单个文件2、所有Text内容均保存于同一个INI文件里

用VB的GetSettings和SaveSettings,具体请百度.

和那个问题一样
啊``
你要把字符串拼接起来要用
&
或
+
,记住,&可以用在任何地方,但是
+
不能用于纯数字字符串的拼接,可以修改为以下
dim
i
as
integer
dim
s
as
string
for
i
=
0
to
20
str
=
str
&
text1(i)
next
open
app.path
&
"\123.txt"
for
output
as
#1
print
#1,str
close
#1