Visual Basic.NET 7.x (2002/03)Visual Basic 9 (2008)Visual Basic 8 (2005).NET 3.0.NET 2.0中级Visual Studio.NETVisual Basic
文本日志查看器
文本日志查看器

介绍
日志查看器是一个非常简单易用的实时日志文件查看器。 只需要打开一个基于文本的日志文件,该程序就会检查文件是否有任何更改,并自动在屏幕上显示它们。
在设置部分,您可以找到高亮和图标选项。 通过这些选项,您可以确定您提到的标准对应的行颜色、背景颜色或显示图标。
日志查看器仅显示日志的最后 100 行(可选)。 此设置可以在日志窗口中显示,并且可以增加。 对于开发者,包含透明度设置,供那些想要查看透明日志窗口的人使用。 在项目中,您会找到一个目录监视器,它会监视目录和文件的更改。 在这部分,您可以跟踪更改的文件,并可以单击打开。
这是日志查看器的第一个版本,并且在半天内编写完成。 如果您不介意,请提供反馈以改进。
有很多像这样的实用程序。 但我只是想分享这个开源、无广告的实用程序,供大家免费使用。 如果您喜欢它,请使用它并提出一些不错的建议。
背景
许多应用程序将其日志写入基于文本的文件。 在我所有的应用程序中,每个步骤或关键函数都有一个日志选项,并且我在测试或实时工作时查看这些日志。 我创建此组件就是为了这个目的。
Using the Code
日志查看器使用线程来查看文件。 您可以使用拖放打开多个文件。
Dim s_SatirSayisi As Long = 0
Do
Dim a As New System.IO.FileInfo(Dosya.DosyaTamYol)
If Not (a.Exists) Then
DosyaBulunamadi()
Exit Do
End If
If Dosya.DosyaSonboyut <> a.Length Then
If Dosya.DosyaSonboyut > a.Length Then
Dosya.DosyaSonboyut = 0
End If
SonIslenenDosya(Dosya.DosyaTamYol)
Dim veri() As String = DosyaOku(Dosya.DosyaTamYol, Dosya.DosyaSonboyut)
Dosya.DosyaSonboyut = a.Length
s_SatirSayisi = s_SatirSayisi + veri.Length
SatirEkle(veri)
End If
System.Threading.Thread.Sleep(200)
Loop While Cls_Aktif
此线程是查看日志文件的主要函数。
关注点
DataGridView
用于查看每行的日志,并带有高亮和图标选项。 通过此选项,您可以轻松地监视文件,并且我卸载了其他日志查看器。 ;)
在这个项目中,您会找到
- 多线程
- 打开和读取文件
Datagridview
的使用- 文件系统监视器的使用
- 注册表的使用
- XML 的使用
致谢
- .NET Docking Library for Windows Forms 用于选项卡视图 (
WeifenLuo.WinFormsUI.Docking
) - XML+ Library (由 Seyfettin Öztürk 提供)
历史
- 首次发布
下一篇
- 查找选项(等待中)
- Windows 事件日志查看 (日志编号在超过最大记录数后没有改变,将会修复)
- 多语言支持 (GUI,目前仅支持英语)
özk@n