将文本写入日志文件列

Write text to log file Columns

如何写入 .log 文件中的列? 即有 "Log Text"、"Component"、"Date/Time"

的列

写入文件时如何指定这些?

我已经完成了一半的工作:

dim str As String ="<![LOG[" & message & "]LOG]!><time=""" & Now.ToLongTimeString & """" & " date=""" & Now.ToShortDateString & """ component=""" & component.ToString & """" & " type=""1""" & " Thread=""" & t & """" & ">"
File.AppendAllText(logfile, str & vbCrLf)

但是组件、日期/时间和线程值显示不正确。 我错过了什么?

*已编辑

文件路径为"C:\Programdata\server.log"

所以有些文字在正确的地方出现了,但不是全部。 因此,日志文本列将填充 "message" 并且线程带有数字,但 date/time 和组件为空。 我会附上一张照片,但我没有足够的代表:/

总而言之,我试图复制这个: http://www.jetico.com/web_help/bcwipe6_enterprise/img/log_viewer.jpg 但并非我所有的专栏都显示数据。

按照@Blackwood 的建议尝试使用逗号将您的数据分成几列,但使用 string.format 因为您似乎在其中有很多额外的“”

        Dim str As String = String.Format("![LOG[{0}]LOG]!,time={1},  <date= {2}, component= {3},  type=1, Thread={4}", Message, Now.ToLongTimeString, Now.ToLongDateString, component.ToString, t)

File.AppendAllText(日志文件,Str() & vbCrLf)

我不确定你用 <> 标签做什么。

已解决。

这与我尝试写入的数据格式有关。

时间必须符合以下格式 Now.ToLongTimeString & "." & Now.Millisecond & "-60"

并且日期必须用 - 而不是 /

分隔

不知道为什么 - 查看时时间没有达到那个长度,日期显示为“/”

我用于日志的查看器是 cmtrace。

这是让它工作的线路是..

<![LOG[" & message & "]LOG]!><time=""" & Now.ToLongTimeString & "." & Now.Millisecond & "-60" & """" & " date=""" & d & """ component=""" & component.ToString & """" & " type=""1" & """ Thread=""" & t &""">