IE - Auslesen, Stringformatierung, Error - Handling

Stoani

Hallo liebe Leute,

zurzeit habe ich mir ein kleines Projekt in den Kopf gesetzt. Es geht um eine 24/7 Software welche Informationen von einer Website bezieht und sie mit den als letztes bezogenen Daten abgleicht. Bei einer Änderung (es geht dabei hauptsächlich um "Textblöcke") wird eine Nachricht via FB-Messenger an eine oder mehrere Personen ausgeschickt.
Klingt für manche hier wahrscheinlich recht einfach, für mich ist es jedoch gar nicht mal so wenig Denkarbeit. So weit bin ich bisher gekommen, es ging mir allerdings mehr um Denkansätze und Tests der verschiedenen Optionen. Leider bin ich jetzt mit meinem Latein am Ende und habe keine Ahnung wie ich es anstellen könnte, dass:

Die Textblöcke welche ausgelesen werden in der Zeilenanzahl variieren können ohne das komplette Konzept über den Haufen zu werfen.
Die Software allgemein stabil und zuverlässig läuft (Error-Handling usw.) da es sich ja um eine 24/7 Applikation handeln soll.
Die Textblöcke einzeln ("Einsatzkennung?") ausgelesen werden und nicht der gesamte ".innertext"
Ich keine langen "Sleep(5000) Pausen einbauen muss, damit das Programm nicht abstürzt.

Um euch ein bisschen mehr als einen Haufen Rechtschreib.- und Tippfehler bieten zu können, hab ich mal meine Photoshop Skillz ausgepackt und einige Screenshots der "Problemzonen" gemacht.

Source(Annonymisiert)

AutoIt

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <File.au3>
#include <FileConstants.au3>


