Logfile auslesen und Mail versenden

mak

hallo mitienander!

Also ich hab folgendes problem.
Ich möche ein Logfile auf das wort "FEHLER" durchsuche und nacher soll eine Mail an mich versendet werden, mit dem Inhalt FEHLER In Zeile Sowiso.. , wenn aber das word FEHLER nicht gefunden wird , soll einfach eine
Mail mit dem Inhalt "OK" gesendet werden.

Ich hab da mal was zusammengebastelt:

Code

;Suchwort wird definiert
$word="FEHLER"


;zu durchsuchende Datei auswaehlen    
$file = FileOpen("test.txt", 0)




;ueberpruefung
If $file = -1 Then
   MsgBox(0, "Error", "Datei konnte nicht gefunden werden oder ist Fehlerhaft!")
       Exit
   EndIf


;Liest Zeile fuer Zeile
While 1
   $line = FileReadLine($file)
   If @error = -1 Then ExitLoop
if StringInStr(" "&$line,$word)>0 Then MsgBox(1, "ALARM!", $line)






Wend
FileClose($file)

Alles anzeigen

Wie ihr sieht, wird jetzt anstatt einer Mail senden, eine MsgBox aufgerufen..

an der stelle sollte jetzt eigentli irgendwie was hinkommen, womit ich an eine Bestimme Mailadresse die Meldung hinschicken kann..

**Gun-Food**

:willkommen: im Forum!

Also ich kann das Problem nicht nachvollziehen. In meiner Beta Version und dieser Testdatei:

Code

Hallösdfk
fsjfksjf
sdflkkjkPLFüpds+ü
fdssFEHLERsdklfjsd
FEHLER
xfdgkjsdfg
fdsljfsdg
dslkfdjsf
+dslkfjkdsjf
dfjgkdlfjgFEHLER

Kommt die Messagebox. Jedoch gibt er nicht die Zeile aus, sondern die gesmate Reihe mit dem Suchbegriff.

Hast du dein Script in der Beta (welche Version) kompiliert, oder in der Stable?

Greetz Gun-Food

mak

das problem ist, sry fals ich mich nicht verständlich ausgedrückt habe, das ich statt der MsgBox gerne eine Mail versenden würde in der Steht.. das in der Logdatei das Wort FEHLER vorkommt

Eddy_Erpel

Hallo,
ich habe das mal etwas erweitert:

Spoiler anzeigen

Code

;Suchwort wird definiert
$word="FEHLER"


;zu durchsuchende Datei auswaehlen    
$file = FileOpen("test.txt", 0)




;ueberpruefung
If $file = -1 Then
   MsgBox(0, "Error", "Datei konnte nicht gefunden werden oder ist Fehlerhaft!")
       Exit
   EndIf


;Liest Zeile fuer Zeile
$i=0
While 1
$i+=1
	$line = FileReadLine($file)
   If @error = -1 Then ExitLoop
if StringInStr(" "&$line,$word)>0 Then _sendmail("Fehler in Zeile " & $i, $line)
Wend
FileClose($file)




Func _sendmail($subject,$text)
dim $sData[8]
$sData[0]="HELO" & @CRLF
$sData[1]="MAIL FROM:from@domain.com" & @CRLF
$sData[2]="RCPT TO:to@domain.com"& @CRLF
$sData[3]="DATA" & @CRLF
$sData[4]="SUBJECT: " & $subject & @CRLF
$sData[5]=@CRLF
$sData[6]=$text & @CRLF
$sData[7]="." & @CRLF
TCPStartup()
$socket=TCPConnect("xxx.xxx.xxx.xxx","25")
ConsoleWrite($socket)


	for $i=0 to UBound($sData)-1
		TCPSend($socket,$sData[$i])
		ConsoleWrite($sData[$i])
		Sleep(100)
	Next
EndFunc

Alles anzeigen

eddy_erpel

mak

hey. danke viel mals.. aber leider funktioniert das irgendwie nicht..
also es kommt immer das ein Fehler in Zeile 36 auftritt

"Unknown Function"

**Gun-Food**

Naja dann einfach Outlook scripten.
Für Outlook Express hab ich das mal so gemacht:

Code

#include <Date.au3>


; Run Outlook
Run("C:\Programme\Outlook Express\MSIMN.EXE")


; Wait for the Outlook become active
WinWaitActive("Outlook Express")


; Now that the Outlook window is active type some text
Sleep(500)
Send("!d")
send("n")
send("e")
Sleep(500)
winwaitActive("Neue Nachricht")
send("Empfängeradressen HIER REIN!")
sleep(500)
send("+{Tab 2}")
sleep(500)
send("BETREFFZEILE " & _NowDate()) <--- Datum wird drangehangen!
sleep(500)
send("+{Tab 3}")
sleep(500)
send("NACHRICHTENTEXT")
sleep(500)


; Now send the Mail
Send("!s")


sleep(500)
send("!d")
send("b")


; Now wait for Outlook to close before continuing
WinWaitClose("Outlook Express")
sleep(1000)

Alles anzeigen

Nicht lachen, so hab ich mit AutoIT angefangen. *gg* Aber es funktioniert recht gut. Platz für Verbesserungen ist immer.

Eddy_Erpel

Hallo,
habe ich vergessen zu posten, dass dafür die Beta nötig ist.
eddy_erpel