CSV parser using Vb Script

This csv parser can parse eventvwr events.. Dim openfile Dim strnextline Dim intsize Dim i intsize = 0 Const forreading = “1” csvpath = “c:\applog.csv” Searchstring = “,” Errorcode = “1054” Set fso = WScript.CreateObject(“Scripting.Filesystemobject”) Set openfile = fso.OpenTextFile(csvpath,forreading) strnextline = openfile.ReadLine Do Until openfile.AtEndOfStream strnextline = openfile.ReadLine If InStr(strnextline,Searchstring)Then If InStr(strnextline,Errorcode)Then ShowMessage(Split(strnextline,”,”)) WScript.Echo(“all done”)…