UC知道VB 文本文件写入
来源：百度知道 编辑：UC知道 时间：2024/05/22 12:26:33
输入文件如
1
2
3
下次打开文件输入为
1 A
2 B
3 C
其中1和A之间是输入个TAB
这个该怎么写
DIM a（30） as string ，i as integer
Open App.Path & "\123.xls" For Output As #1
a(i) = Text1.Text
Print #1, a(i)
1
2
3
下次打开文件输入为
1 A
2 B
3 C
其中1和A之间是输入个TAB
这个该怎么写
DIM a（30） as string ，i as integer
Open App.Path & "\123.xls" For Output As #1
a(i) = Text1.Text
Print #1, a(i)
你得先读取这个文件的内容
加上新的信息然后再次写入文件
For Output 是直接覆盖原文件了
所以 你需要先读取原文件，再加上要写入的内容，
定义在数组里面，再输出