dim str as string
for i=0 to n '设有n+1个textbox
str=str & text1(i).text & ","
next
str=mid(str,1,len(str)-1)
'写入文件
open "c:\1.txt" for output as #1
print 31,str
close
'从文件中读
open "c"\1.txt" for input as #1
line output #1,str
v=split(str,",")
for i=0 to ubound(v)
text1(i).text=v(0)
next
Str=Read
text1.text=str
将文本框的内容写入文本文件中:
按你需要的顺序,依次写入文本文件中即可
反过来:
这需要你有一定的方法来分别送回哪个文本框,比如每个文本框的指定字数,或以特定的符号做为分界线来分别读取