Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 184
  • Last Modified:

getting logs based on date

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
CalmSoul
Asked:
CalmSoul
  • 3
  • 3
1 Solution
 
astroviperCommented:
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
 
CalmSoulAuthor Commented:
where the output is going?
0
 
astroviperCommented:
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
What Kind of Coding Program is Right for You?

There are many ways to learn to code these days. From coding bootcamps like Flatiron School to online courses to totally free beginner resources. The best way to learn to code depends on many factors, but the most important one is you. See what course is best for you.

 
CalmSoulAuthor Commented:
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
 
CalmSoulAuthor Commented:
Is it possible if I read date from another text file and then based on that date get logs? instead of todays date?
0
 
astroviperCommented:
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
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

What Kind of Coding Program is Right for You?

There are many ways to learn to code these days. From coding bootcamps like Flatiron School to online courses to totally free beginner resources. The best way to learn to code depends on many factors, but the most important one is you. See what course is best for you.

  • 3
  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now