AutoHotkey Community

Code: Select all

FileEncoding, UTF-8
	existListe = Bahnhof_ID_Liste.txt
	if not fileexist(existListe)
	{
		try
		{
		ToolTip Download DBase
		UrlDownLoadToFile, https://ds100.frankfurtium.de/dumps/ds100.html, Bahnhof_ID_Liste.txt
		ToolTip
		}
		catch e
		{
		ErrorMessage	:=	"Ausnahme ausgelöst!`n`nWas: " e.what 
						.	"`nDatei: " e.file
				        .	"`nZeile: " e.line 
						.	"`nNachricht: " e.message 
						.	"`nZusatz: " e.extra
		MsgBox,,ErrorMessage:, % ErrorMessage, 2
		FileAppend, % ErrorMessage, ErrorMessage.txt
		}
   }

	FileRead, bhid, Bahnhof_ID_Liste.txt

	xfa=<tbody>
	yfc=</tbody>
	xIDb=
	xIDb :=xStr(bhid,,xfa,xfc)
	xIDb := StrReplace(xIDb, "</th>`n     <td>", "</th><td>", 1)

	BahnhofsArray := {}   ; 'leeres' associative array

	Loop, Parse, xIDb, `n, `r
	{
		{
		IDa=<th id="
		IDc=">
		ID:=
		ID:=xStr(A_LoopField,,IDa,IDc)
		Citya=<th id="%ID%">%ID%</th><td>
		Cityc=</td>
		City:=
		City:=xStr(A_LoopField,,Citya,Cityc)
		if city<>
		BahnhofsArray[City] := ID
		}
	}

;BahnhofsArray["Köln Hbf"] := "kk"
needle := "Köln Hbf"
MsgBox % BahnhofsArray[needle]
MsgBox % BahnhofsArray["Hamburg-Altona"]
MsgBox % BahnhofsArray["Osinowka Grenze RU"]

Code: Select all

xStr(ByRef H, C:=0, B:="", E:="",ByRef BO:=1, EO:="", BI:=1, EI:=1, BT:="", ET:="") {                           
Local L, LB, LE, P1, P2, Q, N:="", F:=0                 ; xStr v0.97 by SKAN on D1AL/D343 @ tiny.cc/xstr  
Return SubStr(H,!(ErrorLevel:=!((P1:=(L:=StrLen(H))?(LB:=StrLen(B))?(F:=InStr(H,B,C&1,BO,BI))?F+(BT=N?LB
:BT):0:(Q:=(BO=1&&BT>0?BT+1:BO>0?BO:L+BO))>1?Q:1:0)&&(P2:=P1?(LE:=StrLen(E))?(F:=InStr(H,E,C>>1,EO=N?(F
?F+LB:P1):EO,EI))?F+LE-(ET=N?LE:ET):0:EO=N?(ET>0?L-ET+1:L+1):P1+EO:0)>=P1))?P1:L+1,(BO:=Min(P2,L+1))-P1)  
}

Code: Select all

BahnhofsArray := {}   ; 'leeres' associative array
BahnhofsArray["Köln Hbf"] := "kk"    ; legt ein item als 'schlüssel-wert'-paar an

BahnhofsID := BahnhofsArray["Köln Hbf"]   ; abfrage des wertes für den schlüssel "Köln Hbf"
MsgBox % BahnhofsID
MsgBox % BahnhofsArray["Köln Hbf"]

Code: Select all

BahnhofsArray := []   ; "leeres" array
BahnhofsArray.push("kk","Köln Hbf") ; legt zwei items, hier an position 1 und 2 an
BahnhofsID := BahnhofsArray[1]   ; 
MsgBox % BahnhofsID
MsgBox % BahnhofsArray[1]

Code: Select all

BahnhofsArray := []
BahnhofsArray.push("kk","Köln Hbf")
BahnhofsName := "Köln Hbf"
BahnhofsID := BahnhofsArray[BahnhofsName]
MsgBox % BahnhofsID

Code: Select all

BahnhofsName := "Köln Hbf"
BahnhofsID := BahnhofsArray[BahnhofsName]

Code: Select all

arr := {"key":["x","y","z"]}
MsgBox % var := arr.key.2    ; abfrage der 2. position des item mit dem schlüssel 'key'  = "y"

Code: Select all

string := "a,b,c,d,e"
MsgBox % StrSplit(string,",").3   ; liefert "c" = das 3. item

Code: Select all

0-3441732994589337025-2007240459-1
04:59
IC 2314
Westerland(Sylt)

Düsseldorf Hbf,Duisburg Hbf,Essen Hbf,Gelsenkirchen Hbf,Dülmen,Osnabrück Hbf,Bremen Hbf,Hamburg-Harburg,Hamburg Hbf,Hamburg Dammtor,Itzehoe,Heide(Holst),Husum,Niebüll
Düsseldorf Hbf,Duisburg Hbf,Essen Hbf,Gelsenkirchen Hbf,Dülmen,Osnabrück Hbf,Bremen Hbf,Hamburg-Harburg,Hamburg Hbf,Hamburg Dammtor,Itzehoe,Heide(Holst),Husum,Niebüll
Hält auch in Dülmen.
Hält nicht in Münster(Westf)Hbf.
5