Logs Plain-Text Logs Read a Fixed Width Column Log
' Read a Fixed Width Column Log
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile("C:\Windows\Debug\Netsetup.log", _ ForReading)
Do While objTextFile.AtEndOfStream <> True strLinetoParse = objTextFile.ReadLine dtmEventDate = Mid(strLinetoParse, 1, 6) dtmEventTime = Mid(strLinetoParse, 7, 9) strEventDescription = Mid(strLinetoParse, 16) Wscript.Echo "Date: " & dtmEventDate Wscript.Echo "Time: " & dtmEventTime Wscript.Echo "Description: " & strEventDescription & VbCrLf Loop objFSO.Close
|
VbsEdit includes all these samples!
Download Now!
Version 5.4.1 - This package includes VbsEdit 32-bit, VbsEdit 64-bit, HtaEdit 32-bit and HtaEdit 64-bit. The evaluation version never expires.
Home
Buy Now
HtaEdit
Support
Video
What's new ?
|