20100504 学习记录：vb输出log

最新推荐文章于 2024-11-25 13:53:33 发布

weixin_34226706

最新推荐文章于 2024-11-25 13:53:33 发布

阅读量491

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/neru/archive/2010/05/06/1729001.html

本文介绍了在VB程序中实现日志记录功能的多种方法，包括直接向文件追加记录、利用内置对象创建及写入文件等。这些方法有助于监测程序运行状态并便于后续调试。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

为了方便监测数据在某vb写的程序生成的dll中的动态走向，尝试在原vb程序中添加写log功能

Open "c:\log.txt" For Append As 1
Print 1, lsSql
Close 1

Open "c:\vb\model\model.htm" For Append As 1
Print 1, strLogoQuestionHTM
Close 1

Public Sub MyLog(nStr As String)
Dim f As String, H As Long
Dim E As String, a As String

nStr = Format(Now, "yyyy-mm-dd hh:mm:ss ") & nStr
f = "D:\" & Format(Now, "yyyymmdd") & "LeeOV.log"
E = "D:\myprog.log"

Open "D:\testlog.txt" For Append As #1
Print #1, nStr
Close #1

Open f For Output As #1
Print #1, nStr
Close #1

Open E For Output As #2
Print #2, nStr
Close #2

H = FreeFile
Open E For Append As #H
Print #H, nStr
Close #H

End Sub

Dim fs, b, f

Set fs = CreateObject("Scripting.FileSystemObject")
Set b = fs.CreateTextFile("C:\sa.txt", True)

b.WriteLine Format(Now, "yyyy-mm-dd hh:mm:ss ") & a

b.Close

4. vb.net

　 Dim b, fs As Object

    fs = CreateObject("Scripting.FileSystemObject")
    b = fs.OpenTextFile("C:\" & VB6.Format(Now, "yyyy-mm-dd") & "vblog.txt", 8, True)
    b.WriteLine(VB6.Format(Now, "yyyy-mm-dd hh:mm:ss ") & " GetItem()-stData: " & stData)
    b.WriteLine(VB6.Format(Now, "yyyy-mm-dd hh:mm:ss ") & " GetItem()-LT_MORE_T: " & LT_MORE_T)
    b.Close()

转载于:https://www.cnblogs.com/neru/archive/2010/05/06/1729001.html