Question

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

点击FORM1上的一个按钮弹出form2,在form2里编辑好text1.2.3.4.5......然后点击按钮1退出form2的时候保存这些内容在应用程序的文件夹。在下一次打开form2的时候text1.2.3.4.5....里的内容还是上一次编辑一的样？Form_Load()与Form_Unload()要怎么写？？

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

和那个问题一样
啊``
你要把字符串拼接起来要用
&
或
+
,记住,&可以用在任何地方,但是
+
不能用于纯数字字符串的拼接,可以修改为以下
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