20100504 学习记录：vb输出log

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

1.

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

2.

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

3.

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()