Dim FileBuffer As New Collection
Const Filename = "c:\1.txt" '文件名自己改一下
Dim Text_1 As String
Dim Text_2 As String
Private Sub Read() '读入文件
'可以在窗体load事件中或按钮事件中读入文件:
Dim FileNumber As Integer
FileNumber = FreeFile
Open Filename For Input As #FileNumber
Dim strLine As String
Do Until EOF(FileNumber)
Line Input #FileNumber, strLine
FileBuffer.Add strLine
Loop '把文件行读入到集合中
Text1 = Split(FileBuffer.Item(3), "=")(1)
Text2 = Split(FileBuffer.Item(4), "=")(1) '写入文本框
Text_1 = Text1
Text_2 = Text2
Close #FileNumber
End Sub
'-----------------------------------
Private Sub Save() '保存文件
Dim a
a = Split(FileBuffer.Item(3), "=")
a(1) = Text1
FileBuffer.Remove 3
FileBuffer.Add Join(a, "="), , 3
a = Split(FileBuffer.Item(4), "=")
a(1) = Text2
FileBuffer.Remove 4
FileBuffer.Add Join(a, "="), , 4
Dim FileNumber As Integer
FileNumber = FreeFile
Open Filename For Output As #FileNumber
Dim i As Integer
For i = 1 To FileBuffer.Count
Print #FileNumber, FileBuffer.Item(i)
Next
Close #FileNumber
End Sub
'-----------------------------------------
Private Sub Form_Load()
Read '你也可以放在按钮事件中读取
End Sub
'--------------------------
Private Sub Form_Unload(Cancel As Integer)
If Text1 <> Text_1 Or Text2 <> Text_2 Then Save
End Sub
'---------------------------
Private Sub Text1_Validate(Cancel As Boolean)
If Text1 <> Text_1 Then
Save
Text_1 = Text1
End If
End Sub
'----------------------------
Private Sub Text2_Validate(Cancel As Boolean)
If Text2 <> Text_2 Then
Save
Text_2 = Text2
End If
End Sub
'如果仅仅是在关闭窗口时更新文件,把文本框CausesValidation设置为false,否则设为true
追问终于可以了.谢谢