Solved

getting logs based on date

Posted on 2009-06-29
6
174 Views
Last Modified: 2012-05-07
I am looking for a VB6 script in which I will open event.log file and based on todays date will grab the logs.

Here is my event.log file
sometext, 6/26/2009, sometext
sometext, 6/27/2009, sometext
sometext, 6/27/2009, sometext
sometext, 6/27/2009, sometext
sometext, 6/27/2009, sometext
sometext, 6/27/2009, sometext
sometext, 6/29/2009, sometext
sometext, 6/29/2009, sometext

So in this example I only want to grab last two lines and email to myself

I know how the email part will work. just need help in passing last two lines to a variable.

0
Comment
Question by:CalmSoul
  • 3
  • 3
6 Comments
 
LVL 3

Expert Comment

by:astroviper
ID: 24738097
Note I had to manually force the date to mm/dd/yyyy as my OS is set to dd/mm/yyyy and I couldn't find an easier way around it.

' source file
strInput  = "event.log"
 
' use today's date
strDate = Month(Date) & "/" & Day(Date) & "/" & Year(Date)
 
WScript.Echo GetLines(strInput, strDate)
 
Function GetLines(input, sDate)
    seperator = VbCrLf
    Const ForReading = 1
    output = ""
 
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objInput = objFSO.OpenTextFile(strInput, ForReading)
    Do Until objInput.AtEndOfStream
        strLine = objInput.Readline
        If InStr(strLine, sDate) Then output = output & strLine & seperator
    Loop
    objInput.Close
    GetLines = output
End Function

Open in new window

0
 
LVL 5

Author Comment

by:CalmSoul
ID: 24738949
where the output is going?
0
 
LVL 3

Expert Comment

by:astroviper
ID: 24741167
I was hoping you'd be able to tell me :p. If you can provide an example of this email part you know how to get working then I can have a look at joining them up.
0
Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
LVL 5

Author Comment

by:CalmSoul
ID: 24741424
here is the one which sends the email out
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile("myTextFile.TXT")
If objFile.Size > 0 Then
    Set objReadFile = objFSO.OpenTextFile("myTextFile.TXT", 1)
    strFile= objReadFile.ReadAll
    objReadFile.Close
    Set objReadFile = Nothing
    cPos = InstrRev(strFile, vbNewLine & "###")
    If cPos>0 Then
      cPos=cPos+2 'To not include the preceeding carriage return
    Else
      cPos=1
    End If
 
    strLastLines = Mid(strFile, cpos)
Else
End If
 
Set objFSO = Nothing
Set objFile = Nothing
 
If strLastLines <> "" Then
  Set objEmail = CreateObject("CDO.Message")
  Set cdoConfig = CreateObject("CDO.Configuration")
  sch = "http://schemas.microsoft.com/cdo/configuration/" 
  cdoConfig.Fields.Item(sch & "sendusing") = 2
  cdoConfig.Fields.Item(sch & "smtpserver") = "SMTP server" 
  cdoConfig.Fields.update 
  Set objEmail.Configuration = cdoConfig 
  objEmail.From = "sender address"
  objEmail.To = "recipient"
  objEmail.Subject = "auto send email thinggy" 
  objEmail.Textbody = strLastLines 
  objEmail.Send
  Set objEmail = Nothing
  Set cdoConfig = Nothing
End If

Open in new window

0
 
LVL 5

Author Comment

by:CalmSoul
ID: 24741426
Is it possible if I read date from another text file and then based on that date get logs? instead of todays date?
0
 
LVL 3

Accepted Solution

by:
astroviper earned 500 total points
ID: 24741514
Yea that's easy, just read in the file and assign it to strDate instead of the actual date.

What's in the myTextFile.TXT?

To email the output, all you'd need to do is add the output from my function into that message body, note line 35. Just make sure you have the correct file and date assigned to those variables first.

If strLastLines <> "" Then
  Set objEmail = CreateObject("CDO.Message")
  Set cdoConfig = CreateObject("CDO.Configuration")
  sch = "http://schemas.microsoft.com/cdo/configuration/" 
  cdoConfig.Fields.Item(sch & "sendusing") = 2
  cdoConfig.Fields.Item(sch & "smtpserver") = "SMTP server" 
  cdoConfig.Fields.update 
  Set objEmail.Configuration = cdoConfig 
  objEmail.From = "sender address"
  objEmail.To = "recipient"
  objEmail.Subject = "auto send email thinggy" 
  objEmail.Textbody = strLastLines & VbCrLf & GetLines(strInput, strDate)
  objEmail.Send
  Set objEmail = Nothing
  Set cdoConfig = Nothing
End If
 
Function GetLines(input, sDate)
    seperator = VbCrLf
    Const ForReading = 1
    output = ""
 
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objInput = objFSO.OpenTextFile(strInput, ForReading)
    Do Until objInput.AtEndOfStream
        strLine = objInput.Readline
        If InStr(strLine, sDate) Then output = output & strLine & seperator
    Loop
    objInput.Close
    GetLines = output
End Function

Open in new window

0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

You can of course define an array to hold data that is of a particular type like an array of Strings to hold customer names or an array of Doubles to hold customer sales, but what do you do if you want to coordinate that data? This article describes…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…

749 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question