Question

VB 退出时保存text（我的text非常多）的内容下次打开时显示这次保存的内容

Answer 1

Dim sfn As String

Private Sub Form_Load()
Dim ss As String, s() As String
sfn = App.Path & "\textsave.txt"
If Dir(sfn) <> "" Then
Open sfn For Input As #1
Do Until EOF(1)
Line Input #1, ss
s = Split(ss, "^_^")
If UBound(s) = 2 Then
s(2) = Replace(s(2), "#_#", vbCrLf)
If s(1) <> "" Then
Me.Controls(s(0))(Val(s(1))).Text = s(2)
Else
Me.Controls(s(0)).Text = s(2)
End If
End If
Loop
Close #1
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim tt As Object, kk As String
If Dir(sfn) <> "" Then Kill sfn
Open sfn For Output As #1
For Each tt In Me.Controls
If TypeName(tt) = "TextBox" Then
kk = Replace(tt.Text, vbCrLf, "#_#")
If VarType(CallByName(Me, tt.Name, VbGet)) = vbObject Then
Print #1, tt.Name & "^_^" & tt.Index & "^_^" & kk
Else
Print #1, tt.Name & "^_^^_^" & kk
End If
End If
Next
Close #1
End Sub