在不用数据库的情况下，怎么样记录文本框中的内容？

Question

在不用数据库的情况下，重新开机， 要求文本框中的内容还是原来的，包括里面的格式，（回车，换行等）

Answer 1

Public Function WirteFile(ByVal TXTFile As String, ByVal inText As String) As Long
    Dim fn As Integer
    fn = FreeFile
    Open TXTFile For Binary As #fn
        Put #fn, , inText
    Close #fn
End FunctionFunction ReadFile(TXTFile As String) As String
    Dim fn As Integer
    fn = FreeFile
    Open TXTFile For Binary Access Read As #fn
        ReadFile = Space(FileLen(TXTFile))
        Get #fn, , ReadFile
    Close #fn
End Function