Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people, just like you, are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
Solved

getting logs based on date

Posted on 2009-06-29
6
173 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
Networking for the Cloud Era

Join Microsoft and Riverbed for a discussion and demonstration of enhancements to SteelConnect:
-One-click orchestration and cloud connectivity in Azure environments
-Tight integration of SD-WAN and WAN optimization capabilities
-Scalability and resiliency equal to a data center

 
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

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

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

A short article about a problem I had getting the GPS LocationListener working.
If you’re thinking to yourself “That description sounds a lot like two people doing the work that one could accomplish,” you’re not alone.
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…

828 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