#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 812, 728)
$Edit1 = GUICtrlCreateEdit("", 8, 8, 796, 680)
$Button1 = GUICtrlCreateButton("go", 8, 696, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


#Region FriendVar
Global $Empfänger = "Hier kann ein Name stehen"
#EndRegion FriendVar


#Region Usefull Variables
Global $LineBreak = "{SHIFTDOWN}" & "{ENTER}" & "{SHIFTUP}"
Global $path = @ScriptDir & "\cache.txt"
Global $path2 = @ScriptDir & "\cache2.txt"
Global $a = 1
#EndRegion Usefull Variables


MainLoop()


Func MainLoop()
	While 1
		$nMsg = GUIGetMsg()
		Switch $nMsg
			Case $GUI_EVENT_CLOSE
				Exit
			Case $Button1
				Global $aIE = _IECreate("http://ooe.martinhochreiter.at")
				PositionWindowLFK()
				Sleep(1000)
				current()
				Sleep(5000)
				$getid = _IEGetObjById($aIE, "current")
				Sleep(2000)
				GUICtrlSetData($Edit1, $getid.innertext)
				$String = StringRegExpReplace($getid.innertext, "Laufende Einsätze", "")
				$Text = StringAddCR(StringRegExpReplace(StringStripCR($String), '\n([\n\s]*\n)', Chr(10)))
				$FileHandle = FileOpen($path, 2)
				FileWrite($FileHandle, $Text)
				FileClose($FileHandle)
				_IEQuit($aIE)
				GUICtrlSetData($Edit1, $Text)
				$count = _FileCountLines($path)
				FileDelete($path2)
				For $y = 3 To $count
					$text2 = FileReadLine($path, $y)
					FileWriteLine($path2, $text2)
				Next
				$Text_Formatted = FileRead($path2)
				Sleep(1000)
				GUICtrlSetData($Edit1, $Text_Formatted)
				Sleep(1000)
				Global $count2 = _FileCountLines($path2)
				Global $count2 = $count2 -1
				Global $oIE = _IECreate("https://www.messenger.com/")
				PositionWindowFB()
				Sleep(500)
				SendMessage()
				Sleep(5000)
				_IEQuit($oIE)
		EndSwitch
	WEnd
EndFunc   ;==>MainLoop


Func PositionWindowLFK()
	Local $x = -1680
	Local $y = 0
	Local $height = 1050
	Local $width = 1680
	WinMove("http://ooe.martinhochreiter.at/#home - Internet Explorer", "", $x, $y, $width, $height, 1)
EndFunc   ;==>PositionWindowLFK


Func PositionWindowFB()
	Local $x = -1680
	Local $y = 0
	Local $height = 1050
	Local $width = 1680
	WinMove("Messenger - Internet Explorer", "", $x, $y, $width, $height, 1)
EndFunc   ;==>PositionWindowFB


Func SendMessage()
	Local $oInputs = _IETagNameGetCollection($oIE, "a")
	For $oInput In $oInputs
		If $oInput.classname == "_30yy _2oc8" Then _IEAction($oInput, "click")
	Next
	Sleep(500)
	Send($Empfänger)
	Sleep(100)
	Send("{TAB}")
	Local $oInputs = _IETagNameGetCollection($oIE, "div")
	For $oInput In $oInputs
		If $oInput.classname == "_45m_ _2vxa" Then _IEAction($oInput, "click")
	Next
	For $i = 1 To $count2 / 4
		For $o = $a To $a + 3
			$ReadLine = FileReadLine($path2, $o)
			Sleep(10)
			Send($ReadLine & $LineBreak)
			ConsoleWrite($ReadLine & @CR)
			Sleep(10)
		Next
		$a = $a + 4
		ConsoleWrite("-------------------linebreak(enter)-------------------------------" & @CRLF);mit $linebreak erstetzen
		Send(@CR)
	Next
EndFunc   ;==>SendMessage


Func hour6()
	Local $oInputs = _IETagNameGetCollection($aIE, "a")
	For $oInput In $oInputs
		If $oInput.rel == "hour6" Then _IEAction($oInput, "click")
	Next
EndFunc   ;==>hour6


Func current()
	Local $oInputs = _IETagNameGetCollection($aIE, "a")
	For $oInput In $oInputs
		If $oInput.rel == "current" Then _IEAction($oInput, "click")
	Next
EndFunc   ;==>current


Func day()
	Local $oInputs = _IETagNameGetCollection($aIE, "a")
	For $oInput In $oInputs
		If $oInput.rel == "day1" Then _IEAction($oInput, "click")
	Next
EndFunc   ;==>current

Alles anzeigen

Bei

AutoIt

$LineBreak = "{SHIFTDOWN}" & "{ENTER}" & "{SHIFTUP}"

handelt es sich um den Ablauf um bei einer Messenger - Nachricht einen Zeilenumbruch zu machen, ohne die Nachricht mit "ENTER" zu verschicken.
Ja ich weiß, der Code ist einfach nur schrecklich schlecht Organisiert.

http://up.picr.de/24469638sw.jpg
http://up.picr.de/24469639ca.png
http://up.picr.de/24469640co.png
http://up.picr.de/24469641kh.png
Beim ersten Bild sieht man noch ein Problem: Wenn ich den ".innertext" auslese, schreibt er auch den kleinen farbig eingerahmten Buchstaben für die Einsatzart mit dazu. Leider hab ich keine Ahnung wie ich den da wegbekomme, da er ja ständig variiert...
Mit dem Messenger hab ich eigentlich keine Probleme, der macht mir das Leben eigentlich recht leicht

Würde mich über einige Denkansätze freuen!
____________________________________________________
Edit 7:

Hallo Leute!
Die allererste Version des Notifiers ist jetzt so weit fertig!

Punkte die noch in Arbeit sind:

Message über Whatsapp versenden (wenn jemand Erfahrung oder Vorschläge hat, BITTE weitersagen!)

Source:

Spoiler anzeigen

AutoIt

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>
#include <GuiEdit.au3>
#include <_StringBetween2.au3>
#include <_StringSplitRegExp.au3>
#include <File.au3>
#include<Array.au3>


#Region GUI CREATION START
$gui = GUICreate("LFK-NotifyMe", 1025, 766, -1, -1)
GUISetBkColor(0xFFFFFF)




#Region Abfrage
$Group1 = GUICtrlCreateGroup(" Art der Abfrage ", 16, 8, 170, 185)
GUICtrlSetFont(-1, 14, 400, 2, "Dunant")


$Radio1 = GUICtrlCreateRadio("Laufende Einsätze", 24, 48, 150, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetFont(-1, 12, 400, 0, "Dunant")
$Radio2 = GUICtrlCreateRadio("Tagesübersicht", 24, 72, 150, 17)
GUICtrlSetFont(-1, 12, 400, 0, "Dunant")
$Radio3 = GUICtrlCreateRadio("Rückblick 6 Stunden", 24, 96, 150, 17)
GUICtrlSetFont(-1, 12, 400, 0, "Dunant")
$Radio4 = GUICtrlCreateRadio("Rückblick 2-Tage", 24, 120, 150, 17)
GUICtrlSetFont(-1, 12, 400, 0, "Dunant")


$ComboBox_1 = GUICtrlCreateCombo("ALLE [OÖ]", 24, 152, 150, 25, BitOR($CBS_DROPDOWNLIST, $CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "BRAUNAU|EFERDING|FREISTADT|GMUNDEN|GRIESKIRCHEN|KIRCHDORF|LINZ-LAND|LINZ-STADT|PERG|ROHRBACH|SCHÄRDING|STEYR-LAND|STEYR-STADT|URFAHR|VÖCKLABRUCK|WELS-LAND|WELS-STADT")
GUICtrlSetFont(-1, 12, 400, 0, "Dunant")


GUICtrlCreateGroup("", -99, -99, 1, 1)
#EndRegion Abfrage


#Region Übersicht
$Group2 = GUICtrlCreateGroup("Einsatzübersicht", 16, 256, 993, 473)
GUICtrlSetFont(-1, 12, 400, 2, "Dunant")


$Edit1 = GUICtrlCreateEdit("", 32, 296, 961, 417, BitOR($ES_READONLY,$ES_WANTRETURN,$WS_VSCROLL))
GUICtrlSetFont(-1, 12, 400, 0, "Courier")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x434E54)


GUICtrlCreateGroup("", -99, -99, 1, 1)
#EndRegion Übersicht


#Region Aktualisierung
$Group3 = GUICtrlCreateGroup("Aktualisierung", 200, 8, 140, 185)
GUICtrlSetFont(-1, 14, 400, 2, "Dunant")


$Radio5 = GUICtrlCreateRadio("15 - Sekunden", 208, 40, 115, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetFont(-1, 12, 400, 0, "Dunant")
$Radio6 = GUICtrlCreateRadio("30 - Sekunden", 208, 64, 115, 17)
GUICtrlSetFont(-1, 12, 400, 0, "Dunant")
$Radio7 = GUICtrlCreateRadio("1 - Minute", 208, 88, 115, 17)
GUICtrlSetFont(-1, 12, 400, 0, "Dunant")
$Radio8 = GUICtrlCreateRadio("5 - Minuten", 208, 112, 115, 17)
GUICtrlSetFont(-1, 12, 400, 0, "Dunant")
$Radio9 = GUICtrlCreateRadio("15 - Minuten", 208, 136, 115, 17)
GUICtrlSetFont(-1, 12, 400, 0, "Dunant")
$Radio10 = GUICtrlCreateRadio("30 - Minuten", 208, 160, 113, 17)
GUICtrlSetFont(-1, 12, 400, 0, "Dunant")


GUICtrlCreateGroup("", -99, -99, 1, 1)
#EndRegion Aktualisierung


#Region NotifyMe
$Group4 = GUICtrlCreateGroup("NoitfyMe", 360, 8, 140, 89)
GUICtrlSetFont(-1, 14, 400, 2, "Dunant")


$Radio11 = GUICtrlCreateRadio("WhatsApp", 368, 40, 115, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetFont(-1, 12, 400, 0, "Dunant")
$Radio12 = GUICtrlCreateRadio("Messenger", 368, 64, 115, 17)
GUICtrlSetFont(-1, 12, 400, 0, "Dunant")


GUICtrlCreateGroup("", -99, -99, 1, 1)
#EndRegion NotifyMe


#Region Console
$EditConsole = GUICtrlCreateEdit("", 520, 16, 489, 233, BitOR($ES_READONLY,$ES_WANTRETURN,$WS_VSCROLL))


GUICtrlSetFont(-1, 10, 400, 0, "Courier")
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, 0x000000)
#EndRegion Console


#Region Msc
DllCall('uxtheme.dll', 'none', 'SetThemeAppProperties', 'int', 0)
$Progress1 = GUICtrlCreateProgress(16, 208, 486, 41)


$Button1 = GUICtrlCreateButton("Start", 360, 112, 139, 33)
GUICtrlSetFont(-1, 12, 400, 0, "Dunant")
$Button2 = GUICtrlCreateButton("Stop", 360, 160, 139, 33)
GUICtrlSetFont(-1, 12, 400, 0, "Dunant")
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState(@SW_SHOW)
#EndRegion Msc
#EndRegion GUI CREATION START






DirCreate(@ScriptDir&"\Versendet")




_MainLoop();XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   MAIN LOOP  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX


Func _MainLoop()
	While 1
		$nMsg = GUIGetMsg()
		Switch $nMsg
			Case $GUI_EVENT_CLOSE
				FileDelete(@ScriptDir&"\temp.nme")
				GUICtrlSetData($Progress1,0)
				AdlibUnRegister("_Scan")
				AdlibUnRegister("_Time")
				Exit


			Case $Button1 ; START
				_GuiAbfrage()


				GUICtrlSetState($Button2, $GUI_ENABLE)
				GUICtrlSetState($Button1, $GUI_DISABLE)
				GUICtrlSetData($Progress1,0)
			Case $Button2 ; STOP
				GUICtrlSetState($Button1, $GUI_ENABLE)
				GUICtrlSetState($Button2, $GUI_DISABLE)
				_GUICtrlEdit_AppendText($EditConsole,"Stopped, returning to main loop"&@CRLF)
				FileDelete(@ScriptDir&"\temp.nme")
				GUICtrlSetData($Progress1,0)
				AdlibUnRegister("_Scan")
				AdlibUnRegister("_Time")
				_MainLoop()


		EndSwitch
	WEnd
EndFunc   ;==>_MainLoop






Func _Scan()
	AdlibUnRegister("_Time")
	AdlibUnRegister("_Scan")
	GUICtrlSetData($Edit1,"")
	_Update()
	_Filtern()
EndFunc


Func _GuiAbfrage()
	_GUICtrlEdit_SetText($EditConsole,"function _GuiAbfrage started"&@CRLF)
	Global $ArrRad[13]
	$ArrRad[0] = GUICtrlRead($Radio1)
	$ArrRad[1] = GUICtrlRead($Radio2)
	$ArrRad[2] = GUICtrlRead($Radio3)
	$ArrRad[3] = GUICtrlRead($Radio4)
	$ArrRad[4] = GUICtrlRead($ComboBox_1)


	$ArrRad[5] = GUICtrlRead($Radio5)
	$ArrRad[6] = GUICtrlRead($Radio6)
	$ArrRad[7] = GUICtrlRead($Radio7)
	$ArrRad[8] = GUICtrlRead($Radio8)
	$ArrRad[9] = GUICtrlRead($Radio9)
	$ArrRad[10] = GUICtrlRead($Radio10)


	$ArrRad[11] = GUICtrlRead($Radio11)
	$ArrRad[12] = GUICtrlRead($Radio12)




	Select
		Case $ArrRad[0] = 1
			Local $QueryLink = FileReadLine(@ScriptDir & "\querylink.nme", 1)
		Case $ArrRad[1] = 1
			Local $QueryLink = FileReadLine(@ScriptDir & "\querylink.nme", 2)
		Case $ArrRad[2] = 1
			Local $QueryLink = FileReadLine(@ScriptDir & "\querylink.nme", 3)
		Case $ArrRad[3] = 1
			Local $QueryLink = FileReadLine(@ScriptDir & "\querylink.nme", 4)
	EndSelect


	Select
		Case $ArrRad[5] = 1
			Local $Intervall = 15000
		Case $ArrRad[6] = 1
			Local $Intervall = 30000
		Case $ArrRad[7] = 1
			Local $Intervall = 60000
		Case $ArrRad[8] = 1
			Local $Intervall = 300000
		Case $ArrRad[9] = 1
			Local $Intervall = 900000
		Case $ArrRad[10] = 1
			Local $Intervall = 1800000
	EndSelect


	Select
		Case $ArrRad[11] = 1
			Local $NotifyMe = "WhatsApp"
			;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX -  MISSING - XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
		Case $ArrRad[12] = 1
			Local $NotifyMe = "Messenger"
			;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX -  MISSING - XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
	EndSelect


	Global $QueryLink_Read = $QueryLink
	Global $QueryDef_Read = $ArrRad[4]
	Global $Intervall_Read = $Intervall
	Global $NotifyMe_Read = $NotifyMe


	_GUICtrlEdit_AppendText($EditConsole, "querylink: " & $QueryLink_Read & @CRLF & "querydef: " & $QueryDef_Read & @CRLF & "int: " & $Intervall_Read & @CRLF & "nfmy: " & $NotifyMe_Read & @CRLF)
	_GUICtrlEdit_AppendText($EditConsole,"function _GuiAbfrage ended"&@CRLF)
	_Scan()
EndFunc   ;==>_GuiAbfrage


Func _Update()


	_GUICtrlEdit_SetText($EditConsole,"function _Update started"&@CRLF)
	FileDelete(@ScriptDir&"\temp.nme")
	Global $String = Execute("'" & StringRegExpReplace(BinaryToString(InetRead($QueryLink_Read, 1), 1), "(\\u([[:xdigit:]]{4}))", "' & ChrW(0x$2) & '") & "'")
	$StrSpl = _StringSplitRegExp($String, '"einsatz"')


	For $i = 1 To UBound($StrSpl) - 1
		$StrSpl[$i] = StringReplace($StrSpl[$i], '"', "")
		$StrSpl[$i] = StringReplace($StrSpl[$i], '}', "")
		$StrSpl[$i] = StringReplace($StrSpl[$i], '{', "")
		$StrSpl[$i] = StringReplace($StrSpl[$i], ')', "")
		$StrSpl[$i] = StringReplace($StrSpl[$i], ';', "")
		$StrSpl[$i] = StringRegExpReplace($StrSpl[$i], ":", "", 1)
		$StrLen = StringLen($StrSpl[$i])
		$LastDigit = StringMid($StrSpl[$i], $StrLen)
		$Alpha = StringIsAlpha($LastDigit)
		While $Alpha = 0
			$StrSpl[$i] = StringTrimRight($StrSpl[$i], 1)
			$StrLen = $StrLen - 1
			$LastDigit = StringMid($StrSpl[$i], $StrLen)
			$Alpha = StringIsAlpha($LastDigit)
		WEnd
;~ 				;Komma im Datum entfernen
		$StrSpl[$i] = StringReplace($StrSpl[$i], ",", ".", 5)
		$StrSpl[$i] = StringReplace($StrSpl[$i], ".", ",", 4)
		$StrSpl[$i] = StringReplace($StrSpl[$i], ",", ".", 3)
		$StrSpl[$i] = StringReplace($StrSpl[$i], ".", ",", 2)
;~ 				;Komma im Datum entfernen
		$StrSpl[$i] = StringReplace($StrSpl[$i], ":", "=")
		$StrSpl[$i] = StringReplace($StrSpl[$i], "=", ":", 8)
		$StrSpl[$i] = StringReplace($StrSpl[$i], ":", "=", 6)
		$StrSpl[$i] = StringReplace($StrSpl[$i], "=", ":", 5)
		$StrSpl[$i] = StringReplace($StrSpl[$i], ":", "=", 3)
;~ 				;Alle , austauschen
		$StrSpl[$i] = StringReplace($StrSpl[$i], ",", "|")
;~ 				;wgs84= löschen
		$StrSpl[$i] = StringReplace($StrSpl[$i], "wgs84=", "")
;~ 				;feuerwehr= löschen
		$StrSpl[$i] = StringReplace($StrSpl[$i], "feuerwehr=", "")
;~ 				;cntfeuerwehren ersetzen
		$StrSpl[$i] = StringReplace($StrSpl[$i], "cntfeuerwehren", "anzahl")
;~ 				;feuerwehren= löschen
		$StrSpl[$i] = StringReplace($StrSpl[$i], "feuerwehren=", "")
;~ 				;id= löschen
		$StrSpl[$i] = StringReplace($StrSpl[$i], "id=", "")
;~ 				;default= löschen
		$StrSpl[$i] = StringReplace($StrSpl[$i], "default=", "")
;~ 				;text ersetzen
		$StrSpl[$i] = StringReplace($StrSpl[$i], "text", "einsatzbezeichnung", 1)
;~ 				;text ersetzen
		$StrSpl[$i] = StringReplace($StrSpl[$i], "text", "einsatzsubbezeichnung", 1)
;~ 				;text ersetzen
		$StrSpl[$i] = StringReplace($StrSpl[$i], "text", "bezirkbezeichnung", 1)
;~ 				;alles CAPS
		$StrSpl[$i] = StringUpper($StrSpl[$i])
		_GUICtrlEdit_AppendText($EditConsole,"data: "&$i&"/"&UBound($StrSpl) - 1&" loaded"&@CRLF)


		$percent = Round(($i / (UBound($StrSpl) - 1)) * 100,0)
		GUICtrlSetData($Progress1,$percent)
		Sleep(10)


		FileWriteLine(@ScriptDir&"\temp.nme",$StrSpl[$i])
	Next
	_GUICtrlEdit_AppendText($EditConsole,"______________________"&@CRLF)
	_GUICtrlEdit_AppendText($EditConsole,"function _Update ended"&@CRLF)
EndFunc   ;==>_Update


Func _Filtern()
	_GUICtrlEdit_AppendText($EditConsole,"function _Filtern started"&@CRLF)
	$LineCount = _FileCountLines(@ScriptDir&"\temp.nme")
	For $a = 1 To $LineCount
		$Temp = FileReadLine(@ScriptDir&"\temp.nme",$a)
		If	StringRegExp($Temp,$QueryDef_Read) = 1 Then
			Global $TempSp = StringSplit($Temp,"|",2)
			If FileExists(@ScriptDir&"\Versendet\"&StringReplace($TempSp[0],"NUM1=","")&".lfk") = 0 Then
				_GUICtrlEdit_AppendText($EditConsole,"data not found -> must be new"&@CRLF)


				;XXXX VERSENDEN
				_GUICtrlEdit_AppendText($Edit1,"XXXXXXXXXXXXXXXXXXXXXXXXXXX VERSENDET XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX "&@CRLF)
				;XXXX VERSENDEN




				FileWrite(@ScriptDir&"\Versendet\"&StringReplace($TempSp[0],"NUM1=","")&".lfk",$Temp)
			EndIf
		ElseIf $QueryDef_Read = "ALLE [OÖ]" Then
			Global $TempSp = StringSplit($Temp,"|",2)
			If FileExists(@ScriptDir&"\Versendet\"&StringReplace($TempSp[0],"NUM1=","")&".lfk") = 0 Then
				_GUICtrlEdit_AppendText($EditConsole,"data not found -> must be new"&@CRLF)


				;XXXX VERSENDEN
				_GUICtrlEdit_AppendText($Edit1,"XXXXXXXXXXXXXXXXXXXXXXXXXXX VERSENDET XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX "&@CRLF)
				;XXXX VERSENDEN




				FileWrite(@ScriptDir&"\Versendet\"&StringReplace($TempSp[0],"NUM1=","")&".lfk",$Temp)
			EndIf
		EndIf
		$percent = Round(($a / $LineCount) * 100,0)
		GUICtrlSetData($Progress1,$percent)
		Sleep(10)
		_GUICtrlEdit_AppendText($Edit1,"Abfrage für "&$QueryDef_Read&": "&@CRLF)
			For $b = 0 To  UBound($TempSp) -1
				_GUICtrlEdit_AppendText($Edit1,$TempSp[$b]&@CRLF)
			Next
		_GUICtrlEdit_AppendText($Edit1,""&@CRLF)
	Next
		_GUICtrlEdit_AppendText($EditConsole,"function _Filtern ended"&@CRLF)


			_GUICtrlEdit_SetText($EditConsole,$Intervall_Read/1000&@CRLF)
			AdlibRegister("_Time",1000)
			AdlibRegister("_Scan",$Intervall_Read)
EndFunc


Func _Time()
	$read = GUICtrlRead($EditConsole)
	$c = $read - 1
	_GUICtrlEdit_SetText($EditConsole,$c&" Sekunden bis zum nächsten Update!"&@CRLF)
EndFunc

Alles anzeigen

Bei meinem letzten Post kann man den Entstehungsprozess ein bisschen mitverfolgen.
Nochmals Vielen Dank an Kanashius!
____________________________________________________

Liebe Grüße,
Stoani

**autoBert**

auch wenn es sich dabei um deine eigene Feuerwehreinsatsimulation handelt, Spieleautomation wird hier grundsätzlich nicht unterstützt!

Stoani

Danke für die flotte Antwort bert!

Ich weiß zwar nicht genau was du mit Spieleautomation meinst, aber ich will damit für meinen Bezirk eine Benachrichtigungssoftware erstellen, damit meine Kollegen und ich uns schneller auf z.B. die Nachbesetzung einer Dienststelle (RK) vorbereiten können. Hat für mich nicht recht viel mit einem "Spiel" zu tun. Aber wenn du sagst, es wird nicht unterstützt, werde ich mich natürlich damit begnügen müssen.

Liebe Grüße,
Stoani

**autoBert**

Lies dir die Forenregeln durch und versuch jetzt nicht mir/uns zu erklären das es sich um echte
Einsätze handelt. Ich hab die URL in deinem Skript

Code

Global $aIE = _IECreate("http://ooe.martinhochreiter.at")

aufgerufen für mich eindeutig ein Simulationsspiel = eindeutig gegen die Forenregeln. Oder kann in Oberösterreich jeder mitlesen wo es im Moment etwas zu sehen gibt. Wieviel zusätzliche Einsatzkräfte benötigt ihr um die ganzen Schaulistigen im Zaun zu halten?

Stoani

Sorry. Ich weiß ich hab eigentlich nicht das Recht dich zu berichtigen, aber verdammt nochmal das sind echte. Die Seite http://ooe.martinhochreiter.at bezieht ihre Daten von der Offiziellen LFK (LandesFeuerwehrKommando) Oberösterreich (http://intranet.ooelfv.at/) Wenn du mir das nicht glaubst, tut es mir leid.

Das ist kein verdammtes Spiel!
So funktioniert das nun einmal bei uns in Oberösterreich!
Sobald die jeweiligen Feuerwehren alarmiert werden, und das werden sie vom http://www.ooelfv.at/ LFK, dann wird sofort ein Eintrag (http://intranet.ooelfv.at/) erstellt.
Ich bin unter anderem in einer Rettungsleitstelle tätig und du wirst mir jetzt sicher nicht sagen, wie unser Feuerwehr - Alarmierungssystem funktioniert.

Sorry für den rauen Ton aber ich fühle mich gerade echt im Recht.

Grüße,
Stoani

**autoBert**

Armes Österreich, wenn jetzt schon Privatleute eigentlich hoheitliche Seiten unter eigenem Namen hosten müssen. Und wieder andere sich erst selbst die Werkzeuge erstellen müssen um die hoheitlichen Aufgaben erledigen zu können.

Halte du (und auch andere) dich bitte zurück bis sich ein Moderator dazu geäussert hat.

Im übrigen solltest du den Ersteller der Seite darüber informieren, daß er gegen § 5 Abs. 1 E-Commerce-Gesetz (ECG) verstößt, denn ich kann gar nicht (und erst recht nicht leicht) die geforderten Infos abrufen!

**Kanashius**

@autoBert:
Sieh mal hier: http://ooe.martinhochreiter.at/#about
Dort steht, dass die Infos von den Livedaten stammen. Woher die Seite die Daten hat ist ja auch relativ egal, da muss sich die Seite verantworten (wobei für mich dort alles rechtens aussieht). Dort steht sogar, warum es unter privatem Namen steht...

Also mal ganz abgesehen davon, dass das ein sehr langweiliges Spiel wäre... Du musst doch nicht immer gleich jeden verdächtigen einen Bot zu schreiben, nur weil er etwas automatisieren möchte

Hab grad keine Zeit (Klausuren), werds mir demnächst ansehen, falls bis dahin niemand eine Antwort/Lösung hat.

OÖLFV bei google gibt auch direkt die Original-Seite, sowie die hier genannte als 2tes Ergebnis.

@Stoani':
Magst du einmal präzisieren, wie genau wir dir helfen können? Suchst du nach einer Besseren Lösung, einfach nur allgemeinen verbesserungs Vorschlägen,... hab dein Problem nicht so genau erkennen können.

Edit: (Autobert,) Da du den zugriff auf der Offiziellen Seite nicht gefunden hast:
http://intranet.ooelfv.at/
Dort links einfach in der Liste draufklicken.

**Raupi**

Kloppt euch nicht...

Stoani

Zitat von Raupi

Kloppt euch nicht...

Aber er hat angefangen

Mein Hauptproblem liegt beim Auslesen von dynamischen Daten (Textzeilen) aus oben genannter Website. Kann aber auch direkt die LFK - Homepage (http://intranet.ooelfv.at/) sein. Ich hatte die Website von Martin Hochreiter nur verwendet, weil es mir damit leichter gefallen ist.

Wenn sich nun mehrere Feuerwehren im Einsatz befinden, verändert sich schließlich die Anzahl der verwendeten Zeilen. Dies macht es mir nicht gerade leicht, nach dem "Auslesen, Abspeichern, Formatieren, Zeilen auslesen und als Paket verschicken" - System zu arbeiten wie ich es in meinem ersten Lösungsansatz versucht habe. Ich würde daher gerne wissen, wie ich diese http://up.picr.de/24469640co.png "Einsatz - Blockbauteile" im Ganzen auslesen kann, und nicht den gesamten ".innertext" um ihn danach erst recht wieder formatieren zu müssen.

Liebe Grüße,
Stoani

**Kanashius**

So, habs mir mal angeschaut, nen kleinen Moment hatte ich noch

Aus der Seite hab ich mal ausgelesen, wo die die Daten her hat. Die kommen von einer JSON-Abfrage:
Laufende Einsätze: http://intranet.ooelfv.at/webext2/getjson.php?scope=laufend&callback=?
Die Adresse einfach mit InetRead herunterladen.
Alle Adressen:
ressource_current = http://intranet.ooelfv.at/webext2/getjson.php?scope=laufend&callback=?
ressource_day = http://intranet.ooelfv.at/webext2/getjson.php?scope=taeglich&callback=?
ressource_2days = http://intranet.ooelfv.at/webext2/getjson.php?scope=2tage&callback=?
ressource_6hours = http://intranet.ooelfv.at/webext2/getjson.php?scope=6stunden&callback=?
ressource_district = http://intranet.ooelfv.at/webext2/getjson.php?scope=taeglich
ressource_detail = http://intranet.ooelfv.at/webext2/detail.php?output=json

Um die \u00e4 (Unicode Schriftzeichen herauszubekommen):

AutoIt

#include <WinAPI.au3>
Local $str = "My name is \u0393\u03A1\u0397"
Local $utfStr = Execute("'" & StringRegExpReplace($str, "(\\u([[:xdigit:]]{4}))","' & ChrW(0x$2) & '") & "'")
Local $ansiStr = _WinAPI_WideCharToMultiByte($utfStr)
MsgBox(64,"Unicode2Ansi", $utfStr & @CRLF & $ansiStr)

Die JSON-Datei, diese musst du parsen und die Daten verarbeiten. Kannst ja mal versuchen, wie weit du kommst

Mit dem Kram kannst du alles bis aufs senden mit dem Messenger aus deinem Script rausnehmen.
Das auslesen kannst du dann einfach öfter wiederholen.
(Würde empfehlen, nicht allzuoft, um die Seite nicht allzusehr auszuwerten. Denke, alle 30 Sekunden, oder so dürfte reichen)

Zum Parsen kannst du RegExp nutzen z.B. StringRegExp($sJSON,'"cnt_feuerwehren":(.*?),')
Und _StringBetween($sJSON,'"cnt_feuerwehren":',","), gibt nen array. In diesem Fall einfach mit [0] auf den ersten Eintrag zugreifen
Und ...
Probier einfach mal aus.
Dadurch ist dein Programm auch nicht sehr Fehleranfällig, sobald du beim Parsen alle eventualitäten bedenkst.

Dies ist ein Beispieldatensatz. Hab ihn eingerückt, damit du eine bessere Übersicht bekommst. Du musst Parsen, als würde alles in einer Zeile stehen.
Beispiel JSON:

Code

?(
{
"webext2":true,
"version":"1.2",
"title":"laufende Eins\u00e4tze",
"pubDate":"Tue, 02 Feb 2016 23:10:04 +0100",
"cnt_feuerwehren":7,
"cnt_einsaetze":2,
"einsaetze":
	{
	"0":
		{
		"einsatz":
			{
			"num1":"E160200347",
			"einsatzort":"GM - EBENSEE",
			"startzeit":"Tue, 02 Feb 2016 18:53:00 +0100",
			"inzeit":"",
			"status":"offen",
			"alarmstufe":1,
			"einsatzart":"BRAND",
			"einsatztyp":
				{
					"id":"BRAND",
					"text":"BRANDEINSATZ GRO\u00df"
				},
			"einsatzsubtyp":
				{
					"id":"HAUS-BG",
					"text":"BRAND WOHNHAUS"
				},
			"adresse":
				{
					"default":"LANGWIESERSTRA\u00dfE 132",
					"earea":"LANGWIES",
					"emun":"EBENSEE",
					"efeanme":"LANGWIESERSTRA\u00dfE",
					"estnum":"132",
					"ecompl":""
				},
			"wgs84":
				{
					"lng":13.704905457987,
					"lat":47.759718135386
				},
			"bezirk":
				{
					"id":3,
					"text":"Gmunden"
				},
			"cntfeuerwehren":5,
			"feuerwehren":
				{
				"403102":{"feuerwehr":"FF Bad Ischl"},
				"403103":{"feuerwehr":"FF Ebensee"},
				"403107":{"feuerwehr":"FF Langwies"},
				"403114":{"feuerwehr":"FF Rindbach"},
				"403115":{"feuerwehr":"FF Roith \/ GM"}
				}
			}
		},
	"1":
		{
		"einsatz":
			{
			"num1":"E160200342",
			"einsatzort":"SE - TERNBERG",
			"startzeit":"Tue, 02 Feb 2016 18:14:04 +0100",
			"inzeit":"",
			"status":"offen",
			"alarmstufe":1,
			"einsatzart":"TEE",
			"einsatztyp":
				{
				"id":"VU",
				"text":"VERKEHRSUNFALL"
				},
			"einsatzsubtyp":
				{
				"id":"AUFRAEUM-VU",
				"text":"VERKEHRSUNFALL AUFR\u00c4UMARBEITEN"
				},
			"adresse":
				{
				"default":"SCHOBERSTEINSTRA\u00dfE 10",
				"earea":"TERNBERG",
				"emun":"TERNBERG",
				"efeanme":"SCHOBERSTEINSTRA\u00dfE",
				"estnum":"10",
				"ecompl":""
				},
			"wgs84":
				{
				"lng":14.345625029402,
				"lat":47.914746905637
				},
			"bezirk":
				{
				"id":11,
				"text":"Steyr-Land"
				},
			"cntfeuerwehren":2,
			"feuerwehren":
				{
				"411317":{"feuerwehr":"FF Trattenbach"},
				"41510106":{"feuerwehr":"FW Technischer Zug Steyr"}
				}
			}
		}
	}
}
);

Alles anzeigen

Hoffe, das hilft dir weiter.

MfG Kanashius.

Edit: Hier wird das Parsen von der Seite gemacht:
view-source:http://ooe.martinhochreiter.at/javascript/functions.js?v1
Hilft dir vielleicht noch.

Stoani

AutoIt

While 1
	Send("Danke")
WEnd

Das ist ja wie Weihnachten und Ostern gemeinsam!

Vielen Dank, werde mich morgen darauf stürzen. Deinen Post muss ich mir zwar teilweise von Google übersetzen lassen und auch parsen etc. wird zum lernen sein, aber des wird schon klappen!

So wie du drauf bist, gehen deine Klausuren doch runter wie nix!

Liebe Grüße,
Stoani

**Kanashius**

Wenn man Infos von Seiten wie Youtube geparst hat, dann ist sowas recht schnell gemacht
Übung macht den meister^^

Stoani

Ganz kurz noch, kennst du gutes Lesematerial zum einlesen in die Marterie?

Edit:

Zitat von Kanashius

(Würde empfehlen, nicht allzuoft, um die Seite nicht allzusehr auszuwerten. Denke, alle 30 Sekunden, oder so dürfte reichen)

Nope, war mir klar. Würde mir auch nix bringen wenn ich die Seite überstrapaziere.

**autoBert**

Bin immer noch der Meinung, das die Seite (mit Duldung?) zwar offizielle Daten nutzt, aber es ist keine offizielle Seite:

Code

Hierbei handelt es sich um KEINE offizielle Applikation des OÖ. Landesfeuerwehr- verbandes (OÖLFV). Ziel der Anwendung ist es, das Bild der oberösterreichischen Feuerwehren zu stärken und feuerwehr- interessierten Personen einen Einblick in das Tagesgeschehen oberösterreichischer Feuerwehren zu geben.

auch bin ich immer noch der Meinung daß die Seite nicht der Impressumspflicht genügt (simples Icon mit Kontakt-Link). Aber solange @Oscar oder ein anderer Mod hier nicht schliesst ist es mir recht.

Das man Daten einer IntraNetseite (http://intranet.ooelfv.at/) ohne angemeldet zu sein zu sehen bekommt und auch auslesen kann verwundert mich etwas,denn:

Zitat von wikipedia

Intranet

Ein Intranet (lat. intra ‚innerhalb‘ und engl. net ‚Netz‘) ist ein Rechnernetz, das im Gegensatz zum Internet

kein öffentliches Netz benutzt
nicht öffentlich ist,
eingeschränkte Funktionen (Protokolle) bietet

Afair habe ich etwas ähnliches (Rettungswesen/Bergwacht? auch Österreich) vor Jahren schon einmal supportet, damals hat der TE aber zu erkennen gegeben, daß es eine Seite für Übungszwecke ist. Wer sagt dir/uns denn, daß die Seite ooelfv.at nicht auch nur ein Übungsserver ist? Dies wäre besser für Vöcklabruck ATTNANG-PUCHHEIM, denn dort gibt es mindestens 1 Hirnrissigen der sinnlos die Brandmeldetaste mehrmals drückt.
Aber auch mit Daten aus einem Übungsserver auszulesen habe ich kein Problem. Aber Daten auslesen um sich in einem Wettbewerb Vorteile zu verschaffen, damit habe ich Probleme.

mfg autoBert

Stoani

Das mit VB und der Brandmeldetaste ist mir auch aufgefallen. Aber ich denke nicht, dass die wirklich so oft gedrückt wurde.

Wenn du willst, Bert, kann ich dir gerne Aktuelle Ereignisse dokumentieren. Der Brand zum Beispiel in GM - Ebensee, Langwieserstraße 132 ist tatsächlich passiert. Ich hab früher mal in der Nähe gewohnt und ein Freund aus der Zeit hat mir bestätigt, dass das Haus gegenüber der Firma "Leirich" komplett abgebrannt ist. Kannst du mir jetzt natürlich glauben oder auch nicht. Fakt ist, ich kann dir ein dutzend Beispiele nennen, bei denen ich sogar "live" dabei war.
Seltsam ist es schon, dass die Daten der Öffentlichkeit ohne wenn und aber zur Verfügung gestellt werden. Vor allem da sich Präzise Einsatzadressen darunter befinden...

http://up.picr.de/24471039cy.jpg

Bei diesem Einsatz war ich zb. das erste Rettungsmittel vor Ort und Anforderer der FF (eingekl. u. ohne. Bewusstsein)
Kannst du mir auch wieder glauben oder auch nicht

**autoBert**

Ich habe kein Problem damit hinterher über einen Einsatz zu lesen. Wenn ich/jeder aber aktuell sehen kann in XY sind Feuerwehr A-Stadt und Feuerwehr B-Stadt aktuell im Einsatz wundere ich mich schon. Daß es Personengruppen gibt, welche es sogar einsehen können müssen ist für mich absolut klar.
Btw.: Ist eure Gendamerie genauso auskunftsfreudig? Was, wo, wieviele Fahrzeuge im Einsatz und das in Echtzeit. Wenn ja schule ich um und wandere nach Österreich aus.

Stoani

Nein. Auch von uns im Rettungsdienst bekommst du keine Auskunft.
Frag mich nicht wieso.

Gendarmerie gibt es schon lange nicht mehr. So weit in der Steinzeit leben wir auch nicht mehr

Edit1:

Soweit so gut. Läuft wie geschmiert. Mit deinem Ansatz lässt sich wirklich so einiges Anstellen @Kanashius !

AutoIt

#include <array.au3>
$oIE_getBinary = InetRead("http://intranet.ooelfv.at/webext2/getjson.php?scope=laufend&callback=",1)
$oIE_toString = BinaryToString($oIE_getBinary,1);	<-- Binary zu String (ANSI) Konvertierung.


$StrRep_1 = Execute("'" & StringRegExpReplace($oIE_toString, "(\\u([[:xdigit:]]{4}))","' & ChrW(0x$2) & '") & "'");	<-- UNI-Code Schriftzeichen.
$StrRep_2 = StringRegExpReplace($StrRep_1,'"',"*");	<-- Alle Anführungs - Zeichen ersetzen. Anführungszeichen sind verwirrend ;)


$StrWS_1 = StringStripWS($StrRep_2,4);	<-- Alle Leerzeichen entfernen.


#Region FileWrite;	<-- String in "String.txt" NEU abspeichern (Alte Version wird ggf. gelöscht) und neu einlesen. Erleichtert das Scripten, da nicht immer neu aus dem Netz geladen werden muss.
FileDelete(@ScriptDir&"\Current.txt")
FileWrite(@ScriptDir&"\Current.txt",$StrWS_1)
$Current_String = FileRead(@ScriptDir&"\Current.txt")
#EndRegion


$AnzahlEinsaetze = _StringBetween2($StrWS_1,"*cnt_einsaetze*:",",*einsaetze*")
$AnzahlFeuerwehren = _StringBetween2($StrWS_1,"*cnt_feuerwehren*:",",*cnt_einsaetze*")


ConsoleWrite(@CR&"- Laufende Einsätze: "&$AnzahlEinsaetze&@CR)
ConsoleWrite(@CR&"- Feuerwehren im Einsatz: "&$AnzahlFeuerwehren&@CR)


Func _StringBetween2($s, $from, $to)
    $x = StringInStr($s, $from) + StringLen($from)
    $y = StringInStr(StringTrimLeft($s, $x), $to)
    Return StringMid($s, $x, $y)
EndFunc  ;==>_StringBetween

Alles anzeigen

_StringBetween2 hab ich mir aus diesem Thread gemobst: https://www.autoitscript.com/forum/topic/89554-parsing-html-data/?do=findComment&comment=643708

Danke an
StrategicX

Falls jemand Lust und Laune hat, kann er ja gern noch ein paar Pointer zum Thema 24/7 abgeben. Ich würde wahrscheinlich AdlibRegister verwenden. Vorschläge?

Edit2:
Noch mehr Codegeschnipsel

AutoIt

#include <array.au3>
#include <_StringBetween2.au3>




;~ $oIE_getBinary = InetRead("http://intranet.ooelfv.at/webext2/getjson.php?scope=laufend&callback=",1)
;~ $oIE_toString = BinaryToString($oIE_getBinary,1);	<-- Binary zu String (ANSI) Konvertierung.


;~ $StrRep_1 = Execute("'" & StringRegExpReplace($oIE_toString, "(\\u([[:xdigit:]]{4}))","' & ChrW(0x$2) & '") & "'");	<-- UNI-Code Schriftzeichen.
;~ $StrRep_2 = StringRegExpReplace($StrRep_1,'"',"*");	<-- Alle Anführungs - Zeichen ersetzen. Anführungszeichen sind verwirrend ;)


;~ $StrWS_1 = StringStripWS($StrRep_2,4);	<-- Alle Leerzeichen entfernen.


;~ #Region FileWrite;	<-- String in "String.txt" NEU abspeichern (Alte Version wird ggf. gelöscht) und neu einlesen. Erleichtert das Scripten, da nicht immer neu aus dem Netz geladen werden muss.
;~ FileDelete(@ScriptDir&"\Current1.txt")
;~ FileWrite(@ScriptDir&"\Current1.txt",$StrWS_1)
$StrWS_1 = FileRead(@ScriptDir&"\Current.txt")
;~ #EndRegion




$AnzahlEinsaetze = _StringBetween2($StrWS_1,"*cnt_einsaetze*:",",*einsaetze*")
If $AnzahlEinsaetze = 0 Then
	ConsoleWrite(@CR & "- Keine Einsätze![code:1]" & @CR)
EndIf


$AnzahlFeuerwehren = _StringBetween2($StrWS_1,"*cnt_feuerwehren*:",",*cnt_einsaetze*")
If $AnzahlFeuerwehren = 0 Then
	ConsoleWrite(@CR & "- Keine Feuerwehren im Einsatz![code:2]" & @CR)
EndIf


_Einsatznummer()


Func AuftragAuslesenALLES()


EndFunc


Func AuftragAuslesenNORMAL()


EndFunc


Func AuftragAuslesenWENIG()


EndFunc


Func _Einsatznummer()
	#Region Variablen
		Local $String = $StrWS_1
	#EndRegion


	For $a = 1 To $AnzahlEinsaetze


		$Nr_Temp  = _StringBetween2($String,"*num1*:*","*,*einsatzort*")
		$String = StringReplace($String,"*einsatz*:{*num1*:*","REPLACED",1)


		If $Nr_Temp = "" Then
			ConsoleWrite(@CR & "- Keine Einsatznummer gefunden![code:3]" & @CR)
		EndIf


		#Region Console
			ConsoleWrite("- Einsatz: " & $a)
			ConsoleWrite(" --> Nummer: " & $Nr_Temp  & @CR)
		#EndRegion


	Next
EndFunc

Alles anzeigen

Edit3:

Nächstes Update vom Code, hab mich nun entschieden die Daten erstmal in eine .ini - Datei zu packen. Da laufen sich nicht davon
Nur wie es mit dem auslesen wird weiß ich noch nicht so ganz. Aber wird schon klappen.

AutoIt

#include <array.au3>
#include <_StringBetween2.au3>
#include <Date.au3>




$ini_path = @ScriptDir & "\Cache_Data.ini"


$oIE_getBinary = InetRead("http://intranet.ooelfv.at/webext2/getjson.php?scope=laufend&callback=", 1)
$oIE_toString = BinaryToString($oIE_getBinary, 1);	<-- Binary zu String (ANSI) Konvertierung.


$StrRep_1 = Execute("'" & StringRegExpReplace($oIE_toString, "(\\u([[:xdigit:]]{4}))", "' & ChrW(0x$2) & '") & "'");	<-- UNI-Code Schriftzeichen.
$StrRep_2 = StringRegExpReplace($StrRep_1, '"', "*");	<-- Alle Anführungs - Zeichen ersetzen. Anführungszeichen sind verwirrend ;)


$StrWS_1 = StringStripWS($StrRep_2, 4);	<-- Alle Leerzeichen entfernen.




FileDelete(@ScriptDir & "\Current1.txt")
FileWrite(@ScriptDir & "\Current1.txt", $StrWS_1)
$StrWS_1 = FileRead(@ScriptDir & "\Current1.txt")














Global $AnzahlEinsaetze = _StringBetween2($StrWS_1, "*cnt_einsaetze*:", ",*einsaetze*")
If $AnzahlEinsaetze = 0 Then
	ConsoleWrite(@CR & "[code:1]" & @CR)
EndIf






$AnzahlFeuerwehren = _StringBetween2($StrWS_1, "*cnt_feuerwehren*:", ",*cnt_einsaetze*")
If $AnzahlFeuerwehren = 0 Then
	ConsoleWrite(@CR & "[code:2]" & @CR)
EndIf
;____________________________________________________________________________________________________________________________________________________________________________________________________


_UploadDatum() ; FIRST
_Einsatzanzahl()
_Feuerwehranzahl()
_Nummer()
_Ort()
_Start()
_Alarmstufe()
_Einsatzart()
_Untergruppe()




Func _UploadDatum()
	FileDelete($ini_path) ; Nur bei der ERSTEN Funktion!!!
	For $a = 1 To $AnzahlEinsaetze
		IniWrite($ini_path, "Einsatzindex: " & $a, "Uploadzeitpunkt", _Now())
	Next
EndFunc   ;==>_UploadDatum






Func _Einsatzanzahl()
	For $a = 1 To $AnzahlEinsaetze
		IniWrite($ini_path, "Einsatzindex: " & $a, "Laufende Einsätze[GESAMT]", $AnzahlEinsaetze)
	Next
EndFunc   ;==>_Einsatzanzahl


Func _Feuerwehranzahl()
	For $a = 1 To $AnzahlEinsaetze
		IniWrite($ini_path, "Einsatzindex: " & $a, "Feuerwehren im Einsatz[GESAMT]", $AnzahlFeuerwehren)
	Next
EndFunc   ;==>_Feuerwehranzahl


Func _Nummer()
	Local $String = $StrWS_1


	For $a = 1 To $AnzahlEinsaetze
		$Index_Temp = $a
		$Nr_Temp = _StringBetween2($String, "*num1*:*", "*,*einsatzort*")
		If $Nr_Temp = "" Then
			ConsoleWrite(@CR & "[code:3]" & @CR)
		EndIf
		$String = StringReplace($String, "*einsatz*:{*num1*:*", "REPLACED", 1)
		IniWrite($ini_path, "Einsatzindex: " & $Index_Temp, "Einsatznummer", $Nr_Temp)
	Next
EndFunc   ;==>_Nummer


Func _Ort()
	Local $String = $StrWS_1
	For $a = 1 To $AnzahlEinsaetze
		$Index_Temp = $a
		$Ort_Temp = _StringBetween2($String, "*einsatzort*:*", "*,*startzeit*:*")
		If $Ort_Temp = "" Then
			ConsoleWrite(@CR & "[code:4]" & @CR)
		EndIf
		$String = StringReplace($String, "*einsatzort*:*", "REPLACED", 1)
		IniWrite($ini_path, "Einsatzindex: " & $Index_Temp, "Bezirk - Ort", $Ort_Temp)
	Next
EndFunc   ;==>_Ort


Func _Start()
	Local $String = $StrWS_1


	For $a = 1 To $AnzahlEinsaetze
		$Index_Temp = $a
		$Zeit_Temp = _StringBetween2($String, "*,*startzeit*:*", "*,*inzeit*")
		If $Zeit_Temp = "" Then
			ConsoleWrite(@CR & "[code:5]" & @CR)
		EndIf
		$String = StringReplace($String, "*,*startzeit*:*", "REPLACED", 1)
		IniWrite($ini_path, "Einsatzindex: " & $Index_Temp, "Einsatzbeginn", $Zeit_Temp)
	Next
EndFunc   ;==>_Start


Func _Alarmstufe()
	Local $String = $StrWS_1


	For $a = 1 To $AnzahlEinsaetze
		$Index_Temp = $a
		$Stufe_Temp = _StringBetween2($String, "*alarmstufe*:", ",*einsatzart*")
		If $Stufe_Temp = "" Then
			ConsoleWrite(@CR & "[code:6]" & @CR)
		EndIf
		$String = StringReplace($String, "*alarmstufe*:", "REPLACED", 1)
		IniWrite($ini_path, "Einsatzindex: " & $Index_Temp, "Alarmstufe", $Stufe_Temp)
	Next
EndFunc   ;==>_Alarmstufe






Func _Einsatzart()
	Local $String = $StrWS_1


	For $a = 1 To $AnzahlEinsaetze
		$Index_Temp = $a
		$Art_Temp = _StringBetween2($String, "*einsatzart*:*", "*,*einsatztyp*")
		If $Art_Temp = "" Then
			ConsoleWrite(@CR & "[code:7]" & @CR)
		EndIf
		$String = StringReplace($String, "*einsatzart*:*", "REPLACED", 1)
		IniWrite($ini_path, "Einsatzindex: " & $Index_Temp, "Einsatzart", $Art_Temp)
	Next
EndFunc   ;==>_Alarmstufe






Func _Untergruppe()
	Local $String = $StrWS_1


	For $a = 1 To $AnzahlEinsaetze
		$Index_Temp = $a
		$SubTyp_Temp = _StringBetween2($String, "*einsatzsubtyp*:{*id*:*", "*,*text*:*")
		If $SubTyp_Temp = "" Then
			ConsoleWrite(@CR & "[code:6]" & @CR)
		EndIf
		$String = StringReplace($String, $SubTyp_Temp, "REPLACED",1)
		$String = StringReplace($String, "*einsatzsubtyp*:{*id*:*", "REPLACED",1)
		$SubTyp_Temp = _StringBetween2($String, ",REPLACEDREPLACED*,*text*:*", "*},*adresse*:")
		$String = StringReplace($String, ",REPLACEDREPLACED*,*text*:*", "REPLACED",1)
		IniWrite($ini_path, "Einsatzindex: " & $Index_Temp, "Untergruppe", $SubTyp_Temp)
	Next
	ConsoleWrite($String)
EndFunc   ;==>_Alarmstufe

Alles anzeigen

Edit4:

Hier ein Auszug der .ini - Datei:

Code

[Einsatzindex: 1]
Uploadzeitpunkt=04.02.2016 14:03:16
Laufende Einsätze[GESAMT]=4
Feuerwehren im Einsatz[GESAMT]=5
Einsatznummer=E160200660
Bezirk - Ort=SD - SCHARDENBERG
Einsatzbeginn=Thu, 04 Feb 2016 13:34:24 +0100
Alarmstufe=1
Einsatzart=TEE
Untergruppe=WASSERTRANSPORT
[Einsatzindex: 2]
Uploadzeitpunkt=04.02.2016 14:03:16
Laufende Einsätze[GESAMT]=4
Feuerwehren im Einsatz[GESAMT]=5
Einsatznummer=E160200655
Bezirk - Ort=EF - FRAHAM
Einsatzbeginn=Thu, 04 Feb 2016 13:14:44 +0100
Alarmstufe=*2*
Einsatzart=PERSON
Untergruppe=VERKEHRSUNFALL EINGEKLEMMTE PERSON
[Einsatzindex: 3]
Uploadzeitpunkt=04.02.2016 14:03:16
Laufende Einsätze[GESAMT]=4
Feuerwehren im Einsatz[GESAMT]=5
Einsatznummer=E160200653
Bezirk - Ort=RO - SANKT PETER AM WIMBERG
Einsatzbeginn=Thu, 04 Feb 2016 13:10:07 +0100
Alarmstufe=1
Einsatzart=TEE
Untergruppe=FAHRZEUGBERGUNG
[Einsatzindex: 4]
Uploadzeitpunkt=04.02.2016 14:03:16
Laufende Einsätze[GESAMT]=4
Feuerwehren im Einsatz[GESAMT]=5
Einsatznummer=E160200649
Bezirk - Ort=SD - MÜNZKIRCHEN
Einsatzbeginn=Thu, 04 Feb 2016 12:35:25 +0100
Alarmstufe=1
Einsatzart=UNWETTER
Untergruppe=ÜBERFLUTUNG

Alles anzeigen

Funktionen die noch fehlen:

Handlung wenn keine Einsätze geladen werden können weil zum Beispiel keine vorhanden sind.

EDIT5:

Nochmal ein Source Update. Ich hab soweit alle relevanten Daten raus bekommen, wenn ich Zeit hab, mach ich eventuell noch die Koordinaten und andere unwichtige Daten.
Jetzt geht es an das Aktualisieren und Verschicken der Pakete.

AutoIt

#include <array.au3>
#include <_StringBetween2.au3>
#include <Date.au3>




$ini_path = @ScriptDir & "\Cache_Data.ini"


$oIE_getBinary = InetRead("http://intranet.ooelfv.at/webext2/getjson.php?scope=laufend&callback=", 1)
$oIE_toString = BinaryToString($oIE_getBinary, 1);	<-- Binary zu String (ANSI) Konvertierung.


$StrRep_1 = Execute("'" & StringRegExpReplace($oIE_toString, "(\\u([[:xdigit:]]{4}))", "' & ChrW(0x$2) & '") & "'");	<-- UNI-Code Schriftzeichen.
$StrRep_2 = StringRegExpReplace($StrRep_1, '"', "*");	<-- Alle Anführungs - Zeichen ersetzen. Anführungszeichen sind verwirrend ;)


$StrWS_1 = StringStripWS($StrRep_2, 4);	<-- Alle Leerzeichen entfernen.




FileDelete(@ScriptDir & "\Current1.txt")
FileWrite(@ScriptDir & "\Current1.txt", $StrWS_1)
$StrWS_1 = FileRead(@ScriptDir & "\Current.txt")














Global $AnzahlEinsaetze = _StringBetween2($StrWS_1, "*cnt_einsaetze*:", ",*einsaetze*")
If $AnzahlEinsaetze = 0 Then
	ConsoleWrite(@CR & "[code:1]" & @CR)
EndIf






$AnzahlFeuerwehren = _StringBetween2($StrWS_1, "*cnt_feuerwehren*:", ",*cnt_einsaetze*")
If $AnzahlFeuerwehren = 0 Then
	ConsoleWrite(@CR & "[code:2]" & @CR)
EndIf




_UploadDatum() ; FIRST
_Einsatzanzahl()
_Feuerwehranzahl()
_Nummer()
_Ort()
_Start()
_Alarmstufe()
_Einsatzart()
_Untergruppe()
_Adresse()
_Gemeinde()
_Region()
_Feuerwehren()




Func _UploadDatum()
	FileDelete($ini_path) ; Nur bei der ERSTEN Funktion!!!
	For $a = 1 To $AnzahlEinsaetze
		IniWrite($ini_path, "Einsatzindex: " & $a, "Uploadzeitpunkt", _Now())
	Next
EndFunc   ;==>_UploadDatum


Func _Einsatzanzahl()
	For $a = 1 To $AnzahlEinsaetze
		IniWrite($ini_path, "Einsatzindex: " & $a, "Laufende Einsätze[GESAMT]", $AnzahlEinsaetze)
	Next
EndFunc   ;==>_Einsatzanzahl


Func _Feuerwehranzahl()
	For $a = 1 To $AnzahlEinsaetze
		IniWrite($ini_path, "Einsatzindex: " & $a, "Feuerwehren im Einsatz[GESAMT]", $AnzahlFeuerwehren)
	Next
EndFunc   ;==>_Feuerwehranzahl


Func _Nummer()
	Local $String = $StrWS_1


	For $a = 1 To $AnzahlEinsaetze
		$Index_Temp = $a
		$Nr_Temp = _StringBetween2($String, "*num1*:*", "*,*einsatzort*")
		If $Nr_Temp = "" Then
			ConsoleWrite(@CR & "[code:3]" & @CR)
		EndIf
		$String = StringReplace($String, "*einsatz*:{*num1*:*", "REPLACED", 1)
		IniWrite($ini_path, "Einsatzindex: " & $Index_Temp, "Einsatznummer", $Nr_Temp)
	Next
EndFunc   ;==>_Nummer


Func _Ort()
	Local $String = $StrWS_1
	For $a = 1 To $AnzahlEinsaetze
		$Index_Temp = $a
		$Ort_Temp = _StringBetween2($String, "*einsatzort*:*", "*,*startzeit*:*")
		If $Ort_Temp = "" Then
			ConsoleWrite(@CR & "[code:4]" & @CR)
		EndIf
		$String = StringReplace($String, "*einsatzort*:*", "REPLACED", 1)
		IniWrite($ini_path, "Einsatzindex: " & $Index_Temp, "Bezirk - Ort", $Ort_Temp)
	Next
EndFunc   ;==>_Ort


Func _Start()
	Local $String = $StrWS_1


	For $a = 1 To $AnzahlEinsaetze
		$Index_Temp = $a
		$Zeit_Temp = _StringBetween2($String, "*,*startzeit*:*", "*,*inzeit*")
		If $Zeit_Temp = "" Then
			ConsoleWrite(@CR & "[code:5]" & @CR)
		EndIf
		$String = StringReplace($String, "*,*startzeit*:*", "REPLACED", 1)
		IniWrite($ini_path, "Einsatzindex: " & $Index_Temp, "Einsatzbeginn", $Zeit_Temp)
	Next
EndFunc   ;==>_Start


Func _Alarmstufe()
	Local $String = $StrWS_1


	For $a = 1 To $AnzahlEinsaetze
		$Index_Temp = $a
		$Stufe_Temp = _StringBetween2($String, "*alarmstufe*:", ",*einsatzart*")
		If $Stufe_Temp = "" Then
			ConsoleWrite(@CR & "[code:6]" & @CR)
		EndIf
		$String = StringReplace($String, "*alarmstufe*:", "REPLACED", 1)
		IniWrite($ini_path, "Einsatzindex: " & $Index_Temp, "Alarmstufe", $Stufe_Temp)
	Next
EndFunc   ;==>_Alarmstufe


Func _Einsatzart()
	Local $String = $StrWS_1


	For $a = 1 To $AnzahlEinsaetze
		$Index_Temp = $a
		$Art_Temp = _StringBetween2($String, "*einsatzart*:*", "*,*einsatztyp*")
		If $Art_Temp = "" Then
			ConsoleWrite(@CR & "[code:7]" & @CR)
		EndIf
		$String = StringReplace($String, "*einsatzart*:*", "REPLACED", 1)
		IniWrite($ini_path, "Einsatzindex: " & $Index_Temp, "Einsatzart", $Art_Temp)
	Next
EndFunc   ;==>_Einsatzart


Func _Untergruppe()
	Local $String = $StrWS_1


	For $a = 1 To $AnzahlEinsaetze
		$Index_Temp = $a
		$SubTyp_Temp = _StringBetween2($String, "*einsatzsubtyp*:{*id*:*", "*,*text*:*")
		If $SubTyp_Temp = "" Then
			ConsoleWrite(@CR & "[code:6]" & @CR)
		EndIf
		$String = StringReplace($String, $SubTyp_Temp, "REPLACED", 1)
		$String = StringReplace($String, "*einsatzsubtyp*:{*id*:*", "REPLACED", 1)
		$SubTyp_Temp = _StringBetween2($String, ",REPLACEDREPLACED*,*text*:*", "*},*adresse*:")
		$String = StringReplace($String, ",REPLACEDREPLACED*,*text*:*", "REPLACED", 1)
		IniWrite($ini_path, "Einsatzindex: " & $Index_Temp, "Untergruppe", $SubTyp_Temp)
	Next
EndFunc   ;==>_Untergruppe


Func _Adresse()
	Local $String = $StrWS_1


	For $a = 1 To $AnzahlEinsaetze
		$Index_Temp = $a
		$Adresse_Temp = _StringBetween2($String, "*adresse*:{*default*:*", "*,*earea*:*")
		If $Adresse_Temp = "" Then
			ConsoleWrite(@CR & "[code:7]" & @CR)
		EndIf
		$String = StringReplace($String, "*adresse*:{*default*:*", "REPLACED", 1)
		IniWrite($ini_path, "Einsatzindex: " & $Index_Temp, "Adresse", $Adresse_Temp)
	Next
EndFunc   ;==>_Adresse


Func _Gemeinde()
	Local $String = $StrWS_1


	For $a = 1 To $AnzahlEinsaetze
		$Index_Temp = $a
		$Gemeinde_Temp = _StringBetween2($String, "*emun*:*", "*,*efeanme*:*")
		$Length = StringLen($Gemeinde_Temp)


		If $Length > 30 Then
			$Gemeinde_Temp = "Keine Gemeinde Gefunden"
			ConsoleWrite(@CR & "[code:8]" & @CR)
		EndIf


		$String = StringReplace($String, "*emun*:*", "REPLACED", 1)
		IniWrite($ini_path, "Einsatzindex: " & $Index_Temp, "Gemeinde", $Gemeinde_Temp)
	Next
EndFunc   ;==>_Gemeinde


Func _Region()
	Local $String = $StrWS_1


	For $a = 1 To $AnzahlEinsaetze
		$Index_Temp = $a
		$Region_Temp = _StringBetween2($String, "*,*earea*:*", "*,*emun*:*")
		$Length = StringLen($Region_Temp)


		If $Length > 20 Then
			$Region_Temp = "Keine Region Gefunden"
			ConsoleWrite(@CR & "[code:9]" & @CR)
		ElseIf $Length < 3 Then
			$Region_Temp = "Keine Region Gefunden"
			ConsoleWrite(@CR & "[code:9]" & @CR)
		EndIf
		$String = StringReplace($String, "*,*earea*:*", "REPLACED", 1)
		IniWrite($ini_path, "Einsatzindex: " & $Index_Temp, "Region", $Region_Temp)
	Next
EndFunc   ;==>_Region


Func _Feuerwehren()
	Local $String = $StrWS_1


	For $a = 1 To $AnzahlEinsaetze
		$Index_Temp = $a
		$FF_Temp = _StringBetween2($String, "*},*cntfeuerwehren*:", "*}}}}")
		$FF_Temp = StringReplace($FF_Temp, "cntfeuerwehren", "")
		$FF_Temp = StringReplace($FF_Temp, "*", "")
		$FF_Temp = StringReplace($FF_Temp, ":", "")
		$FF_Temp = StringReplace($FF_Temp, "}", "")
		$FF_Temp = StringReplace($FF_Temp, "{", "")
		$FF_Temp = StringReplace($FF_Temp, "feuerwehren", "")
		$FF_Temp = StringReplace($FF_Temp, "feuerwehr", "")
		$FF_Temp = StringRegExpReplace($FF_Temp, "\d", "")
		$FF_Temp = StringTrimLeft($FF_Temp, 1)
		$String = StringReplace($String, "*},*cntfeuerwehren*:", "REPLACED", 1)
		IniWrite($ini_path, "Einsatzindex: " & $Index_Temp, "Feuerwehr", $FF_Temp)
		ConsoleWrite(@CR & $FF_Temp & @CR)
	Next
EndFunc   ;==>_Feuerwehren

Alles anzeigen

Verbesserungsvorschläge zur Optimierung? Weniger Fehlerquellen und so.

Nochmal die .ini-Datei:

Code

[Einsatzindex: 1]


Uploadzeitpunkt=04.02.2016 15:46:32
Laufende Einsätze[GESAMT]=4
Feuerwehren im Einsatz[GESAMT]=6
Einsatznummer=E160200595
Bezirk - Ort=GM - BAD ISCHL
Einsatzbeginn=Wed, 03 Feb 2016 18:09:37 +0100
Alarmstufe=1
Einsatzart=BRAND
Untergruppe=BRANDMELDEALARM
Adresse=GARTENSTRAßE 9
Gemeinde=BAD ISCHL
Region=KALTENBACH
Feuerwehr=FF Bad Ischl,FF Pfandl




[Einsatzindex: 2]


Uploadzeitpunkt=04.02.2016 15:46:32
Laufende Einsätze[GESAMT]=4
Feuerwehren im Einsatz[GESAMT]=6
Einsatznummer=E160200592
Bezirk - Ort=RO - JULBACH
Einsatzbeginn=Wed, 03 Feb 2016 17:47:58 +0100
Alarmstufe=1
Einsatzart=TEE
Untergruppe=TECHNISCHER EINSATZ
Adresse=JULBACH
Gemeinde=JULBACH
Region=Keine Region Gefunden
Feuerwehr=FF Julbach




[Einsatzindex: 3]


Uploadzeitpunkt=04.02.2016 15:46:32
Laufende Einsätze[GESAMT]=4
Feuerwehren im Einsatz[GESAMT]=6
Einsatznummer=E160200589
Bezirk - Ort=RO - 
Einsatzbeginn=Wed, 03 Feb 2016 16:36:55 +0100
Alarmstufe=*2*
Einsatzart=PERSON
Untergruppe=VERKEHRSUNFALL EINGEKLEMMTE PERSON
Adresse=UNTERHART 28 UNTERHART ST. MARTIN IM MÜHLKREIS 
Gemeinde=Keine Gemeinde Gefunden
Region=Keine Region Gefunden
Feuerwehr=FF Plöcking,FF St. Martin im Mühlkreis


[Einsatzindex: 4]




Uploadzeitpunkt=04.02.2016 15:46:32
Laufende Einsätze[GESAMT]=4
Feuerwehren im Einsatz[GESAMT]=6
Einsatznummer=E160200587
Bezirk - Ort=RI - EBERSCHWANG
Einsatzbeginn=Wed, 03 Feb 2016 16:35:06 +0100
Alarmstufe=1
Einsatzart=TEE
Untergruppe=TECHNISCHER EINSATZ
Adresse=EBERSCHWANG
Gemeinde=EBERSCHWANG
Region=Keine Region Gefunden
Feuerwehr=FF Eberschwang

Alles anzeigen

EDIT6:

So sieht das Ganze vor Erst einmal aus. Schluss für heute

AutoIt

#include <array.au3>
#include <_StringBetween2.au3>
#include <Date.au3>
#include <IE.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>


$Form1 = GUICreate("Form1", 615, 438, 429, 237)
$Edit1 = GUICtrlCreateEdit("", 8, 8, 345, 417)
$Button1 = GUICtrlCreateButton("Go", 360, 400, 243, 25)
GUISetState(@SW_SHOW)




Global $ini_path = @ScriptDir & "\Cache_Data.ini"
Global $LineBreak = "{SHIFTDOWN}" & "{ENTER}" & "{SHIFTUP}"












While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit


		Case $Button1
			AdlibRegister("_Compare",5000)
	EndSwitch
WEnd




Func _Abfrage()


$oIE_getBinary = InetRead("http://intranet.ooelfv.at/webext2/getjson.php?scope=laufend&callback=", 1)
$oIE_toString = BinaryToString($oIE_getBinary, 1);	<-- Binary zu String (ANSI) Konvertierung.
$StrRep_1 = Execute("'" & StringRegExpReplace($oIE_toString, "(\\u([[:xdigit:]]{4}))", "' & ChrW(0x$2) & '") & "'");	<-- UNI-Code Schriftzeichen.
$StrRep_2 = StringRegExpReplace($StrRep_1, '"', "*");	<-- Alle Anführungs - Zeichen ersetzen. Anführungszeichen sind verwirrend ;)
Global $StrWS_1 = StringStripWS($StrRep_2, 4);	<-- Alle Leerzeichen entfernen.




FileDelete(@ScriptDir & "\StringNEW.txt")
FileWrite(@ScriptDir & "\StringNEW.txt",$StrWS_1)
Global $StrWS_1 = FileRead(@ScriptDir & "\StringNEW.txt")


Global $AnzahlEinsaetze = _StringBetween2($StrWS_1, "*cnt_einsaetze*:", ",*einsaetze*")
If $AnzahlEinsaetze = 0 Then
	ConsoleWrite(@CR & "[code:1]" & @CR)
EndIf
Global $AnzahlFeuerwehren = _StringBetween2($StrWS_1, "*cnt_feuerwehren*:", ",*cnt_einsaetze*")
If $AnzahlFeuerwehren = 0 Then
	ConsoleWrite(@CR & "[code:2]" & @CR)
EndIf
EndFunc




Func _Compare()
	_Abfrage()


	$Read_Temp_NEW = FileRead(@ScriptDir & "\StringNEW.txt")
	$Read_Temp_OLD = FileRead(@ScriptDir & "\StringOLD.txt")
	FileDelete(@ScriptDir & "\StringOLD.txt")
	FileWrite(@ScriptDir & "\StringOLD.txt",$Read_Temp_OLD)
	$StringLengthNEW = StringLen($Read_Temp_NEW)
	$StringLengthOLD = StringLen($Read_Temp_OLD)


If $StringLengthNEW = $StringLengthOLD Then
	ConsoleWrite("-      Keine Veränderung"&@CR)
	GUICtrlSetData($Edit1,"Keine Veränderung  "&_Now())
ElseIf $StringLengthNEW > $StringLengthOLD Then
	FileDelete(@ScriptDir & "\StringOLD.txt")
	FileWrite(@ScriptDir & "\StringOLD.txt",$Read_Temp_NEW)
	ConsoleWrite("-     $StringLengthOLD < $StringLengthNEW"&@CR)
	GUICtrlSetData($Edit1,"Neuer Einsatz  "&_Now())
	$Replaced_OLD = StringRegExpReplace($Read_Temp_NEW,$Read_Temp_OLD,"")
	$StrWS_1 = $Replaced_OLD
_MessageSending()
ElseIf $StringLengthNEW < $StringLengthOLD Then
	FileDelete(@ScriptDir & "\StringOLD.txt")
	FileWrite(@ScriptDir & "\StringOLD.txt",$Read_Temp_NEW)
	ConsoleWrite("-     $StringLengthOLD > $StringLengthNEW"&@CR)
	GUICtrlSetData($Edit1,"Einsatz Ende  "&_Now())
EndIf
EndFunc




























Func _MessageSending()
	_WriteIni()
	Global $oIE = _IECreate("https://www.messenger.com/","",1)
	Local $oInputs = _IETagNameGetCollection($oIE, "a")
	For $oInput In $oInputs
		If $oInput.classname == "_30yy _2oc8" Then _IEAction($oInput, "click")
	Next
	Sleep(500)
	Send("Name"&"{TAB}")
	Local $oInputs = _IETagNameGetCollection($oIE, "div")
	For $oInput In $oInputs
		If $oInput.classname == "_45m_ _2vxa" Then _IEAction($oInput, "click")
	Next
	For $a = 1 To $AnzahlEinsaetze
		$Index_Temp = $a
		$Ini_Temp = IniReadSection($ini_path,"Einsatzindex: " & $Index_Temp)
		For $b = 1 To 5
		$Temp = $Ini_Temp[$b][1]
		Sleep(100)
		Send($Temp&$LineBreak)
		Sleep(100)
		Next
	Sleep(500)
	Send(@CR)
	Next
		_IEQuit($oIE)
EndFunc


Func _WriteIni()
;~ 	_UploadDatum()
;~ 	_Einsatzanzahl()
;~ 	_Feuerwehranzahl()
	_Ort() ; First
	_Alarmstufe()
	_Untergruppe()
	_Adresse()
;~ 	_Gemeinde()
;~ 	_Region()
	_Feuerwehren()
;~ 	_Einsatzart()
;~ 	_Start()
;~ 	_Nummer()
EndFunc


Func _UploadDatum()
	For $a = 1 To $AnzahlEinsaetze
		IniWrite($ini_path, "Einsatzindex: " & $a, "Uploadzeitpunkt", _Now())
	Next
EndFunc   ;==>_UploadDatum


Func _Einsatzanzahl()
	For $a = 1 To $AnzahlEinsaetze
		IniWrite($ini_path, "Einsatzindex: " & $a, "Laufende Einsätze[GESAMT]", $AnzahlEinsaetze)
	Next
EndFunc   ;==>_Einsatzanzahl


Func _Feuerwehranzahl()
	For $a = 1 To $AnzahlEinsaetze
		IniWrite($ini_path, "Einsatzindex: " & $a, "Feuerwehren im Einsatz[GESAMT]", $AnzahlFeuerwehren)
	Next
EndFunc   ;==>_Feuerwehranzahl


Func _Nummer()
	Local $String = $StrWS_1


	For $a = 1 To $AnzahlEinsaetze
		$Index_Temp = $a
		$Nr_Temp = _StringBetween2($String, "*num1*:*", "*,*einsatzort*")
		If $Nr_Temp = "" Then
			ConsoleWrite(@CR & "[code:3]" & @CR)
		EndIf
		$String = StringReplace($String, "*einsatz*:{*num1*:*", "REPLACED", 1)
		IniWrite($ini_path, "Einsatzindex: " & $Index_Temp, "Einsatznummer", $Nr_Temp)
	Next
EndFunc   ;==>_Nummer


Func _Ort()
	FileDelete($ini_path) ; Nur bei der ERSTEN Funktion!!!
	Local $String = $StrWS_1
	For $a = 1 To $AnzahlEinsaetze
		$Index_Temp = $a
		$Ort_Temp = _StringBetween2($String, "*einsatzort*:*", "*,*startzeit*:*")
		If $Ort_Temp = "" Then
			ConsoleWrite(@CR & "[code:4]" & @CR)
		EndIf
		$String = StringReplace($String, "*einsatzort*:*", "REPLACED", 1)
		IniWrite($ini_path, "Einsatzindex: " & $Index_Temp, "Bezirk - Ort", $Ort_Temp)
	Next
EndFunc   ;==>_Ort


Func _Start()
	Local $String = $StrWS_1


	For $a = 1 To $AnzahlEinsaetze
		$Index_Temp = $a
		$Zeit_Temp = _StringBetween2($String, "*,*startzeit*:*", "*,*inzeit*")
		If $Zeit_Temp = "" Then
			ConsoleWrite(@CR & "[code:5]" & @CR)
		EndIf
		$String = StringReplace($String, "*,*startzeit*:*", "REPLACED", 1)
		IniWrite($ini_path, "Einsatzindex: " & $Index_Temp, "Einsatzbeginn", $Zeit_Temp)
	Next
EndFunc   ;==>_Start


Func _Alarmstufe()
	Local $String = $StrWS_1


	For $a = 1 To $AnzahlEinsaetze
		$Index_Temp = $a
		$Stufe_Temp = _StringBetween2($String, "*alarmstufe*:", ",*einsatzart*")
		If $Stufe_Temp = "" Then
			ConsoleWrite(@CR & "[code:6]" & @CR)
		EndIf
		$String = StringReplace($String, "*alarmstufe*:", "REPLACED", 1)
		IniWrite($ini_path, "Einsatzindex: " & $Index_Temp, "Alarmstufe", "Alarmstufe: "&$Stufe_Temp)
	Next
EndFunc   ;==>_Alarmstufe


Func _Einsatzart()
	Local $String = $StrWS_1


	For $a = 1 To $AnzahlEinsaetze
		$Index_Temp = $a
		$Art_Temp = _StringBetween2($String, "*einsatzart*:*", "*,*einsatztyp*")
		If $Art_Temp = "" Then
			ConsoleWrite(@CR & "[code:7]" & @CR)
		EndIf
		$String = StringReplace($String, "*einsatzart*:*", "REPLACED", 1)
		IniWrite($ini_path, "Einsatzindex: " & $Index_Temp, "Einsatzart", $Art_Temp)
	Next
EndFunc   ;==>_Einsatzart


Func _Untergruppe()
	Local $String = $StrWS_1


	For $a = 1 To $AnzahlEinsaetze
		$Index_Temp = $a
		$SubTyp_Temp = _StringBetween2($String, "*einsatzsubtyp*:{*id*:*", "*,*text*:*")
		If $SubTyp_Temp = "" Then
			ConsoleWrite(@CR & "[code:6]" & @CR)
		EndIf
		$String = StringReplace($String, $SubTyp_Temp, "REPLACED", 1)
		$String = StringReplace($String, "*einsatzsubtyp*:{*id*:*", "REPLACED", 1)
		$SubTyp_Temp = _StringBetween2($String, ",REPLACEDREPLACED*,*text*:*", "*},*adresse*:")
		$String = StringReplace($String, ",REPLACEDREPLACED*,*text*:*", "REPLACED", 1)
		IniWrite($ini_path, "Einsatzindex: " & $Index_Temp, "Untergruppe", $SubTyp_Temp)
	Next
EndFunc   ;==>_Untergruppe


Func _Adresse()
	Local $String = $StrWS_1


	For $a = 1 To $AnzahlEinsaetze
		$Index_Temp = $a
		$Adresse_Temp = _StringBetween2($String, "*adresse*:{*default*:*", "*,*earea*:*")
		If $Adresse_Temp = "" Then
			ConsoleWrite(@CR & "[code:7]" & @CR)
		EndIf
		$String = StringReplace($String, "*adresse*:{*default*:*", "REPLACED", 1)
		IniWrite($ini_path, "Einsatzindex: " & $Index_Temp, "Adresse", $Adresse_Temp)
	Next
EndFunc   ;==>_Adresse


Func _Gemeinde()
	Local $String = $StrWS_1


	For $a = 1 To $AnzahlEinsaetze
		$Index_Temp = $a
		$Gemeinde_Temp = _StringBetween2($String, "*emun*:*", "*,*efeanme*:*")
		$Length = StringLen($Gemeinde_Temp)


		If $Length > 30 Then
			$Gemeinde_Temp = " - "
			ConsoleWrite(@CR & "[code:8]" & @CR)
		EndIf


		$String = StringReplace($String, "*emun*:*", "REPLACED", 1)
		IniWrite($ini_path, "Einsatzindex: " & $Index_Temp, "Gemeinde", $Gemeinde_Temp)
	Next
EndFunc   ;==>_Gemeinde


Func _Region()
	Local $String = $StrWS_1


	For $a = 1 To $AnzahlEinsaetze
		$Index_Temp = $a
		$Region_Temp = _StringBetween2($String, "*,*earea*:*", "*,*emun*:*")
		$Length = StringLen($Region_Temp)


		If $Length > 20 Then
			$Region_Temp = " - "
			ConsoleWrite(@CR & "[code:9]" & @CR)
		ElseIf $Length < 3 Then
			$Region_Temp = " - "
			ConsoleWrite(@CR & "[code:9]" & @CR)
		EndIf
		$String = StringReplace($String, "*,*earea*:*", "REPLACED", 1)
		IniWrite($ini_path, "Einsatzindex: " & $Index_Temp, "Region", $Region_Temp)
	Next
EndFunc   ;==>_Region


Func _Feuerwehren()
	Local $String = $StrWS_1


	For $a = 1 To $AnzahlEinsaetze
		$Index_Temp = $a
		$FF_Temp = _StringBetween2($String, "*},*cntfeuerwehren*:", "*}}}}")
		$FF_Temp = StringReplace($FF_Temp, "cntfeuerwehren", "")
		$FF_Temp = StringReplace($FF_Temp, "*", "")
		$FF_Temp = StringReplace($FF_Temp, ":", "")
		$FF_Temp = StringReplace($FF_Temp, "}", "")
		$FF_Temp = StringReplace($FF_Temp, "{", "")
		$FF_Temp = StringReplace($FF_Temp, "feuerwehren", "")
		$FF_Temp = StringReplace($FF_Temp, "feuerwehr", "")
		$FF_Temp = StringRegExpReplace($FF_Temp, "\d", "")
		$FF_Temp = StringTrimLeft($FF_Temp, 1)
		$String = StringReplace($String, "*},*cntfeuerwehren*:", "REPLACED", 1)
		IniWrite($ini_path, "Einsatzindex: " & $Index_Temp, "Feuerwehr", $FF_Temp)
	Next
EndFunc   ;==>_Feuerwehren

Alles anzeigen

Liebe Grüße,
Stoani