UC知道VB文件保存问题
来源：百度知道 编辑：UC知道 时间：2024/04/28 15:39:20
text1(0)=01，02，03，04
text1(1)=10，16，19
text1(2)=11，17，19，22
text1(3)=26，19，20，26，29
text1(4)=11，18，19，20
这五个控数组，数值是从123.TXT文件导入的，
123.TXT文件如下:
01，02，03，04
10，16，19
11，17，19，22
26，19，20，26，29
11，18，19，20
把每一行导入到一个控件数组中,如:
也可以在控件数组修改,如果发现控件数组的文件有变化,就提示文件发现变化,再进行保存,
保存的方式也是每一个控件数组为一行的保存到123.txt
很简单呀，就是当控件数组发生变化后，提示是否保存，保存后的要以一个控件数组中的数值为一行的方式保存，
text1(1)=10，16，19
text1(2)=11，17，19，22
text1(3)=26，19，20，26，29
text1(4)=11，18，19，20
这五个控数组，数值是从123.TXT文件导入的，
123.TXT文件如下:
01，02，03，04
10，16，19
11，17，19，22
26，19，20，26，29
11，18，19，20
把每一行导入到一个控件数组中,如:
也可以在控件数组修改,如果发现控件数组的文件有变化,就提示文件发现变化,再进行保存,
保存的方式也是每一个控件数组为一行的保存到123.txt
很简单呀，就是当控件数组发生变化后，提示是否保存，保存后的要以一个控件数组中的数值为一行的方式保存，
代码：
Option Explicit
Private s(4) As String
Private Sub Command1_Click()
Dim i As Integer
Dim f As Integer
For i = 0 To 4
If s(i) <> Text1(i) Then
f = MsgBox("有修改，存盘否？", vbYesNo + vbExclamation, "警告")
If f = vbYes Then Exit For
End If
Next
If f = vbYes Then
Open "123.txt" For Output As #1
For i = 0 To 4
Print #1, Text1(i).Text
Next
End If
Close #1
End
End Sub
Private Sub Form_Load()
Dim i As Integer
Open "123.txt" For Input As #1
For i = 0 To 4
Line Input #1, s(i)
Text1(i) = s(i)
Next
Close #1
End Sub
说明：
1、窗体加载时读入123.txt 按行放入text1(0)～text1(4)
同时把初始数据存入数组s(i).
2、退出时，利用s(i)元素与text1(0)～text1(4)逐行比较
如果有不同说明有修改
3、有修改时，由用户决定是否存盘
见执行效果：
str=text1(0)&text1(1)&text1(2)&text1(3)&text1(4)
open "123.txt" for output as