疑难问题答疑！请高手帮忙！谢谢！万分感谢！

[MOTOHEBE]

我用TXT文本做了个系统日志，也就是我打开我做的程序时，她会自动把登陆信息日期时间都保存到这个TXT格式的系统日志中，可最近却发现，当系统日志到300K左右的时候，打开程序会变的非常的慢，请问这是什么原因？如何解决？望各位高手指点一、二，也好让我有所进步！谢谢先！有什么程序可以让她到300K时，自动保存为当时日期的一个副本。

[iisbsd]

写日志的代码贴出来？

另外，如果日志太大，可以按天甚至按小时切割，分析日志的时候也方便。

[云水千寻]

同病相怜
小异大同
帮顶

[MOTOHEBE]

Dim c
Open (App.Path & "\系统日志.ini") For Input As #1
Do While Not EOF(1)
Line Input #1, Intext
TStr = TStr + Intext + Chr(13) + Chr(10)
Loop
Close #1
TStr = TStr + Format(Now, "yyyy-mm-dd hh:mm:ss") + " " + "内容" + " " + Text1(1).text + " " + "内容" + " " + Text1(2).text + " " + "内容" + " " + DataCombo1 + " " + "内容" + " " + Text1(3).text + " " + "内容" + " " + Text1(4).text + " " + "内容" + " " + Text1(5).text + ""
Open (App.Path & "\系统日志.ini") For Output As #1
Print #1, TStr
Close #1
TStr = ""
这是我写日志的代码，请帮我修改！谢谢！

[Tiger_Zhao]

日志只需要追加，所以已存在文件的大小不会影响速度。
VB 自带写日志功能。

Option Explicit

Sub Main()
    App.StartLogging App.Path & "\" & App.EXEName & ".log", vbLogToFile
    If App.LogMode <> vbLogToFile Then
        MsgBox "需要编译成 exe 执行才能输出到.log 文件中。", vbExclamation
        Exit Sub
    End If
    
    Dim i As Long
    For i = 1 To 300
        App.LogEvent Now() & Format(i, "@@@@") & Space(1000)
    Next
End Sub

[Tiger_Zhao]

Open (App.Path & "\系统日志.ini") For Append As #1 'Append 方式就是追加
TStr = Format(Now, "yyyy-mm-dd hh:mm:ss") & "  " & _
       "内容" & "  " & Text1(1).text + "  " & _
       "内容" & "  " & Text1(2).text + "  " & _
       "内容" & "  " & DataCombo1 & "  " & _
       "内容" & "  " & Text1(3).text & "  " & _
       "内容" & "  " & Text1(4).text & "  " & _
       "内容" & "  " & Text1(5).text '只需要追加的内容，还有连接字符串要用 &
Print #1 TStr
Close #1

[MOTOHEBE]

谢谢！等我试试哦！