各位大蝦，
我在一個vb寫的小工具里，用如下代碼實作了運行記錄保存成*.log檔案。但發現程式運行的很快，好多條目都沒有保存全，尤其是程式除錯出錯的時候，上一條操作記錄只能寫一部分：請問這個怎么處理啊。
輸出的日志檔案：
module1：
'****************************************日志記錄*****************Start***************************************************************
Public Function openLogfile()
Dim F As String
' nStr = Format(Now, "yyyy-mm-dd hh:mm:ss") & nStr
F = App.Path & "\log\" & Format(Now, "yyyymmddhhmmss") & ".log"
'如果要將檔案保存到與你的 exe 相同的檔案夾，將上句改為 F = App.Path & "\myprog.log"
H = FreeFile
On Error Resume Next
Open F For Append As #H
End Function
Public Function MyLog(nStr As String)
Print #H, Format(Now, "yyyy-mm-dd hh:mm:ss")
Print #H, nStr
End Function
Public Function logfileClose()
Close #H
Set H = Nothing
Set log = Nothing '釋放日志記錄變數
End Function
'****************************************日志記錄*****************End***************************************************************
程式中呼叫：
log = "'TrayNofound '查詢托盤對應的類條件，并展示在sninfo(1)中 Sql= " & SQL
Call MD2.MyLog(log) '寫日志
uj5u.com熱心網友回復：
你的上面代碼第18行（行號錯位的，不過18跟我說的那行稍微“對得整齊點”）竟然會都不報錯？
可見你的代碼根本就不正確，我都想不明白你的第13行、14行如何能“把資料寫入檔案”。
自己在你的那個“日志記錄”的模塊開頭，寫上這一句、然后修改代碼，能“全編譯運行”的時候再說吧！！！
Option Explicit
uj5u.com熱心網友回復：
不好意思，有可能是我代碼沒貼全。
在module1頂部，有申明 option explicit，并且有public log和H。
uj5u.com熱心網友回復：
“寫檔案”和寫磁盤是兩個概念。寫檔案僅僅是將資料寫入記憶體中的檔案緩沖區，除非讀寫內容跨越緩沖區所對應的磁盤區域，才可能部分寫入到磁盤。
真正完全寫入磁盤，是由 Close 操作觸發的。
建議你廢棄三段式的寫法，每當寫 log 時都執行打開、寫入和關閉操作。否則，在出現故障時，Close 可能沒有執行。
uj5u.com熱心網友回復：
就算如此吧……
但：
1. 你在一個模塊中的幾個程序(函式)中使用這個“檔案號”，
這個變數明顯應該是Private的“專用變數”，而不是宣告為Public的！
（你保證沒有在其它地方使用“H”這個變數？如果確實沒有，那問題不大；但“專用”最好是Private）
2. “檔案號”是1個整數（當然并不是說只能是Integer，用Long或Byte并沒“絕對錯誤”），
怎么能“Set H = Nothing”？？？
這個是對“物件型別”變數操作的，你的代碼在那兒竟然不報錯？
那么也能推論出你的“H”是Variant型別變數，而不是“數值型別”。
3. 這個就如2樓說的那樣，平時“寫檔案”的陳述句，都是寫在磁盤緩沖區中的，
多數情況下要“關閉檔案”時才會刷到磁盤上（當然并不“絕對”，也有可能還沒關閉，系統也刷緩沖區了）。
若寫入內容沒有及時刷到磁盤上，在突然斷電、程式崩潰、行程被強行結束等情況下，
很有可能“寫入”的內容并沒有生效（沒刷到磁盤上），因此有“記錄不全”的問題。
uj5u.com熱心網友回復：
我原來也是按整體式撰寫的程式，但log檔案較大，打開和關閉都需要一段時間，程式運行卡頓。所以才改成了三段。
uj5u.com熱心網友回復：
受教我的想法就是讓程式先把log內容寫入檔案，在視窗關閉（程式未關閉退出，還將繼續動作）的時候將檔案刷入磁盤。這樣讀寫log檔案不會占用太多時間。
uj5u.com熱心網友回復：
沒看到你的“寫檔案”，跟 log這個變數有任何關系！何談“把log內容寫入檔案”？既然“寫入內容”都是用程序引數傳入的，那這個變數又有多大意義呢！
并且，Log是VB6的一個“內置函式名”，你卻定義一個變數跟它同名（VB6識別符號不區分大小寫），這根本就“不是好習慣”。
如果要讓“關閉檔案”后，檔案號失效，只要 H=0、 H=-1 之類的“非法值”就行了。
uj5u.com熱心網友回復：
打開 log 檔案太慢，是因為你將它作為文本檔案打開，且它太大了。換個方式，當作 Binary 開發，會快很多。當然，要進行相應的處理。
再就是采用資料庫來處理。因為資料庫引擎為你進行了很多情況的處理，而且你可以執行 Update。
uj5u.com熱心網友回復：
同意3樓的建議，給你一段代碼，已文本檔案的模式追加寫入
Public Sub FS_WriteTxtFile(AFName As String, ATxt As String)
On Error GoTo Err0:
'寫文本檔案
Dim WF, WFS
Set WFS = CreateObject("Scripting.FileSystemObject")
Set WF = WFS.OpenTextFile(AFName, 8, True)
WF.WriteLine ATxt
WF.Close
Exit Sub
Err0:
MsgBox "寫文本檔案【" & AFName & "】時遇到錯誤！" & vbCrLf & Err.Description, , "系統提示"
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/43611.html
標籤：VB基礎類