Kino Programm deiner Stadt V2

nefas83

Hi,

ich hab mal ein kleines Script geschrieben welches die Kino Informationen von Google in einer Gui darstellt.

Es ist noch icht ganz Bug frei und der Code ist noch nicht Optimiert aber für erste Tests reicht es.

Es muss nur der Name (oder die PLZ) der Stadt eingegeben werden und auf den Button geklickt werden.

Kurz warten und die Tabs sollten sich füllen.

Hier der Code, aber hab rücksicht, ist noch nicht auf schönheit oder so geachtet worden

TODO:

- ~~Dynamische Tab's um bei großen Städten alle Kinos aufzulisten (z.B. Berlin)~~
- ~~Warte Anzeigen (danke für den Tip Schnitzel)~~
- Klickbare Links direkt zu den Film-Infos

UPDATE:
- Warte Anzeigen (danke für den Tip Schnitzel)
- Rechtschreibfehler verbessert
- etwas Strucktur reingebracht

UPDATE 25.02.2010:
- Dynamische Liste um bei großen Städten alle Kinos aufzulisten (z.B. Berlin)
- Abgeänderte Version ohne Tabs um eine größere Dynamik zu ermöglichen
- Umlaute werden erkannt und in "ae" ; "ue"; "oe" und ss" umgestellt
- Umsetung von Tips ( z.B. Kürzung des Sources durch Array's )

"Version 1 mit Tab und Beschränkung auf 10 Kinos"

Spoiler anzeigen

[autoit]

#cs
|---------------Definition---------------|
| -=Cinema=- |
|---------------Autor--------------------|
|Name : nefas |
|Datum : 23.02.2010 |
|Last Edit : 23.02.2010 |
|---------------Version------------------|
|ALPHA : / |
|BETA : 3.4 |
|RC : / |
|FINAL : / |
|----------------------------------------|
#ce
#Region ### Includes #############################################################################
#include <GuiListView.au3>
#include <IE.au3>
#include <Inet.au3>
#include <String.au3>
#include <GuiTab.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#EndRegion ### Includes ##########################################################################

[/autoit] [autoit][/autoit] [autoit]

#Region ### Variablen #############################################################################
Dim $Array_Cinema[10][100]
Dim $frmWait
#EndRegion ### Variablen ##########################################################################

[/autoit] [autoit][/autoit] [autoit]

#Region ### GUI MainForm ##########################################################################
$MainForm = GUICreate("Cinema Programm", 840, 370, 193, 115)
$Label1 = GUICtrlCreateLabel("Stadt:", 8, 8, 55, 17)
$txtCity = GUICtrlCreateInput("", 8, 25, 185, 21)
$cmdGo = GUICtrlCreateButton("Go", 194, 25, 27, 21, $WS_GROUP)
$lbl_2 = GUICtrlCreateLabel("Tag:: ", 220, 8, 40, 17)
$radio_Heute = GUICtrlCreateRadio("Heute", 250, 8, 50, 17)
$radio_Morgen = GUICtrlCreateRadio("", 350, 8, 80, 17)
$radio_UeberMorgen = GUICtrlCreateRadio("", 450, 8, 80, 17)
$radio_UeberUeberMorgen = GUICtrlCreateRadio("", 550, 8, 80, 17)
$hTab = GUICtrlCreateTab(8, 56, 825, 313)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem(" ")
$Label3 = GUICtrlCreateLabel("Adresse:", 16, 96, 45, 17)
$lblAdresse_0 = GUICtrlCreateLabel("", 64, 96, 378, 17)
$Label20 = GUICtrlCreateLabel("Tel.:", 16, 112, 25, 17)
$lblTel_0 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$ListView0 = GUICtrlCreateListView("", 16, 136, 810, 222)
_GUICtrlListView_AddColumn($ListView0, "Titel", 200, 2)
_GUICtrlListView_AddColumn($ListView0, "Laufzeit", 75, 2)
_GUICtrlListView_AddColumn($ListView0, "FSK", 200, 2)
_GUICtrlListView_AddColumn($ListView0, "Genre", 150, 2)
_GUICtrlListView_AddColumn($ListView0, "Start Zeit", 180, 2)
$TabSheet2 = GUICtrlCreateTabItem(" ")
$Label4 = GUICtrlCreateLabel("Adresse:", 16, 96, 45, 17)
$lblAdresse_1 = GUICtrlCreateLabel("", 64, 96, 378, 17)
$Label22 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$Label23 = GUICtrlCreateLabel("Tel.:", 16, 112, 25, 17)
$lblTel_1 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$ListView1 = GUICtrlCreateListView("", 16, 136, 810, 222)
_GUICtrlListView_AddColumn($ListView1, "Titel", 200, 2)
_GUICtrlListView_AddColumn($ListView1, "Laufzeit", 75, 2)
_GUICtrlListView_AddColumn($ListView1, "FSK", 200, 2)
_GUICtrlListView_AddColumn($ListView1, "Genre", 150, 2)
_GUICtrlListView_AddColumn($ListView1, "Start Zeit", 180, 2)
$TabSheet3 = GUICtrlCreateTabItem(" ")
$Label5 = GUICtrlCreateLabel("Adresse:", 16, 96, 45, 17)
$lblAdresse_2 = GUICtrlCreateLabel("", 64, 96, 378, 17)
$Label24 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$Label25 = GUICtrlCreateLabel("Tel.:", 16, 112, 25, 17)
$lblTel_2 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$ListView2 = GUICtrlCreateListView("", 16, 136, 810, 222)
_GUICtrlListView_AddColumn($ListView2, "Titel", 200, 2)
_GUICtrlListView_AddColumn($ListView2, "Laufzeit", 75, 2)
_GUICtrlListView_AddColumn($ListView2, "FSK", 200, 2)
_GUICtrlListView_AddColumn($ListView2, "Genre", 150, 2)
_GUICtrlListView_AddColumn($ListView2, "Start Zeit", 180, 2)
$TabSheet4 = GUICtrlCreateTabItem(" ")
$Label6 = GUICtrlCreateLabel("Adresse:", 16, 96, 45, 17)
$lblAdresse_3 = GUICtrlCreateLabel("", 64, 96, 378, 17)
$Label26 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$Label27 = GUICtrlCreateLabel("Tel.:", 16, 112, 25, 17)
$lblTel_3 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$ListView3 = GUICtrlCreateListView("", 16, 136, 810, 222)
_GUICtrlListView_AddColumn($ListView3, "Titel", 200, 2)
_GUICtrlListView_AddColumn($ListView3, "Laufzeit", 75, 2)
_GUICtrlListView_AddColumn($ListView3, "FSK", 200, 2)
_GUICtrlListView_AddColumn($ListView3, "Genre", 150, 2)
_GUICtrlListView_AddColumn($ListView3, "Start Zeit", 180, 2)
$TabSheet5 = GUICtrlCreateTabItem(" ")
$Label7 = GUICtrlCreateLabel("Adresse:", 16, 96, 45, 17)
$lblAdresse_4 = GUICtrlCreateLabel("", 64, 96, 378, 17)
$Label28 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$Label29 = GUICtrlCreateLabel("Tel.:", 16, 112, 25, 17)
$lblTel_4 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$ListView4 = GUICtrlCreateListView("", 16, 136, 810, 222)
_GUICtrlListView_AddColumn($ListView4, "Titel", 200, 2)
_GUICtrlListView_AddColumn($ListView4, "Laufzeit", 75, 2)
_GUICtrlListView_AddColumn($ListView4, "FSK", 200, 2)
_GUICtrlListView_AddColumn($ListView4, "Genre", 150, 2)
_GUICtrlListView_AddColumn($ListView4, "Start Zeit", 180, 2)
$TabSheet6 = GUICtrlCreateTabItem(" ")
$Label8 = GUICtrlCreateLabel("Adresse:", 16, 96, 45, 17)
$lblAdresse_5 = GUICtrlCreateLabel("", 64, 96, 378, 17)
$Label30 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$Label31 = GUICtrlCreateLabel("Tel.:", 16, 112, 25, 17)
$lblTel_5 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$ListView5 = GUICtrlCreateListView("", 16, 136, 810, 222)
_GUICtrlListView_AddColumn($ListView5, "Titel", 200, 2)
_GUICtrlListView_AddColumn($ListView5, "Laufzeit", 75, 2)
_GUICtrlListView_AddColumn($ListView5, "FSK", 200, 2)
_GUICtrlListView_AddColumn($ListView5, "Genre", 150, 2)
_GUICtrlListView_AddColumn($ListView5, "Start Zeit", 180, 2)
$TabSheet7 = GUICtrlCreateTabItem(" ")
$Label9 = GUICtrlCreateLabel("Adresse:", 16, 96, 45, 17)
$lblAdresse_6 = GUICtrlCreateLabel("", 64, 96, 378, 17)
$Label32 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$Label33 = GUICtrlCreateLabel("Tel.:", 16, 112, 25, 17)
$lblTel_6 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$ListView6 = GUICtrlCreateListView("", 16, 136, 810, 222)
_GUICtrlListView_AddColumn($ListView6, "Titel", 200, 2)
_GUICtrlListView_AddColumn($ListView6, "Laufzeit", 75, 2)
_GUICtrlListView_AddColumn($ListView6, "FSK", 200, 2)
_GUICtrlListView_AddColumn($ListView6, "Genre", 150, 2)
_GUICtrlListView_AddColumn($ListView6, "Start Zeit", 180, 2)
$TabSheet8 = GUICtrlCreateTabItem(" ")
$Label10 = GUICtrlCreateLabel("Adresse:", 16, 96, 45, 17)
$lblAdresse_7 = GUICtrlCreateLabel("", 64, 96, 378, 17)
$Label34 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$Label35 = GUICtrlCreateLabel("Tel.:", 16, 112, 25, 17)
$lblTel_7 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$ListView7 = GUICtrlCreateListView("", 16, 136, 810, 222)
_GUICtrlListView_AddColumn($ListView7, "Titel", 200, 2)
_GUICtrlListView_AddColumn($ListView7, "Laufzeit", 75, 2)
_GUICtrlListView_AddColumn($ListView7, "FSK", 200, 2)
_GUICtrlListView_AddColumn($ListView7, "Genre", 150, 2)
_GUICtrlListView_AddColumn($ListView7, "Start Zeit", 180, 2)
$TabSheet9 = GUICtrlCreateTabItem(" ")
$Label11 = GUICtrlCreateLabel("Adresse:", 16, 96, 45, 17)
$lblAdresse_8 = GUICtrlCreateLabel("", 64, 96, 378, 17)
$Label36 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$Label37 = GUICtrlCreateLabel("Tel.:", 16, 112, 25, 17)
$lblTel_8 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$ListView8 = GUICtrlCreateListView("", 16, 136, 810, 222)
_GUICtrlListView_AddColumn($ListView8, "Titel", 200, 2)
_GUICtrlListView_AddColumn($ListView8, "Laufzeit", 75, 2)
_GUICtrlListView_AddColumn($ListView8, "FSK", 200, 2)
_GUICtrlListView_AddColumn($ListView8, "Genre", 150, 2)
_GUICtrlListView_AddColumn($ListView8, "Start Zeit", 180, 2)
$TabSheet10 = GUICtrlCreateTabItem(" ")
$Label12 = GUICtrlCreateLabel("Adresse:", 16, 96, 45, 17)
$lblAdresse_9 = GUICtrlCreateLabel("", 64, 96, 378, 17)
$Label38 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$Label39 = GUICtrlCreateLabel("Tel.:", 16, 112, 25, 17)
$lblTel_9 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$ListView9 = GUICtrlCreateListView("", 16, 136, 810, 222)
_GUICtrlListView_AddColumn($ListView9, "Titel", 200, 2)
_GUICtrlListView_AddColumn($ListView9, "Laufzeit", 75, 2)
_GUICtrlListView_AddColumn($ListView9, "FSK", 200, 2)
_GUICtrlListView_AddColumn($ListView9, "Genre", 150, 2)
_GUICtrlListView_AddColumn($ListView9, "Start Zeit", 180, 2)
GUICtrlCreateTabItem("")
GUICtrlSetState($radio_Heute, $GUI_CHECKED)
GUISetState(@SW_SHOW)
#EndRegion ### GUI MainForm #######################################################################

[/autoit] [autoit][/autoit] [autoit]

GUICtrlSetState($radio_Heute, $GUI_CHECKED)

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Select
Case $nMsg = $GUI_EVENT_CLOSE
Exit
Case $nMsg = $cmdGo
getSource()
Case $nMsg = $radio_Heute And BitAND(GUICtrlRead($radio_Heute), $GUI_CHECKED) = $GUI_CHECKED
getSource()
Case $nMsg = $radio_Morgen And BitAND(GUICtrlRead($radio_Morgen), $GUI_CHECKED) = $GUI_CHECKED
getSource()
Case $nMsg = $radio_UeberMorgen And BitAND(GUICtrlRead($radio_UeberMorgen), $GUI_CHECKED) = $GUI_CHECKED
getSource()
Case $nMsg = $radio_UeberUeberMorgen And BitAND(GUICtrlRead($radio_UeberUeberMorgen), $GUI_CHECKED) = $GUI_CHECKED
getSource()
EndSelect
WEnd

[/autoit] [autoit][/autoit] [autoit]

#Region ### Func _Wait ############################################################################
Func _Wait()
GUISetState (@SW_DISABLE, $MainForm)
$frmWait = GUICreate("", 161, 34, 510, 391, BitOR($WS_MINIMIZEBOX, $WS_DLGFRAME, $WS_POPUP, $WS_GROUP, $WS_CLIPSIBLINGS))
$Label1 = GUICtrlCreateLabel("Bitte warten...", 0, 0, 160, 33)
GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFE1)
GUICtrlSetBkColor(-1, 0xA6CAF0)
GUISetState()
EndFunc
#EndRegion ### Func _Wait #########################################################################

[/autoit] [autoit][/autoit] [autoit]

#Region ### Func getSource ########################################################################
Func getSource()
_Wait()
If GUICtrlRead($txtCity) = "" Then
MsgBox(0, "Warnung", "Bitte geben Sie einen Stadtnamen oder ein Plz. ein!")
Else
_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView0))
_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView1))
_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView2))
_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView3))
_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView4))
_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView5))
_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView6))
_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView7))
_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView8))
_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView9))

[/autoit] [autoit][/autoit] [autoit]

Dim $CityName = GUICtrlRead($txtCity)
Dim $i = 0
Dim $url

[/autoit] [autoit][/autoit] [autoit]

If GUICtrlRead($radio_Morgen) = $GUI_CHECKED Then
$url = 'http://www.google.de/movies?hl=de&near=' & $CityName & '&date=1'
ElseIf GUICtrlRead($radio_UeberMorgen) = $GUI_CHECKED Then
$url = 'http://www.google.de/movies?hl=de&near=' & $CityName & '&date=2'
ElseIf GUICtrlRead($radio_UeberUeberMorgen) = $GUI_CHECKED Then
$url = 'http://www.google.de/movies?hl=de&near=' & $CityName & '&date=3'
Else
$url = 'http://www.google.de/movies?hl=de&near=' & $CityName & '&date=0'
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Dim $oIE = _IECreate($url, 0, 0)
$sHTML = _IEBodyReadHTML($oIE)
Dim $temp_array
Dim $Array_Movie
Dim $html = _INetGetSource($oIE)
;~ Dim $html_Output = FileOpen("TEMP_HTML.txt", 10) ;for debug only
Dim $ii = 0
Dim $j = 0
_IEQuit($oIE)

[/autoit] [autoit][/autoit] [autoit]

For $i = 0 to UBound($Array_Cinema,1) - 1
For $ii = 0 to UBound($Array_Cinema,2) - 1
$Array_Cinema[$i][$ii] = ""
Next
Next

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;~ FileWrite($html_Output, $sHTML) ;for debug only
$aArray1 = StringSplit($sHTML, @CRLF, 1)
;~ FileOpen("Temp_Array.txt", 10) ;for debug only
$ii = -1
For $i = 0 To UBound($aArray1) - 1
If $aArray1[$i] = "<DIV class=theater>" Then
$j = 0
$i += 2
$ii += 1
$temp_array = _StringBetween($aArray1[$i], "<SPAN dir=ltr>", "</SPAN>")
If @error = 0 Then
$Array_Cinema[$ii][$j] = $temp_array[0]
EndIf

[/autoit] [autoit][/autoit] [autoit]

$i += 1
$j += 1
$temp_array = _StringBetween($aArray1[$i], "<DIV class=info>", "<A class=")
If @error = 0 Then
$Array_Cinema[$ii][$j] = $temp_array[0]
EndIf

[/autoit] [autoit][/autoit] [autoit]

ElseIf $aArray1[$i] = "<DIV class=movie>" Then
$i += 1
$j += 1
$temp_array = _StringBetween($aArray1[$i], "<SPAN dir=ltr>", "</SPAN>")
If @error = 0 Then
$Array_Cinema[$ii][$j] = $temp_array[0]
EndIf
$j += 1
$temp_array = _StringBetween($aArray1[$i], "</NOBR>", "</SPAN>")
If @error = 0 Then
$Array_Cinema[$ii][$j] = $temp_array[0]
EndIf
$i += 1
$j += 1
$temp_array = _StringBetween($aArray1[$i], "<DIV class=times>", "</DIV>")
If @error = 0 Then
$Array_Cinema[$ii][$j] = $temp_array[0]
EndIf
ElseIf StringInStr($aArray1[$i],'date=1">') Then
$temp_array = _StringBetween($aArray1[$i], 'date=1">', "</A></DIV>")
If @error = 0 Then
GUICtrlSetData($radio_Morgen, $temp_array[0])
EndIf

[/autoit] [autoit][/autoit] [autoit]

ElseIf StringInStr($aArray1[$i],'date=2">') Then
$temp_array = _StringBetween($aArray1[$i], 'date=2">', "</A></DIV>")
If @error = 0 Then
GUICtrlSetData($radio_UeberMorgen,$temp_array[0])
EndIf

[/autoit] [autoit][/autoit] [autoit]

ElseIf StringInStr($aArray1[$i],'date=3">') Then
$temp_array = _StringBetween($aArray1[$i], 'date=3">', "</A></DIV>")
If @error = 0 Then
GUICtrlSetData($radio_UeberUeberMorgen,$temp_array[0])
EndIf

[/autoit] [autoit][/autoit] [autoit]

EndIf
Next
Find_Cinema()
EndIf
GUIDelete($frmWait)
GUISetState (@SW_ENABLE, $MainForm)
EndFunc ;==>getSource
#EndRegion ### Func getSource #####################################################################

[/autoit] [autoit][/autoit] [autoit]

#Region ### Func Find_Cinema ######################################################################
Func Find_Cinema()
_GUICtrlListView_BeginUpdate(GUICtrlGetHandle($ListView0))
_GUICtrlListView_BeginUpdate(GUICtrlGetHandle($ListView1))
_GUICtrlListView_BeginUpdate(GUICtrlGetHandle($ListView2))
_GUICtrlListView_BeginUpdate(GUICtrlGetHandle($ListView3))
_GUICtrlListView_BeginUpdate(GUICtrlGetHandle($ListView4))
_GUICtrlListView_BeginUpdate(GUICtrlGetHandle($ListView5))
_GUICtrlListView_BeginUpdate(GUICtrlGetHandle($ListView6))
_GUICtrlListView_BeginUpdate(GUICtrlGetHandle($ListView7))
_GUICtrlListView_BeginUpdate(GUICtrlGetHandle($ListView8))
_GUICtrlListView_BeginUpdate(GUICtrlGetHandle($ListView9))

[/autoit] [autoit][/autoit] [autoit]

Dim $i_ListView = 0
Dim $Tab_Count = 0
Dim $String_Seperated
Dim $Temp
Dim $TempArray
Dim $j = 0
For $i = 0 To UBound($Array_Cinema, 1) - 1
$j = 0
$i_ListView = 0
_GUICtrlTab_SetItem($hTab, $Tab_Count, $Array_Cinema[$i][$j])
$j += 1
$String_Seperated = StringSplit($Array_Cinema[$i][$j]," - ",1)
Switch $Tab_Count
Case 0
GUICtrlSetData($lblAdresse_0, $String_Seperated[1])
If $String_Seperated[0] = 2 Then
GUICtrlSetData($lblTel_0, $String_Seperated[2])
EndIf
For $j = 2 To UBound($Array_Cinema, 2) - 1
if Not $Array_Cinema[$i][$j] = "" Then
_GUICtrlListView_AddItem($ListView0,$Array_Cinema[$i][$j])
$j += 1
$Temp = StringTrimLeft($Array_Cinema[$i][$j],10)
if Not $Temp = "" Then
$TempArray = StringSplit($Temp,"- ",1)
If $TempArray[0] = 1 Then
$TempArray[1] = StringTrimRight($TempArray[1],3)
_GUICtrlListView_AddSubItem($ListView0,$i_ListView,$TempArray[1],1)
ElseIf $TempArray[0] = 2 Then
$TempArray[1] = StringTrimRight($TempArray[1],3)
$TempArray[2] = StringTrimRight($TempArray[2],3)
$TempArray[2] = StringTrimLeft($TempArray[2],5)
_GUICtrlListView_AddSubItem($ListView0,$i_ListView,$TempArray[1],1)
_GUICtrlListView_AddSubItem($ListView0,$i_ListView,$TempArray[2],2)
ElseIf $TempArray[0] = 3 Then
$TempArray[1] = StringTrimRight($TempArray[1],3)
$TempArray[2] = StringTrimRight($TempArray[2],3)
$TempArray[2] = StringTrimLeft($TempArray[2],5)
$TempArray[3] = StringTrimRight($TempArray[3],1)
_GUICtrlListView_AddSubItem($ListView0,$i_ListView,$TempArray[1],1)
_GUICtrlListView_AddSubItem($ListView0,$i_ListView,$TempArray[2],2)
_GUICtrlListView_AddSubItem($ListView0,$i_ListView,$TempArray[3],3)
EndIf
EndIf
$j += 1
$Temp = StringReplace($Array_Cinema[$i][$j]," ",";",0)
_GUICtrlListView_AddSubItem($ListView0,$i_ListView,$Temp,4)
$i_ListView += 1
EndIf
Next
Case 1
GUICtrlSetData($lblAdresse_1, $String_Seperated[1])
If $String_Seperated[0] = 2 Then
GUICtrlSetData($lblTel_1, $String_Seperated[2])
EndIf

[/autoit] [autoit][/autoit] [autoit]

For $j = 2 To UBound($Array_Cinema, 2) - 1
if Not $Array_Cinema[$i][$j] = "" Then
_GUICtrlListView_AddItem($ListView1,$Array_Cinema[$i][$j])
$j += 1
$Temp = StringTrimLeft($Array_Cinema[$i][$j],10)
if Not $Temp = "" Then
$TempArray = StringSplit($Temp,"- ",1)
If $TempArray[0] = 1 Then
$TempArray[1] = StringTrimRight($TempArray[1],3)
_GUICtrlListView_AddSubItem($ListView1,$i_ListView,$TempArray[1],1)
ElseIf $TempArray[0] = 2 Then
$TempArray[1] = StringTrimRight($TempArray[1],3)
$TempArray[2] = StringTrimRight($TempArray[2],3)
$TempArray[2] = StringTrimLeft($TempArray[2],5)
_GUICtrlListView_AddSubItem($ListView1,$i_ListView,$TempArray[1],1)
_GUICtrlListView_AddSubItem($ListView1,$i_ListView,$TempArray[2],2)
ElseIf $TempArray[0] = 3 Then
$TempArray[1] = StringTrimRight($TempArray[1],3)
$TempArray[2] = StringTrimRight($TempArray[2],3)
$TempArray[2] = StringTrimLeft($TempArray[2],5)
$TempArray[3] = StringTrimRight($TempArray[3],1)
_GUICtrlListView_AddSubItem($ListView1,$i_ListView,$TempArray[1],1)
_GUICtrlListView_AddSubItem($ListView1,$i_ListView,$TempArray[2],2)
_GUICtrlListView_AddSubItem($ListView1,$i_ListView,$TempArray[3],3)
EndIf
EndIf
$j += 1
$Temp = StringReplace($Array_Cinema[$i][$j]," ",";",0)
_GUICtrlListView_AddSubItem($ListView1,$i_ListView,$Temp,4)
$i_ListView += 1
EndIf
Next
Case 2
GUICtrlSetData($lblAdresse_2, $String_Seperated[1])
If $String_Seperated[0] = 2 Then
GUICtrlSetData($lblTel_2, $String_Seperated[2])
EndIf

[/autoit] [autoit][/autoit] [autoit]

For $j = 2 To UBound($Array_Cinema, 2) - 1
if Not $Array_Cinema[$i][$j] = "" Then
_GUICtrlListView_AddItem($ListView2,$Array_Cinema[$i][$j])
$j += 1
$Temp = StringTrimLeft($Array_Cinema[$i][$j],10)
if Not $Temp = "" Then
$TempArray = StringSplit($Temp,"- ",1)
If $TempArray[0] = 1 Then
$TempArray[1] = StringTrimRight($TempArray[1],3)
_GUICtrlListView_AddSubItem($ListView2,$i_ListView,$TempArray[1],1)
ElseIf $TempArray[0] = 2 Then
$TempArray[1] = StringTrimRight($TempArray[1],3)
$TempArray[2] = StringTrimRight($TempArray[2],3)
$TempArray[2] = StringTrimLeft($TempArray[2],5)
_GUICtrlListView_AddSubItem($ListView2,$i_ListView,$TempArray[1],1)
_GUICtrlListView_AddSubItem($ListView2,$i_ListView,$TempArray[2],2)
ElseIf $TempArray[0] = 3 Then
$TempArray[1] = StringTrimRight($TempArray[1],3)
$TempArray[2] = StringTrimRight($TempArray[2],3)
$TempArray[2] = StringTrimLeft($TempArray[2],5)
$TempArray[3] = StringTrimRight($TempArray[3],1)
_GUICtrlListView_AddSubItem($ListView2,$i_ListView,$TempArray[1],1)
_GUICtrlListView_AddSubItem($ListView2,$i_ListView,$TempArray[2],2)
_GUICtrlListView_AddSubItem($ListView2,$i_ListView,$TempArray[3],3)
EndIf
EndIf
$j += 1
$Temp = StringReplace($Array_Cinema[$i][$j]," ",";",0)
_GUICtrlListView_AddSubItem($ListView2,$i_ListView,$Temp,4)
$i_ListView += 1
EndIf
Next
Case 3
GUICtrlSetData($lblAdresse_3, $String_Seperated[1])
If $String_Seperated[0] = 2 Then
GUICtrlSetData($lblTel_3, $String_Seperated[2])
EndIf

[/autoit] [autoit][/autoit] [autoit]

For $j = 2 To UBound($Array_Cinema, 2) - 1
if Not $Array_Cinema[$i][$j] = "" Then
_GUICtrlListView_AddItem($ListView3,$Array_Cinema[$i][$j])
$j += 1
$Temp = StringTrimLeft($Array_Cinema[$i][$j],10)
if Not $Temp = "" Then
$TempArray = StringSplit($Temp,"- ",1)
If $TempArray[0] = 1 Then
$TempArray[1] = StringTrimRight($TempArray[1],3)
_GUICtrlListView_AddSubItem($ListView3,$i_ListView,$TempArray[1],1)
ElseIf $TempArray[0] = 2 Then
$TempArray[1] = StringTrimRight($TempArray[1],3)
$TempArray[2] = StringTrimRight($TempArray[2],3)
$TempArray[2] = StringTrimLeft($TempArray[2],5)
_GUICtrlListView_AddSubItem($ListView3,$i_ListView,$TempArray[1],1)
_GUICtrlListView_AddSubItem($ListView3,$i_ListView,$TempArray[2],2)
ElseIf $TempArray[0] = 3 Then
$TempArray[1] = StringTrimRight($TempArray[1],3)
$TempArray[2] = StringTrimRight($TempArray[2],3)
$TempArray[2] = StringTrimLeft($TempArray[2],5)
$TempArray[3] = StringTrimRight($TempArray[3],1)
_GUICtrlListView_AddSubItem($ListView3,$i_ListView,$TempArray[1],1)
_GUICtrlListView_AddSubItem($ListView3,$i_ListView,$TempArray[2],2)
_GUICtrlListView_AddSubItem($ListView3,$i_ListView,$TempArray[3],3)
EndIf
EndIf
$j += 1
$Temp = StringReplace($Array_Cinema[$i][$j]," ",";",0)
_GUICtrlListView_AddSubItem($ListView3,$i_ListView,$Temp,4)
$i_ListView += 1
EndIf
Next
Case 4
GUICtrlSetData($lblAdresse_4, $String_Seperated[1])
If $String_Seperated[0] = 2 Then
GUICtrlSetData($lblTel_4, $String_Seperated[2])
EndIf
For $j = 2 To UBound($Array_Cinema, 2) - 1
if Not $Array_Cinema[$i][$j] = "" Then
_GUICtrlListView_AddItem($ListView4,$Array_Cinema[$i][$j])
$j += 1
$Temp = StringTrimLeft($Array_Cinema[$i][$j],10)
if Not $Temp = "" Then
$TempArray = StringSplit($Temp,"- ",1)
If $TempArray[0] = 1 Then
$TempArray[1] = StringTrimRight($TempArray[1],3)
_GUICtrlListView_AddSubItem($ListView4,$i_ListView,$TempArray[1],1)
ElseIf $TempArray[0] = 2 Then
$TempArray[1] = StringTrimRight($TempArray[1],3)
$TempArray[2] = StringTrimRight($TempArray[2],3)
$TempArray[2] = StringTrimLeft($TempArray[2],5)
_GUICtrlListView_AddSubItem($ListView4,$i_ListView,$TempArray[1],1)
_GUICtrlListView_AddSubItem($ListView4,$i_ListView,$TempArray[2],2)
ElseIf $TempArray[0] = 3 Then
$TempArray[1] = StringTrimRight($TempArray[1],3)
$TempArray[2] = StringTrimRight($TempArray[2],3)
$TempArray[2] = StringTrimLeft($TempArray[2],5)
$TempArray[3] = StringTrimRight($TempArray[3],1)
_GUICtrlListView_AddSubItem($ListView4,$i_ListView,$TempArray[1],1)
_GUICtrlListView_AddSubItem($ListView4,$i_ListView,$TempArray[2],2)
_GUICtrlListView_AddSubItem($ListView4,$i_ListView,$TempArray[3],3)
EndIf
EndIf
$j += 1
$Temp = StringReplace($Array_Cinema[$i][$j]," ",";",0)
_GUICtrlListView_AddSubItem($ListView4,$i_ListView,$Temp,4)
$i_ListView += 1
EndIf
Next
Case 5
GUICtrlSetData($lblAdresse_5, $String_Seperated[1])
If $String_Seperated[0] = 2 Then
GUICtrlSetData($lblTel_5, $String_Seperated[2])
EndIf
For $j = 2 To UBound($Array_Cinema, 2) - 1
if Not $Array_Cinema[$i][$j] = "" Then
_GUICtrlListView_AddItem($ListView5,$Array_Cinema[$i][$j])
$j += 1
$Temp = StringTrimLeft($Array_Cinema[$i][$j],10)
if Not $Temp = "" Then
$TempArray = StringSplit($Temp,"- ",1)
If $TempArray[0] = 1 Then
$TempArray[1] = StringTrimRight($TempArray[1],3)
_GUICtrlListView_AddSubItem($ListView5,$i_ListView,$TempArray[1],1)
ElseIf $TempArray[0] = 2 Then
$TempArray[1] = StringTrimRight($TempArray[1],3)
$TempArray[2] = StringTrimRight($TempArray[2],3)
$TempArray[2] = StringTrimLeft($TempArray[2],5)
_GUICtrlListView_AddSubItem($ListView5,$i_ListView,$TempArray[1],1)
_GUICtrlListView_AddSubItem($ListView5,$i_ListView,$TempArray[2],2)
ElseIf $TempArray[0] = 3 Then
$TempArray[1] = StringTrimRight($TempArray[1],3)
$TempArray[2] = StringTrimRight($TempArray[2],3)
$TempArray[2] = StringTrimLeft($TempArray[2],5)
$TempArray[3] = StringTrimRight($TempArray[3],1)
_GUICtrlListView_AddSubItem($ListView5,$i_ListView,$TempArray[1],1)
_GUICtrlListView_AddSubItem($ListView5,$i_ListView,$TempArray[2],2)
_GUICtrlListView_AddSubItem($ListView5,$i_ListView,$TempArray[3],3)
EndIf
EndIf
$j += 1
$Temp = StringReplace($Array_Cinema[$i][$j]," ",";",0)
_GUICtrlListView_AddSubItem($ListView5,$i_ListView,$Temp,4)
$i_ListView += 1
EndIf
Next
Case 6
GUICtrlSetData($lblAdresse_6, $String_Seperated[1])
If $String_Seperated[0] = 2 Then
GUICtrlSetData($lblTel_6, $String_Seperated[2])
EndIf
For $j = 2 To UBound($Array_Cinema, 2) - 1
if Not $Array_Cinema[$i][$j] = "" Then
_GUICtrlListView_AddItem($ListView6,$Array_Cinema[$i][$j])
$j += 1
$Temp = StringTrimLeft($Array_Cinema[$i][$j],10)
if Not $Temp = "" Then
$TempArray = StringSplit($Temp,"- ",1)
If $TempArray[0] = 1 Then
$TempArray[1] = StringTrimRight($TempArray[1],3)
_GUICtrlListView_AddSubItem($ListView6,$i_ListView,$TempArray[1],1)
ElseIf $TempArray[0] = 2 Then
$TempArray[1] = StringTrimRight($TempArray[1],3)
$TempArray[2] = StringTrimRight($TempArray[2],3)
$TempArray[2] = StringTrimLeft($TempArray[2],5)
_GUICtrlListView_AddSubItem($ListView6,$i_ListView,$TempArray[1],1)
_GUICtrlListView_AddSubItem($ListView6,$i_ListView,$TempArray[2],2)
ElseIf $TempArray[0] = 3 Then
$TempArray[1] = StringTrimRight($TempArray[1],3)
$TempArray[2] = StringTrimRight($TempArray[2],3)
$TempArray[2] = StringTrimLeft($TempArray[2],5)
$TempArray[3] = StringTrimRight($TempArray[3],1)
_GUICtrlListView_AddSubItem($ListView6,$i_ListView,$TempArray[1],1)
_GUICtrlListView_AddSubItem($ListView6,$i_ListView,$TempArray[2],2)
_GUICtrlListView_AddSubItem($ListView6,$i_ListView,$TempArray[3],3)
EndIf
EndIf
$j += 1
$Temp = StringReplace($Array_Cinema[$i][$j]," ",";",0)
_GUICtrlListView_AddSubItem($ListView6,$i_ListView,$Temp,4)
$i_ListView += 1
EndIf
Next
Case 7
GUICtrlSetData($lblAdresse_7, $String_Seperated[1])
If $String_Seperated[0] = 2 Then
GUICtrlSetData($lblTel_7, $String_Seperated[2])
EndIf
For $j = 2 To UBound($Array_Cinema, 2) - 1
if Not $Array_Cinema[$i][$j] = "" Then
_GUICtrlListView_AddItem($ListView7,$Array_Cinema[$i][$j])
$j += 1
$Temp = StringTrimLeft($Array_Cinema[$i][$j],10)
if Not $Temp = "" Then
$TempArray = StringSplit($Temp,"- ",1)
If $TempArray[0] = 1 Then
$TempArray[1] = StringTrimRight($TempArray[1],3)
_GUICtrlListView_AddSubItem($ListView7,$i_ListView,$TempArray[1],1)
ElseIf $TempArray[0] = 2 Then
$TempArray[1] = StringTrimRight($TempArray[1],3)
$TempArray[2] = StringTrimRight($TempArray[2],3)
$TempArray[2] = StringTrimLeft($TempArray[2],5)
_GUICtrlListView_AddSubItem($ListView7,$i_ListView,$TempArray[1],1)
_GUICtrlListView_AddSubItem($ListView7,$i_ListView,$TempArray[2],2)
ElseIf $TempArray[0] = 3 Then
$TempArray[1] = StringTrimRight($TempArray[1],3)
$TempArray[2] = StringTrimRight($TempArray[2],3)
$TempArray[2] = StringTrimLeft($TempArray[2],5)
$TempArray[3] = StringTrimRight($TempArray[3],1)
_GUICtrlListView_AddSubItem($ListView7,$i_ListView,$TempArray[1],1)
_GUICtrlListView_AddSubItem($ListView7,$i_ListView,$TempArray[2],2)
_GUICtrlListView_AddSubItem($ListView7,$i_ListView,$TempArray[3],3)
EndIf
EndIf
$j += 1
$Temp = StringReplace($Array_Cinema[$i][$j]," ",";",0)
_GUICtrlListView_AddSubItem($ListView7,$i_ListView,$Temp,4)
$i_ListView += 1
EndIf
Next
Case 8
GUICtrlSetData($lblAdresse_8, $String_Seperated[1])
If $String_Seperated[0] = 2 Then
GUICtrlSetData($lblTel_8, $String_Seperated[2])
EndIf
For $j = 2 To UBound($Array_Cinema, 2) - 1
if Not $Array_Cinema[$i][$j] = "" Then
_GUICtrlListView_AddItem($ListView8,$Array_Cinema[$i][$j])
$j += 1
$Temp = StringTrimLeft($Array_Cinema[$i][$j],10)
if Not $Temp = "" Then
$TempArray = StringSplit($Temp,"- ",1)
If $TempArray[0] = 1 Then
$TempArray[1] = StringTrimRight($TempArray[1],3)
_GUICtrlListView_AddSubItem($ListView8,$i_ListView,$TempArray[1],1)
ElseIf $TempArray[0] = 2 Then
$TempArray[1] = StringTrimRight($TempArray[1],3)
$TempArray[2] = StringTrimRight($TempArray[2],3)
$TempArray[2] = StringTrimLeft($TempArray[2],5)
_GUICtrlListView_AddSubItem($ListView8,$i_ListView,$TempArray[1],1)
_GUICtrlListView_AddSubItem($ListView8,$i_ListView,$TempArray[2],2)
ElseIf $TempArray[0] = 3 Then
$TempArray[1] = StringTrimRight($TempArray[1],3)
$TempArray[2] = StringTrimRight($TempArray[2],3)
$TempArray[2] = StringTrimLeft($TempArray[2],5)
$TempArray[3] = StringTrimRight($TempArray[3],1)
_GUICtrlListView_AddSubItem($ListView8,$i_ListView,$TempArray[1],1)
_GUICtrlListView_AddSubItem($ListView8,$i_ListView,$TempArray[2],2)
_GUICtrlListView_AddSubItem($ListView8,$i_ListView,$TempArray[3],3)
EndIf
EndIf
$j += 1
$Temp = StringReplace($Array_Cinema[$i][$j]," ",";",0)
_GUICtrlListView_AddSubItem($ListView8,$i_ListView,$Temp,4)
$i_ListView += 1
EndIf
Next
Case 9
GUICtrlSetData($lblAdresse_9, $String_Seperated[1])
If $String_Seperated[0] = 2 Then
GUICtrlSetData($lblTel_9, $String_Seperated[2])
EndIf
For $j = 2 To UBound($Array_Cinema, 2) - 1
if Not $Array_Cinema[$i][$j] = "" Then
_GUICtrlListView_AddItem($ListView9,$Array_Cinema[$i][$j])
$j += 1
$Temp = StringTrimLeft($Array_Cinema[$i][$j],10)
If Not $Temp = "" Then
$TempArray = StringSplit($Temp,"- ",1)
if $TempArray[0] = 1 Then
$TempArray[1] = StringTrimRight($TempArray[1],3)
_GUICtrlListView_AddSubItem($ListView9,$i_ListView,$TempArray[1],1)
ElseIf $TempArray[0] = 2 Then
$TempArray[1] = StringTrimRight($TempArray[1],3)
$TempArray[2] = StringTrimRight($TempArray[2],3)
$TempArray[2] = StringTrimLeft($TempArray[2],5)
_GUICtrlListView_AddSubItem($ListView9,$i_ListView,$TempArray[1],1)
_GUICtrlListView_AddSubItem($ListView9,$i_ListView,$TempArray[2],2)
ElseIf $TempArray[0] = 3 Then
$TempArray[1] = StringTrimRight($TempArray[1],3)
$TempArray[2] = StringTrimRight($TempArray[2],3)
$TempArray[2] = StringTrimLeft($TempArray[2],5)
$TempArray[3] = StringTrimRight($TempArray[3],1)
_GUICtrlListView_AddSubItem($ListView9,$i_ListView,$TempArray[1],1)
_GUICtrlListView_AddSubItem($ListView9,$i_ListView,$TempArray[2],2)
_GUICtrlListView_AddSubItem($ListView9,$i_ListView,$TempArray[3],3)
EndIf
EndIf
$j += 1
$Temp = StringReplace($Array_Cinema[$i][$j]," ",";",0)
_GUICtrlListView_AddSubItem($ListView9,$i_ListView,$Temp,4)
$i_ListView += 1
EndIf
Next
EndSwitch
$Tab_Count = $Tab_Count + 1
Next
_GUICtrlListView_EndUpdate(GUICtrlGetHandle($ListView0))
_GUICtrlListView_EndUpdate(GUICtrlGetHandle($ListView1))
_GUICtrlListView_EndUpdate(GUICtrlGetHandle($ListView2))
_GUICtrlListView_EndUpdate(GUICtrlGetHandle($ListView3))
_GUICtrlListView_EndUpdate(GUICtrlGetHandle($ListView4))
_GUICtrlListView_EndUpdate(GUICtrlGetHandle($ListView5))
_GUICtrlListView_EndUpdate(GUICtrlGetHandle($ListView6))
_GUICtrlListView_EndUpdate(GUICtrlGetHandle($ListView7))
_GUICtrlListView_EndUpdate(GUICtrlGetHandle($ListView8))
_GUICtrlListView_EndUpdate(GUICtrlGetHandle($ListView9))
EndFunc ;==>Find_Cinema
#EndRegion ### Func Find_Cinema ###################################################################

[/autoit]

"Version 2 ohne Tabs, dafür mit ListView und keine Beschränkung auf 10 Kinos"

Spoiler anzeigen

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile=Cinema_v2.exe
#AutoIt3Wrapper_Res_Fileversion=6.5.0.1
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs
|---------------Definition---------------|
| -=Cinema=- |
|---------------Autor--------------------|
|Name : nefas |
|Datum : 23.02.2010 |
|Last Edit : 25.02.2010 |
|---------------Version------------------|
|ALPHA : / |
|BETA : 6.5 |
|RC : / |
|FINAL : / |
|----------------------------------------|
#ce
#Region ### Includes #############################################################################
#include <GuiListView.au3>
#include <IE.au3>
#include <Inet.au3>
#include <String.au3>
#include <GuiTab.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#Include <GuiListBox.au3>
#EndRegion ### Includes #############################################################################
Opt("TrayAutoPause", 0) ;0=keine Pause, 1=Pause
Opt("GUICloseOnESC", 0) ;1=ESC beendet, 0=ESC schließt nich
;~ Opt("GUIOnEventMode", 0)
;~ Opt("TrayMenuMode", 1) ;0=append, 1=no default menu, 2=no automatic check, 4=menuitemID not return
Opt("TrayIconDebug", 0) ;0=no info, 1=debug line info
#Region ### Variablen #############################################################################
Dim $Array_Cinema[100][100]
Dim $frmWait
Global $ListView_Kino, $hStatus, $SiteCount = 0, $MoreSites = 0,$SiteCount_2 = 0, $SiteCounter = 0
Dim $Date = "25.02.2010"
Dim $Version ="Beta 5.5"

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

#EndRegion ### Variablen #############################################################################

[/autoit] [autoit][/autoit] [autoit]

#Region ### GUI MainForm ##########################################################################
$MainForm = GUICreate("Kino Programm by nefas", 980, 370, 193, 115)
$Label1 = GUICtrlCreateLabel("Stadt:", 8, 13, 55, 17)
$txtCity = GUICtrlCreateInput("", 40, 8, 120, 21)
$cmdGo = GUICtrlCreateButton("Go", 162, 8, 27, 21, $WS_GROUP)
$lbl_2 = GUICtrlCreateLabel("Tag:: ", 200, 13, 40, 17)
$radio_Heute = GUICtrlCreateRadio("Heute", 235, 13, 50, 17)
$radio_Morgen = GUICtrlCreateRadio("", 335, 13, 80, 17)
$radio_UeberMorgen = GUICtrlCreateRadio("", 435, 13, 80, 17)
$radio_UeberUeberMorgen = GUICtrlCreateRadio("", 535, 13, 80, 17)
;~ $chk_Genauigkeit = GUICtrlCreateCheckbox("Genau",8,35)
$lbl_3 = GUICtrlCreateLabel("Adresse: ", 160, 40, 40, 17)
$lbl_Adresse = GUICtrlCreateLabel("", 210, 40, 350, 17)
GUICtrlSetColor(-1, 0x0000FF)
$lbl_4 = GUICtrlCreateLabel("Tel.: ", 560, 40, 20, 17)
$lbl_TelNum = GUICtrlCreateLabel("", 590, 40, 100, 17)
GUICtrlSetColor(-1, 0x0000FF)
$ListView_Kino = GUICtrlCreateListView("",8,56,150,300)
_GUICtrlListView_AddColumn($ListView_Kino, "Kino-Name", 145, 0)
_GUICtrlListView_SetExtendedListViewStyle($ListView_Kino, BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_GRIDLINES,$LVS_EX_ONECLICKACTIVATE))
$ListView_Film = GUICtrlCreateListView("", 160, 56, 810, 300)
_GUICtrlListView_AddColumn($ListView_Film, "Titel", 200, 2)
_GUICtrlListView_AddColumn($ListView_Film, "Laufzeit", 75, 2)
_GUICtrlListView_AddColumn($ListView_Film, "FSK", 200, 2)
_GUICtrlListView_AddColumn($ListView_Film, "Genre", 150, 2)
_GUICtrlListView_AddColumn($ListView_Film, "Start Zeit", 180, 2)
_GUICtrlListView_SetExtendedListViewStyle($ListView_Film, BitOR($LVS_EX_FULLROWSELECT,$LVS_EX_GRIDLINES,$LVS_EX_ONECLICKACTIVATE))
GUICtrlSetState($radio_Heute, $GUI_CHECKED)
GUISetState()
#EndRegion ### GUI MainForm ##########################################################################

[/autoit] [autoit][/autoit] [autoit]

GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
_ReduceMemory()

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg(1)
Select
Case $nMsg[0] = $GUI_EVENT_CLOSE
Exit
Case $nMsg[0] = $ListView_Kino And $nMsg[1] = $MainForm
GetFilmList()
Case $nMsg[0] = $cmdGo
$MoreSites = 0
$SiteCount_2 = 0
$SiteCounter = 0
getSource()
Case $nMsg[0] = $radio_Heute And BitAND(GUICtrlRead($radio_Heute), $GUI_CHECKED) = $GUI_CHECKED
$MoreSites = 0
$SiteCount_2 = 0
$SiteCounter = 0
getSource()
Case $nMsg[0] = $radio_Morgen And BitAND(GUICtrlRead($radio_Morgen), $GUI_CHECKED) = $GUI_CHECKED
$MoreSites = 0
$SiteCount_2 = 0
$SiteCounter = 0
getSource()
Case $nMsg[0] = $radio_UeberMorgen And BitAND(GUICtrlRead($radio_UeberMorgen), $GUI_CHECKED) = $GUI_CHECKED
$MoreSites = 0
$SiteCount_2 = 0
$SiteCounter = 0
getSource()
Case $nMsg[0] = $radio_UeberUeberMorgen And BitAND(GUICtrlRead($radio_UeberUeberMorgen), $GUI_CHECKED) = $GUI_CHECKED
$MoreSites = 0
$SiteCount_2 = 0
$SiteCounter = 0
getSource()
EndSelect
WEnd

[/autoit] [autoit][/autoit] [autoit]

#Region ### Func _Wait ############################################################################
Func _Wait()
ConsoleWrite('@@ (94) :(' & @MIN & ':' & @SEC & ') _Wait()' & @CR) ;### Function Trace
GUISetState(@SW_DISABLE, $MainForm)
$Kino_Pos = WinGetPos ( "Kino Programm")

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$frmWait = GUICreate("", 161, 34, $Kino_Pos[0] + 400,$Kino_Pos[1] + 150, BitOR($WS_MINIMIZEBOX, $WS_DLGFRAME, $WS_POPUP, $WS_GROUP, $WS_CLIPSIBLINGS))
$Label1 = GUICtrlCreateLabel("Bitte warten...", 0, 0, 160, 33)
GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFE1)
GUICtrlSetBkColor(-1, 0xA6CAF0)
GUISetState()
EndFunc ;==>_Wait
#EndRegion ### Func _Wait ############################################################################

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

#Region ### Func getSource ########################################################################
Func getSource($ii = -1)
ConsoleWrite('@@ (108) :(' & @MIN & ':' & @SEC & ') getSource()' & @CR) ;### Function Trace

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

If GUICtrlRead($txtCity) = "" Then
MsgBox(0, "Warnung", "Bitte geben Sie einen Stadtnamen oder ein Plz. ein!")
Else

[/autoit] [autoit][/autoit] [autoit]

If $MoreSites = 0 Then
_Wait()
EndIf

[/autoit] [autoit][/autoit] [autoit]

Dim $CityName = GUICtrlRead($txtCity)
Dim $i = 0
Dim $url
Dim $sHTML
Dim $oIE
Dim $temp_array
Dim $j = 0

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$CityName = StringReplace($CityName, 'ü', 'ue')
$CityName = StringReplace($CityName, 'ä', 'ae')
$CityName = StringReplace($CityName, 'ö', 'oe')
$CityName = StringReplace($CityName, 'ß', 'ss')

[/autoit] [autoit][/autoit] [autoit]

If GUICtrlRead($radio_Morgen) = $GUI_CHECKED Then
$url = 'http://www.google.de/movies?hl=de&near=' & $CityName & '&date=1&start=' & $SiteCount_2
ElseIf GUICtrlRead($radio_UeberMorgen) = $GUI_CHECKED Then
$url = 'http://www.google.de/movies?hl=de&near=' & $CityName & '&date=2&start=' & $SiteCount_2
ElseIf GUICtrlRead($radio_UeberUeberMorgen) = $GUI_CHECKED Then
$url = 'http://www.google.de/movies?hl=de&near=' & $CityName & '&date=3&start=' & $SiteCount_2
Else
$url = 'http://www.google.de/movies?hl=de&near=' & $CityName & '&date=0&start=' & $SiteCount_2
EndIf

[/autoit] [autoit][/autoit] [autoit]

$oIE = _IECreate($url, 0, 0)
$sHTML = _IEBodyReadHTML($oIE)
_IEQuit($oIE)

[/autoit] [autoit][/autoit] [autoit]

If $MoreSites = 0 Then
For $i = 0 To UBound($Array_Cinema, 1) - 1
For $jj = 0 To UBound($Array_Cinema, 2) - 1
$Array_Cinema[$i][$jj] = ""
Next
Next
EndIf

[/autoit] [autoit][/autoit] [autoit]

$aArray = StringSplit($sHTML, @CRLF, 1)
For $i = 0 To UBound($aArray) - 1
Select
Case $aArray[$i] = "<DIV class=theater>"
$j = 0
$i += 2
$ii += 1
$temp_array = _StringBetween($aArray[$i], "<SPAN dir=ltr>", "</SPAN>")
If @error = 0 Then $Array_Cinema[$ii][$j] = $temp_array[0]
$i += 1
$j += 1
$temp_array = _StringBetween($aArray[$i], "<DIV class=info>", "<A class=")
If @error = 0 Then $Array_Cinema[$ii][$j] = $temp_array[0]
Case $aArray[$i] = "<DIV class=movie>"
$i += 1
$j += 1
$temp_array = _StringBetween($aArray[$i], "<SPAN dir=ltr>", "</SPAN>")
If @error = 0 Then $Array_Cinema[$ii][$j] = $temp_array[0]
$j += 1
$temp_array = _StringBetween($aArray[$i], "</NOBR>", "</SPAN>")
If @error = 0 Then $Array_Cinema[$ii][$j] = $temp_array[0]
$i += 1
$j += 1
$temp_array = _StringBetween($aArray[$i], "<DIV class=times>", "</DIV>")
If @error = 0 Then $Array_Cinema[$ii][$j] = $temp_array[0]
Case StringInStr($aArray[$i], 'date=1">')
$temp_array = _StringBetween($aArray[$i], 'date=1">', "</A></DIV>")
If @error = 0 Then GUICtrlSetData($radio_Morgen, $temp_array[0])
Case StringInStr($aArray[$i], 'date=2">')
$temp_array = _StringBetween($aArray[$i], 'date=2">', "</A></DIV>")
If @error = 0 Then GUICtrlSetData($radio_UeberMorgen, $temp_array[0])
Case StringInStr($aArray[$i], 'date=3">')
$temp_array = _StringBetween($aArray[$i], 'date=3">', "</A></DIV>")
If @error = 0 Then GUICtrlSetData($radio_UeberUeberMorgen, $temp_array[0])
Case StringInStr($aArray[$i], '<TD noWrap><A href')
If $MoreSites = 0 Then
$SiteCount += 1
EndIf
EndSelect
Next
If $MoreSites = 0 Then
$MoreSites = 1
While $SiteCounter < $SiteCount
$SiteCounter += 1
$SiteCount_2 += 10
getSource($ii)
WEnd
EndIf

[/autoit] [autoit][/autoit] [autoit]

Find_Cinema()
EndIf
GUIDelete($frmWait)
GUISetState(@SW_ENABLE, $MainForm)
WinActivate ( "Kino Programm")

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

EndFunc ;==>getSource
#EndRegion ### Func getSource ########################################################################

[/autoit] [autoit][/autoit] [autoit]

#Region ### Func GetFilmList #########################################################################
Func GetFilmList()
ConsoleWrite('@@ (236) :(' & @MIN & ':' & @SEC & ') GetFilmList()' & @CR) ;### Function Trace
$Index = _GUICtrlListView_GetHotItem($ListView_Kino)
If $Index > -1 Then
_GUICtrlListView_BeginUpdate(GUICtrlGetHandle($ListView_Film))

[/autoit] [autoit][/autoit] [autoit]

Dim $i_ListView = 0
_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView_Film))
$String_Seperated = StringSplit($Array_Cinema[$Index][1], " - ", 1)
GUICtrlSetData($lbl_Adresse, $String_Seperated[1])
If $String_Seperated[0] = 2 Then
GUICtrlSetData($lbl_TelNum, $String_Seperated[2])
EndIf
For $j = 2 To UBound($Array_Cinema, 2) - 1
If $Array_Cinema[$Index][$j] <> "" Then
_GUICtrlListView_AddItem($ListView_Film, $Array_Cinema[$Index][$j])
$j += 1
$Temp = StringTrimLeft($Array_Cinema[$Index][$j], 10)
If $Temp <> "" Then
$TempArray = StringSplit($Temp, "- ", 1)
If $TempArray[0] = 1 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
_GUICtrlListView_AddSubItem($ListView_Film, $i_ListView, $TempArray[1], 1)
ElseIf $TempArray[0] = 2 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
$TempArray[2] = StringTrimRight($TempArray[2], 3)
$TempArray[2] = StringTrimLeft($TempArray[2], 5)
_GUICtrlListView_AddSubItem($ListView_Film, $i_ListView, $TempArray[1], 1)
_GUICtrlListView_AddSubItem($ListView_Film, $i_ListView, $TempArray[2], 2)
ElseIf $TempArray[0] = 3 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
$TempArray[2] = StringTrimRight($TempArray[2], 3)
$TempArray[2] = StringTrimLeft($TempArray[2], 5)
$TempArray[3] = StringTrimRight($TempArray[3], 1)
_GUICtrlListView_AddSubItem($ListView_Film, $i_ListView, $TempArray[1], 1)
_GUICtrlListView_AddSubItem($ListView_Film, $i_ListView, $TempArray[2], 2)
_GUICtrlListView_AddSubItem($ListView_Film, $i_ListView, $TempArray[3], 3)
EndIf
EndIf
$j += 1
$Temp = StringReplace($Array_Cinema[$Index][$j], " ", ";", 0)
_GUICtrlListView_AddSubItem($ListView_Film, $i_ListView, $Temp, 4)
$i_ListView += 1
EndIf
Next
_GUICtrlListView_EndUpdate(GUICtrlGetHandle($ListView_Film))
EndIf
EndFunc
#EndRegion ### Func GetFilmList ###################################################################

[/autoit] [autoit][/autoit] [autoit]

#Region ### Func Find_Cinema ######################################################################
Func Find_Cinema()
ConsoleWrite('@@ (288) :(' & @MIN & ':' & @SEC & ') Find_Cinema()' & @CR) ;### Function Trace

[/autoit] [autoit][/autoit] [autoit]

_GUICtrlListView_BeginUpdate(GUICtrlGetHandle($ListView_Kino))
_GUICtrlListView_BeginUpdate(GUICtrlGetHandle($ListView_Film))
_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView_Kino))
_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView_Film))

[/autoit] [autoit][/autoit] [autoit]

;~ ----------- Problem noch nict gelöst ------------
;~ If GUICtrlRead($chk_Genauigkeit) = $GUI_CHECKED Then

[/autoit] [autoit][/autoit] [autoit]

;~ For $i = UBound($Array_Cinema, 1) - 1 To 0 Step -1
;~ $pruef = StringInStr($Array_Cinema[$i][1], GUICtrlRead($txtCity))
;~ If $pruef = 0 Then
;~ _ArrayDelete($Array_Cinema, $i)
;~ EndIf
;~ Next
;~ EndIf
;~ ----------- Problem noch nict gelöst ------------
For $i = 0 To UBound($Array_Cinema, 1) - 1
If $Array_Cinema[$i][0] <> "" Then
_GUICtrlListView_AddItem($ListView_Kino,$Array_Cinema[$i][0])
EndIf
Next
_GUICtrlListView_EndUpdate(GUICtrlGetHandle($ListView_Kino))
_GUICtrlListView_EndUpdate(GUICtrlGetHandle($ListView_Film))

[/autoit] [autoit][/autoit] [autoit]

EndFunc ;==>Find_Cinema
#EndRegion ### Func Find_Cinema ######################################################################

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
ConsoleWrite('@@ (312) :(' & @MIN & ':' & @SEC & ') WM_NOTIFY()' & @CR) ;### Function Trace
#forceref $hWnd, $iMsg, $iwParam
Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $hWndListView, $tInfo
$hWndListView = $ListView_Kino
If Not IsHWnd($ListView_Kino) Then $hWndListView = GUICtrlGetHandle($ListView_Kino)

[/autoit] [autoit][/autoit] [autoit]

$tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
$hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
$iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
$iCode = DllStructGetData($tNMHDR, "Code")
Switch $hWndFrom
Case $hWndListView
Switch $iCode
Case $LVN_COLUMNCLICK ; Es wurde auf eine Spalte geklickt
$tInfo = DllStructCreate($tagNMLISTVIEW, $ilParam)
; Kein Rückgabewert
Case $LVN_KEYDOWN ; Es wurde eine Taste gedrückt
$tInfo = DllStructCreate($tagNMLVKEYDOWN, $ilParam)
; Kein Rückgabewert
Case $NM_CLICK ; Wird vom ListView gesendet, wenn der Benutzer ein Item mit der linken Maustaste anklickt
$tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
GetFilmList()
; Kein Rückgabewert
Case $NM_DBLCLK ; Wird vom ListView gesendet, wenn der Benutzer ein Item mit der linken Maustaste doppelklickt
$tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
; Kein Rückgabewert
Case $NM_KILLFOCUS ; Das Control hat den Eingabefokus verloren
; Kein Rückgabewert
Case $NM_RCLICK ; Wird vom ListView gesendet, wenn der Benutzer ein Item mit der rechten Maustaste anklickt
$tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
;Return 1 ; Verhindert die weitere Standard-Nachrichtenbehandlung
Return 0 ; Erlaubt die weitere Standard-Nachrichtenbehandlung
Case $NM_RDBLCLK ; Wird vom ListView gesendet, wenn der Benutzer ein Item mit der rechten Maustaste doppelklickt
$tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
; Kein Rückgabewert
Case $NM_RETURN ; Das Control hat den Eingabefokus und der Benutzer hat die ENTER-Taste gedrückt
; Kein Rückgabewert
Case $NM_SETFOCUS ; Das Control hat den Eingabefokus erhalten
; Kein Rückgabewert
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_NOTIFY

[/autoit] [autoit][/autoit] [autoit]

Func _ReduceMemory($i_PID = -1)
ConsoleWrite('@@ (519) :(' & @MIN & ':' & @SEC & ') _ReduceMemory()' & @CR) ;### Function Trace

[/autoit] [autoit][/autoit] [autoit]

If $i_PID <> -1 Then
Local $ai_Handle = DllCall("kernel32.dll", 'int', 'OpenProcess', 'int', 0x1f0fff, 'int', False, 'int', $i_PID)
Local $ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', $ai_Handle[0])
DllCall('kernel32.dll', 'int', 'CloseHandle', 'int', $ai_Handle[0])
Else
Local $ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', -1)
EndIf

[/autoit] [autoit][/autoit] [autoit]

Return $ai_Return[0]
EndFunc ;==>_ReduceMemory

[/autoit]

Vielleicht kann ja der eine oder andere was mit anfangen.

Tips sind immer willkommen und gewünscht.

Und wie gesagt es hat noch Bugs

mfg
nefas

**chip**

Mh also es zeigt zwar Kinos an, aber nicht nur von der Stadt die ich eingebe sonden noch von einigen anderen Städten.

Zum Beispiel gebe ich Karlsruhe ein dann kommt raus "Ettlingen, Landau, Bruchsal".

Lustig ist nun wenn ich Landau eingebe kommt raus: "Kaiserlautern, Karlsruhe, Neustadt, Speyer, Ludwigshafen"

nefas83

Das liegt daran das bei google in der Regel die ersten 10 Kinos aufgelistet werden die bei der Stadt und Umgebung sind.

Solltest das gleiche erhalten wenn du bei Google in die Such " Kino Karlsruhe" eingibst und dann auf "Weitere Filme" klickts,
dann kommen auch mehr Kinos und Städte.

Ist ja nur ein simpler parser für die Google Ausgabe

**chip**

Prüf doch einfach in der Adresse ob die Stadt bzw. Plz stimmt und nur wenn das der Fall ist lässt sie anzeigen. So als Verbesserungsvorschlag :).

**Schnitzel**

wow klasse script. bei mir funktionierts mit ortsnamen recht gut. die postleitzahl meier stadt haut dagegen nicht so hin, aber das finde ich nicht schlimm.

als verbesserung würde ich evtl am anfang der funktion getSource() die gui komplett disablen und wenn er alles geladen hat wieder aktivieren.
oder einfach ne kleine gui mit "Ich lade gerade" oder so. damit man nichts anderes klickt wärend er noch beschäftigt ist und damit man weiß das er was tut^^

PS: ein spoiler wäre auch nicht verkehrt gewesen

monkey

Sehr schönes Script
Ich denke ich werde das erstmal aufm Rechner lassen^^

Und was mir noch aufgefallen ist...

Der Fehler bei den Listen "Start ZEit" sollte das "E" vllt. klein geschrieben werden.
und vllt. sollte man sich auf eine Sprache einig werden diese Mischung aus Deutsch und Englisch ist irgendwie komisch

Sonst finde ich das Skript sehr nützlich

nefas83

Das freut mich

Danke für die Tips werde sie versuchen so schnell wir möglich umzusetzten.

Hab ein Update schon gemacht und den Warte-Screen eingefügt.

Datei ist auch aktualisiert.

mfg

JuraX

tolles programm, aber:
bei gear das ist wohl ein Rechtschreibfehler

nefas83

Ups

hab es verbessert und in Post 1 angepasst.

Kleiner

Auch von mir Schöne Idee!

Habe da noch was für dich, Arbeite doch mehr mit array´s !

LG Kleiner

nefas83

Danke,

und danke für den Tip.
Das hatte ich auch vor, vorallem weil ich die Taps noch dynamisch machen möchte.
Ansonsten bin ich auch eher jemand der die Vorteile von Listen (bei C#) oder halt hier bei mit Array's nutz.
Wird da durch doch kürzer und übersichtlicher.

Was ich auch noch hinzufügen möchte ich das auf allen Seiten die Kinos aufgelistet werden.
Z.B. bei Berlin sind es sieben Seiten mit Kinos aus Berlin.
Hab auch schon im Kopf wie ich es umsetzen muss, aber leider gerade keine Zeit.

Aber noch mals danke an alle die mir Tips geben und ihre Meinung posten.

mfg
nefas

JuraX

wenn du vordefinirte städte hättest währs auch cool münchen hat 2/3 postleitzahlen

nefas83

Das mit den verschiedenen Plz. möchte ich ja entgegen wirken in dem ich alle Ergebnisse verwenden möchte.

Schön zusehen ist es wenn man einfach mal bei Google
"Kino München" eingibt und dann auf "Weitere Filme »" klickt.
Ganz unten sind ja dann mehrere Seiten nur mit Kinos aus München.
Oder man gibt gleich die Plz. ein, anstatt dem Städtename.

Wie kann ich mir das denn vorstellen mit den "vordefinirten Städten"? Oder was meinst du damit genau?

**Sprenger120**

also ich finde das ist gut Gelungen und SEHR nützlich

JuraX

ich meine wenn man München eingibt interpretiert er das ganze als
80331–81929.

nefas83

Ah ok,

ich denk das es nicht mehr nötig sein wird wenn ich die gesammten results auswerte.

Aber sonst eine gute Idee.

Ubuntu

Bei mir funktioniert alles super (auch mit der umgenung gab es keine probleme)
Deshalb (noch) keine Kritik.(oder nur positive)
Super Sache

mfg Ubuntu

qon

auch bei mir funzt es gut
(Limburg)

**chip**

Hier mal kleine Verbesserung. Jetzt werden wirklich nur die Kinos angezeigt von der Stadt die man gesucht hat. Und das ganez geht auch bei Postleitzahlen das z.b. wenn man von München nur eine eingibt man trotzdem alle andere Kinos die sich auch in München befinden, aber anderen Postleitzahl haben, angezeigt werden, ohne noch alle möglichen anderen Kinos drum herrum :).

Spoiler anzeigen

[autoit][/autoit] [autoit][/autoit] [autoit]

#cs
|---------------Definition---------------|
| -=Cinema=- |
|---------------Autor--------------------|
|Name : nefas |
|Datum : 23.02.2010 |
|Last Edit : 23.02.2010 |
|---------------Version------------------|
|ALPHA : / |
|BETA : 3.4 |
|RC : / |
|FINAL : / |
|----------------------------------------|
#ce
#Region ### Includes #############################################################################
#include <GuiListView.au3>
#include <IE.au3>
#include <Inet.au3>
#include <String.au3>
#include <GuiTab.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#EndRegion ### Includes #############################################################################

[/autoit] [autoit][/autoit] [autoit]

#Region ### Variablen #############################################################################
Dim $Array_Cinema[10][100]
Dim $frmWait
#EndRegion ### Variablen #############################################################################

[/autoit] [autoit][/autoit] [autoit]

#Region ### GUI MainForm ##########################################################################
$MainForm = GUICreate("Cinema Programm", 840, 370, 193, 115)
$Label1 = GUICtrlCreateLabel("Stadt:", 8, 8, 55, 17)
$txtCity = GUICtrlCreateInput("", 8, 25, 185, 21)
$cmdGo = GUICtrlCreateButton("Go", 194, 25, 27, 21, $WS_GROUP)
$lbl_2 = GUICtrlCreateLabel("Tag:: ", 220, 8, 40, 17)
$radio_Heute = GUICtrlCreateRadio("Heute", 250, 8, 50, 17)
$radio_Morgen = GUICtrlCreateRadio("", 350, 8, 80, 17)
$radio_UeberMorgen = GUICtrlCreateRadio("", 450, 8, 80, 17)
$radio_UeberUeberMorgen = GUICtrlCreateRadio("", 550, 8, 80, 17)
$hTab = GUICtrlCreateTab(8, 56, 825, 313)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem(" ")
$Label3 = GUICtrlCreateLabel("Adresse:", 16, 96, 45, 17)
$lblAdresse_0 = GUICtrlCreateLabel("", 64, 96, 378, 17)
$Label20 = GUICtrlCreateLabel("Tel.:", 16, 112, 25, 17)
$lblTel_0 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$ListView0 = GUICtrlCreateListView("", 16, 136, 810, 222)
_GUICtrlListView_AddColumn($ListView0, "Titel", 200, 2)
_GUICtrlListView_AddColumn($ListView0, "Laufzeit", 75, 2)
_GUICtrlListView_AddColumn($ListView0, "FSK", 200, 2)
_GUICtrlListView_AddColumn($ListView0, "Genre", 150, 2)
_GUICtrlListView_AddColumn($ListView0, "Start Zeit", 180, 2)
$TabSheet2 = GUICtrlCreateTabItem(" ")
$Label4 = GUICtrlCreateLabel("Adresse:", 16, 96, 45, 17)
$lblAdresse_1 = GUICtrlCreateLabel("", 64, 96, 378, 17)
$Label22 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$Label23 = GUICtrlCreateLabel("Tel.:", 16, 112, 25, 17)
$lblTel_1 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$ListView1 = GUICtrlCreateListView("", 16, 136, 810, 222)
_GUICtrlListView_AddColumn($ListView1, "Titel", 200, 2)
_GUICtrlListView_AddColumn($ListView1, "Laufzeit", 75, 2)
_GUICtrlListView_AddColumn($ListView1, "FSK", 200, 2)
_GUICtrlListView_AddColumn($ListView1, "Genre", 150, 2)
_GUICtrlListView_AddColumn($ListView1, "Start Zeit", 180, 2)
$TabSheet3 = GUICtrlCreateTabItem(" ")
$Label5 = GUICtrlCreateLabel("Adresse:", 16, 96, 45, 17)
$lblAdresse_2 = GUICtrlCreateLabel("", 64, 96, 378, 17)
$Label24 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$Label25 = GUICtrlCreateLabel("Tel.:", 16, 112, 25, 17)
$lblTel_2 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$ListView2 = GUICtrlCreateListView("", 16, 136, 810, 222)
_GUICtrlListView_AddColumn($ListView2, "Titel", 200, 2)
_GUICtrlListView_AddColumn($ListView2, "Laufzeit", 75, 2)
_GUICtrlListView_AddColumn($ListView2, "FSK", 200, 2)
_GUICtrlListView_AddColumn($ListView2, "Genre", 150, 2)
_GUICtrlListView_AddColumn($ListView2, "Start Zeit", 180, 2)
$TabSheet4 = GUICtrlCreateTabItem(" ")
$Label6 = GUICtrlCreateLabel("Adresse:", 16, 96, 45, 17)
$lblAdresse_3 = GUICtrlCreateLabel("", 64, 96, 378, 17)
$Label26 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$Label27 = GUICtrlCreateLabel("Tel.:", 16, 112, 25, 17)
$lblTel_3 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$ListView3 = GUICtrlCreateListView("", 16, 136, 810, 222)
_GUICtrlListView_AddColumn($ListView3, "Titel", 200, 2)
_GUICtrlListView_AddColumn($ListView3, "Laufzeit", 75, 2)
_GUICtrlListView_AddColumn($ListView3, "FSK", 200, 2)
_GUICtrlListView_AddColumn($ListView3, "Genre", 150, 2)
_GUICtrlListView_AddColumn($ListView3, "Start Zeit", 180, 2)
$TabSheet5 = GUICtrlCreateTabItem(" ")
$Label7 = GUICtrlCreateLabel("Adresse:", 16, 96, 45, 17)
$lblAdresse_4 = GUICtrlCreateLabel("", 64, 96, 378, 17)
$Label28 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$Label29 = GUICtrlCreateLabel("Tel.:", 16, 112, 25, 17)
$lblTel_4 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$ListView4 = GUICtrlCreateListView("", 16, 136, 810, 222)
_GUICtrlListView_AddColumn($ListView4, "Titel", 200, 2)
_GUICtrlListView_AddColumn($ListView4, "Laufzeit", 75, 2)
_GUICtrlListView_AddColumn($ListView4, "FSK", 200, 2)
_GUICtrlListView_AddColumn($ListView4, "Genre", 150, 2)
_GUICtrlListView_AddColumn($ListView4, "Start Zeit", 180, 2)
$TabSheet6 = GUICtrlCreateTabItem(" ")
$Label8 = GUICtrlCreateLabel("Adresse:", 16, 96, 45, 17)
$lblAdresse_5 = GUICtrlCreateLabel("", 64, 96, 378, 17)
$Label30 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$Label31 = GUICtrlCreateLabel("Tel.:", 16, 112, 25, 17)
$lblTel_5 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$ListView5 = GUICtrlCreateListView("", 16, 136, 810, 222)
_GUICtrlListView_AddColumn($ListView5, "Titel", 200, 2)
_GUICtrlListView_AddColumn($ListView5, "Laufzeit", 75, 2)
_GUICtrlListView_AddColumn($ListView5, "FSK", 200, 2)
_GUICtrlListView_AddColumn($ListView5, "Genre", 150, 2)
_GUICtrlListView_AddColumn($ListView5, "Start Zeit", 180, 2)
$TabSheet7 = GUICtrlCreateTabItem(" ")
$Label9 = GUICtrlCreateLabel("Adresse:", 16, 96, 45, 17)
$lblAdresse_6 = GUICtrlCreateLabel("", 64, 96, 378, 17)
$Label32 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$Label33 = GUICtrlCreateLabel("Tel.:", 16, 112, 25, 17)
$lblTel_6 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$ListView6 = GUICtrlCreateListView("", 16, 136, 810, 222)
_GUICtrlListView_AddColumn($ListView6, "Titel", 200, 2)
_GUICtrlListView_AddColumn($ListView6, "Laufzeit", 75, 2)
_GUICtrlListView_AddColumn($ListView6, "FSK", 200, 2)
_GUICtrlListView_AddColumn($ListView6, "Genre", 150, 2)
_GUICtrlListView_AddColumn($ListView6, "Start Zeit", 180, 2)
$TabSheet8 = GUICtrlCreateTabItem(" ")
$Label10 = GUICtrlCreateLabel("Adresse:", 16, 96, 45, 17)
$lblAdresse_7 = GUICtrlCreateLabel("", 64, 96, 378, 17)
$Label34 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$Label35 = GUICtrlCreateLabel("Tel.:", 16, 112, 25, 17)
$lblTel_7 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$ListView7 = GUICtrlCreateListView("", 16, 136, 810, 222)
_GUICtrlListView_AddColumn($ListView7, "Titel", 200, 2)
_GUICtrlListView_AddColumn($ListView7, "Laufzeit", 75, 2)
_GUICtrlListView_AddColumn($ListView7, "FSK", 200, 2)
_GUICtrlListView_AddColumn($ListView7, "Genre", 150, 2)
_GUICtrlListView_AddColumn($ListView7, "Start Zeit", 180, 2)
$TabSheet9 = GUICtrlCreateTabItem(" ")
$Label11 = GUICtrlCreateLabel("Adresse:", 16, 96, 45, 17)
$lblAdresse_8 = GUICtrlCreateLabel("", 64, 96, 378, 17)
$Label36 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$Label37 = GUICtrlCreateLabel("Tel.:", 16, 112, 25, 17)
$lblTel_8 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$ListView8 = GUICtrlCreateListView("", 16, 136, 810, 222)
_GUICtrlListView_AddColumn($ListView8, "Titel", 200, 2)
_GUICtrlListView_AddColumn($ListView8, "Laufzeit", 75, 2)
_GUICtrlListView_AddColumn($ListView8, "FSK", 200, 2)
_GUICtrlListView_AddColumn($ListView8, "Genre", 150, 2)
_GUICtrlListView_AddColumn($ListView8, "Start Zeit", 180, 2)
$TabSheet10 = GUICtrlCreateTabItem(" ")
$Label12 = GUICtrlCreateLabel("Adresse:", 16, 96, 45, 17)
$lblAdresse_9 = GUICtrlCreateLabel("", 64, 96, 378, 17)
$Label38 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$Label39 = GUICtrlCreateLabel("Tel.:", 16, 112, 25, 17)
$lblTel_9 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$ListView9 = GUICtrlCreateListView("", 16, 136, 810, 222)
_GUICtrlListView_AddColumn($ListView9, "Titel", 200, 2)
_GUICtrlListView_AddColumn($ListView9, "Laufzeit", 75, 2)
_GUICtrlListView_AddColumn($ListView9, "FSK", 200, 2)
_GUICtrlListView_AddColumn($ListView9, "Genre", 150, 2)
_GUICtrlListView_AddColumn($ListView9, "Start Zeit", 180, 2)
GUICtrlCreateTabItem("")
GUICtrlSetState($radio_Heute, $GUI_CHECKED)
GUISetState(@SW_SHOW)
#EndRegion ### GUI MainForm ##########################################################################

[/autoit] [autoit][/autoit] [autoit]

GUICtrlSetState($radio_Heute, $GUI_CHECKED)

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Select
Case $nMsg = $GUI_EVENT_CLOSE
Exit
Case $nMsg = $cmdGo
getSource()
Case $nMsg = $radio_Heute And BitAND(GUICtrlRead($radio_Heute), $GUI_CHECKED) = $GUI_CHECKED
getSource()
Case $nMsg = $radio_Morgen And BitAND(GUICtrlRead($radio_Morgen), $GUI_CHECKED) = $GUI_CHECKED
getSource()
Case $nMsg = $radio_UeberMorgen And BitAND(GUICtrlRead($radio_UeberMorgen), $GUI_CHECKED) = $GUI_CHECKED
getSource()
Case $nMsg = $radio_UeberUeberMorgen And BitAND(GUICtrlRead($radio_UeberUeberMorgen), $GUI_CHECKED) = $GUI_CHECKED
getSource()
EndSelect
WEnd

[/autoit] [autoit][/autoit] [autoit]

#Region ### Func _Wait ############################################################################
Func _Wait()
GUISetState(@SW_DISABLE, $MainForm)
$frmWait = GUICreate("", 161, 34, 510, 391, BitOR($WS_MINIMIZEBOX, $WS_DLGFRAME, $WS_POPUP, $WS_GROUP, $WS_CLIPSIBLINGS))
$Label1 = GUICtrlCreateLabel("Bitte warten...", 0, 0, 160, 33)
GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFE1)
GUICtrlSetBkColor(-1, 0xA6CAF0)
GUISetState()
EndFunc ;==>_Wait
#EndRegion ### Func _Wait ############################################################################

[/autoit] [autoit][/autoit] [autoit]

#Region ### Func getSource ########################################################################
Func getSource()
_Wait()
If GUICtrlRead($txtCity) = "" Then
MsgBox(0, "Warnung", "Bitte geben Sie einen Stadtnamen oder ein Plz. ein!")
Else
_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView0))
_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView1))
_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView2))
_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView3))
_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView4))
_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView5))
_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView6))
_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView7))
_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView8))
_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView9))

[/autoit] [autoit][/autoit] [autoit]

Dim $CityName = GUICtrlRead($txtCity)
Dim $i = 0
Dim $url

[/autoit] [autoit][/autoit] [autoit]

If GUICtrlRead($radio_Morgen) = $GUI_CHECKED Then
$url = 'http://www.google.de/movies?hl=de&near=' & $CityName & '&date=1'
ElseIf GUICtrlRead($radio_UeberMorgen) = $GUI_CHECKED Then
$url = 'http://www.google.de/movies?hl=de&near=' & $CityName & '&date=2'
ElseIf GUICtrlRead($radio_UeberUeberMorgen) = $GUI_CHECKED Then
$url = 'http://www.google.de/movies?hl=de&near=' & $CityName & '&date=3'
Else
$url = 'http://www.google.de/movies?hl=de&near=' & $CityName & '&date=0'
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Dim $oIE = _IECreate($url, 0, 0)
$sHTML = _IEBodyReadHTML($oIE)
Dim $temp_array
Dim $Array_Movie
Dim $html = _INetGetSource($oIE)
;~ Dim $html_Output = FileOpen("TEMP_HTML.txt", 10) ;for debug only
Dim $ii = 0
Dim $j = 0
_IEQuit($oIE)

[/autoit] [autoit][/autoit] [autoit]

For $i = 0 To UBound($Array_Cinema, 1) - 1
For $ii = 0 To UBound($Array_Cinema, 2) - 1
$Array_Cinema[$i][$ii] = ""
Next
Next

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;~ FileWrite($html_Output, $sHTML) ;for debug only
$aArray1 = StringSplit($sHTML, @CRLF, 1)
;~ FileOpen("Temp_Array.txt", 10) ;for debug only
$ii = -1
For $i = 0 To UBound($aArray1) - 1
If $aArray1[$i] = "<DIV class=theater>" Then
$j = 0
$i += 2
$ii += 1
$temp_array = _StringBetween($aArray1[$i], "<SPAN dir=ltr>", "</SPAN>")
If @error = 0 Then
$Array_Cinema[$ii][$j] = $temp_array[0]
EndIf

[/autoit] [autoit][/autoit] [autoit]

$i += 1
$j += 1
$temp_array = _StringBetween($aArray1[$i], "<DIV class=info>", "<A class=")
If @error = 0 Then
$Array_Cinema[$ii][$j] = $temp_array[0]
EndIf

[/autoit] [autoit][/autoit] [autoit]

ElseIf $aArray1[$i] = "<DIV class=movie>" Then
$i += 1
$j += 1
$temp_array = _StringBetween($aArray1[$i], "<SPAN dir=ltr>", "</SPAN>")
If @error = 0 Then
$Array_Cinema[$ii][$j] = $temp_array[0]
EndIf
$j += 1
$temp_array = _StringBetween($aArray1[$i], "</NOBR>", "</SPAN>")
If @error = 0 Then
$Array_Cinema[$ii][$j] = $temp_array[0]
EndIf
$i += 1
$j += 1
$temp_array = _StringBetween($aArray1[$i], "<DIV class=times>", "</DIV>")
If @error = 0 Then
$Array_Cinema[$ii][$j] = $temp_array[0]
EndIf
ElseIf StringInStr($aArray1[$i], 'date=1">') Then
$temp_array = _StringBetween($aArray1[$i], 'date=1">', "</A></DIV>")
If @error = 0 Then
GUICtrlSetData($radio_Morgen, $temp_array[0])
EndIf

[/autoit] [autoit][/autoit] [autoit]

ElseIf StringInStr($aArray1[$i], 'date=2">') Then
$temp_array = _StringBetween($aArray1[$i], 'date=2">', "</A></DIV>")
If @error = 0 Then
GUICtrlSetData($radio_UeberMorgen, $temp_array[0])
EndIf

[/autoit] [autoit][/autoit] [autoit]

ElseIf StringInStr($aArray1[$i], 'date=3">') Then
$temp_array = _StringBetween($aArray1[$i], 'date=3">', "</A></DIV>")
If @error = 0 Then
GUICtrlSetData($radio_UeberUeberMorgen, $temp_array[0])
EndIf

[/autoit] [autoit][/autoit] [autoit]

EndIf
Next
Find_Cinema()
EndIf
GUIDelete($frmWait)
GUISetState(@SW_ENABLE, $MainForm)
EndFunc ;==>getSource
#EndRegion ### Func getSource ########################################################################

[/autoit] [autoit][/autoit] [autoit]

#Region ### Func Find_Cinema ######################################################################
Func Find_Cinema()
_GUICtrlListView_BeginUpdate(GUICtrlGetHandle($ListView0))
_GUICtrlListView_BeginUpdate(GUICtrlGetHandle($ListView1))
_GUICtrlListView_BeginUpdate(GUICtrlGetHandle($ListView2))
_GUICtrlListView_BeginUpdate(GUICtrlGetHandle($ListView3))
_GUICtrlListView_BeginUpdate(GUICtrlGetHandle($ListView4))
_GUICtrlListView_BeginUpdate(GUICtrlGetHandle($ListView5))
_GUICtrlListView_BeginUpdate(GUICtrlGetHandle($ListView6))
_GUICtrlListView_BeginUpdate(GUICtrlGetHandle($ListView7))
_GUICtrlListView_BeginUpdate(GUICtrlGetHandle($ListView8))
_GUICtrlListView_BeginUpdate(GUICtrlGetHandle($ListView9))

[/autoit] [autoit][/autoit] [autoit]

Dim $i_ListView = 0
Dim $Tab_Count = 0
Dim $String_Seperated
Dim $Temp
Dim $TempArray
Dim $j = 0
For $li = UBound($Array_Cinema, 1) - 1 To 0 Step -1
$pruef = StringInStr($Array_Cinema[$li][1], GUICtrlRead($txtCity))
If $pruef = 0 Then
_ArrayDelete($Array_Cinema, $li)
EndIf
Next
For $i = 0 To UBound($Array_Cinema, 1) - 1
$j = 0
$i_ListView = 0
_GUICtrlTab_SetItem($hTab, $Tab_Count, $Array_Cinema[$i][$j])
$j += 1
$String_Seperated = StringSplit($Array_Cinema[$i][$j], " - ", 1)
Switch $Tab_Count
Case 0
GUICtrlSetData($lblAdresse_0, $String_Seperated[1])
If $String_Seperated[0] = 2 Then
GUICtrlSetData($lblTel_0, $String_Seperated[2])
EndIf
For $j = 2 To UBound($Array_Cinema, 2) - 1
If Not $Array_Cinema[$i][$j] = "" Then
_GUICtrlListView_AddItem($ListView0, $Array_Cinema[$i][$j])
$j += 1
$Temp = StringTrimLeft($Array_Cinema[$i][$j], 10)
If Not $Temp = "" Then
$TempArray = StringSplit($Temp, "- ", 1)
If $TempArray[0] = 1 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
_GUICtrlListView_AddSubItem($ListView0, $i_ListView, $TempArray[1], 1)
ElseIf $TempArray[0] = 2 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
$TempArray[2] = StringTrimRight($TempArray[2], 3)
$TempArray[2] = StringTrimLeft($TempArray[2], 5)
_GUICtrlListView_AddSubItem($ListView0, $i_ListView, $TempArray[1], 1)
_GUICtrlListView_AddSubItem($ListView0, $i_ListView, $TempArray[2], 2)
ElseIf $TempArray[0] = 3 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
$TempArray[2] = StringTrimRight($TempArray[2], 3)
$TempArray[2] = StringTrimLeft($TempArray[2], 5)
$TempArray[3] = StringTrimRight($TempArray[3], 1)
_GUICtrlListView_AddSubItem($ListView0, $i_ListView, $TempArray[1], 1)
_GUICtrlListView_AddSubItem($ListView0, $i_ListView, $TempArray[2], 2)
_GUICtrlListView_AddSubItem($ListView0, $i_ListView, $TempArray[3], 3)
EndIf
EndIf
$j += 1
$Temp = StringReplace($Array_Cinema[$i][$j], " ", ";", 0)
_GUICtrlListView_AddSubItem($ListView0, $i_ListView, $Temp, 4)
$i_ListView += 1
EndIf
Next
Case 1
GUICtrlSetData($lblAdresse_1, $String_Seperated[1])
If $String_Seperated[0] = 2 Then
GUICtrlSetData($lblTel_1, $String_Seperated[2])
EndIf

[/autoit] [autoit][/autoit] [autoit]

For $j = 2 To UBound($Array_Cinema, 2) - 1
If Not $Array_Cinema[$i][$j] = "" Then
_GUICtrlListView_AddItem($ListView1, $Array_Cinema[$i][$j])
$j += 1
$Temp = StringTrimLeft($Array_Cinema[$i][$j], 10)
If Not $Temp = "" Then
$TempArray = StringSplit($Temp, "- ", 1)
If $TempArray[0] = 1 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
_GUICtrlListView_AddSubItem($ListView1, $i_ListView, $TempArray[1], 1)
ElseIf $TempArray[0] = 2 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
$TempArray[2] = StringTrimRight($TempArray[2], 3)
$TempArray[2] = StringTrimLeft($TempArray[2], 5)
_GUICtrlListView_AddSubItem($ListView1, $i_ListView, $TempArray[1], 1)
_GUICtrlListView_AddSubItem($ListView1, $i_ListView, $TempArray[2], 2)
ElseIf $TempArray[0] = 3 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
$TempArray[2] = StringTrimRight($TempArray[2], 3)
$TempArray[2] = StringTrimLeft($TempArray[2], 5)
$TempArray[3] = StringTrimRight($TempArray[3], 1)
_GUICtrlListView_AddSubItem($ListView1, $i_ListView, $TempArray[1], 1)
_GUICtrlListView_AddSubItem($ListView1, $i_ListView, $TempArray[2], 2)
_GUICtrlListView_AddSubItem($ListView1, $i_ListView, $TempArray[3], 3)
EndIf
EndIf
$j += 1
$Temp = StringReplace($Array_Cinema[$i][$j], " ", ";", 0)
_GUICtrlListView_AddSubItem($ListView1, $i_ListView, $Temp, 4)
$i_ListView += 1
EndIf
Next
Case 2
GUICtrlSetData($lblAdresse_2, $String_Seperated[1])
If $String_Seperated[0] = 2 Then
GUICtrlSetData($lblTel_2, $String_Seperated[2])
EndIf

[/autoit] [autoit][/autoit] [autoit]

For $j = 2 To UBound($Array_Cinema, 2) - 1
If Not $Array_Cinema[$i][$j] = "" Then
_GUICtrlListView_AddItem($ListView2, $Array_Cinema[$i][$j])
$j += 1
$Temp = StringTrimLeft($Array_Cinema[$i][$j], 10)
If Not $Temp = "" Then
$TempArray = StringSplit($Temp, "- ", 1)
If $TempArray[0] = 1 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
_GUICtrlListView_AddSubItem($ListView2, $i_ListView, $TempArray[1], 1)
ElseIf $TempArray[0] = 2 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
$TempArray[2] = StringTrimRight($TempArray[2], 3)
$TempArray[2] = StringTrimLeft($TempArray[2], 5)
_GUICtrlListView_AddSubItem($ListView2, $i_ListView, $TempArray[1], 1)
_GUICtrlListView_AddSubItem($ListView2, $i_ListView, $TempArray[2], 2)
ElseIf $TempArray[0] = 3 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
$TempArray[2] = StringTrimRight($TempArray[2], 3)
$TempArray[2] = StringTrimLeft($TempArray[2], 5)
$TempArray[3] = StringTrimRight($TempArray[3], 1)
_GUICtrlListView_AddSubItem($ListView2, $i_ListView, $TempArray[1], 1)
_GUICtrlListView_AddSubItem($ListView2, $i_ListView, $TempArray[2], 2)
_GUICtrlListView_AddSubItem($ListView2, $i_ListView, $TempArray[3], 3)
EndIf
EndIf
$j += 1
$Temp = StringReplace($Array_Cinema[$i][$j], " ", ";", 0)
_GUICtrlListView_AddSubItem($ListView2, $i_ListView, $Temp, 4)
$i_ListView += 1
EndIf
Next
Case 3
GUICtrlSetData($lblAdresse_3, $String_Seperated[1])
If $String_Seperated[0] = 2 Then
GUICtrlSetData($lblTel_3, $String_Seperated[2])
EndIf

[/autoit] [autoit][/autoit] [autoit]

For $j = 2 To UBound($Array_Cinema, 2) - 1
If Not $Array_Cinema[$i][$j] = "" Then
_GUICtrlListView_AddItem($ListView3, $Array_Cinema[$i][$j])
$j += 1
$Temp = StringTrimLeft($Array_Cinema[$i][$j], 10)
If Not $Temp = "" Then
$TempArray = StringSplit($Temp, "- ", 1)
If $TempArray[0] = 1 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
_GUICtrlListView_AddSubItem($ListView3, $i_ListView, $TempArray[1], 1)
ElseIf $TempArray[0] = 2 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
$TempArray[2] = StringTrimRight($TempArray[2], 3)
$TempArray[2] = StringTrimLeft($TempArray[2], 5)
_GUICtrlListView_AddSubItem($ListView3, $i_ListView, $TempArray[1], 1)
_GUICtrlListView_AddSubItem($ListView3, $i_ListView, $TempArray[2], 2)
ElseIf $TempArray[0] = 3 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
$TempArray[2] = StringTrimRight($TempArray[2], 3)
$TempArray[2] = StringTrimLeft($TempArray[2], 5)
$TempArray[3] = StringTrimRight($TempArray[3], 1)
_GUICtrlListView_AddSubItem($ListView3, $i_ListView, $TempArray[1], 1)
_GUICtrlListView_AddSubItem($ListView3, $i_ListView, $TempArray[2], 2)
_GUICtrlListView_AddSubItem($ListView3, $i_ListView, $TempArray[3], 3)
EndIf
EndIf
$j += 1
$Temp = StringReplace($Array_Cinema[$i][$j], " ", ";", 0)
_GUICtrlListView_AddSubItem($ListView3, $i_ListView, $Temp, 4)
$i_ListView += 1
EndIf
Next
Case 4
GUICtrlSetData($lblAdresse_4, $String_Seperated[1])
If $String_Seperated[0] = 2 Then
GUICtrlSetData($lblTel_4, $String_Seperated[2])
EndIf
For $j = 2 To UBound($Array_Cinema, 2) - 1
If Not $Array_Cinema[$i][$j] = "" Then
_GUICtrlListView_AddItem($ListView4, $Array_Cinema[$i][$j])
$j += 1
$Temp = StringTrimLeft($Array_Cinema[$i][$j], 10)
If Not $Temp = "" Then
$TempArray = StringSplit($Temp, "- ", 1)
If $TempArray[0] = 1 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
_GUICtrlListView_AddSubItem($ListView4, $i_ListView, $TempArray[1], 1)
ElseIf $TempArray[0] = 2 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
$TempArray[2] = StringTrimRight($TempArray[2], 3)
$TempArray[2] = StringTrimLeft($TempArray[2], 5)
_GUICtrlListView_AddSubItem($ListView4, $i_ListView, $TempArray[1], 1)
_GUICtrlListView_AddSubItem($ListView4, $i_ListView, $TempArray[2], 2)
ElseIf $TempArray[0] = 3 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
$TempArray[2] = StringTrimRight($TempArray[2], 3)
$TempArray[2] = StringTrimLeft($TempArray[2], 5)
$TempArray[3] = StringTrimRight($TempArray[3], 1)
_GUICtrlListView_AddSubItem($ListView4, $i_ListView, $TempArray[1], 1)
_GUICtrlListView_AddSubItem($ListView4, $i_ListView, $TempArray[2], 2)
_GUICtrlListView_AddSubItem($ListView4, $i_ListView, $TempArray[3], 3)
EndIf
EndIf
$j += 1
$Temp = StringReplace($Array_Cinema[$i][$j], " ", ";", 0)
_GUICtrlListView_AddSubItem($ListView4, $i_ListView, $Temp, 4)
$i_ListView += 1
EndIf
Next
Case 5
GUICtrlSetData($lblAdresse_5, $String_Seperated[1])
If $String_Seperated[0] = 2 Then
GUICtrlSetData($lblTel_5, $String_Seperated[2])
EndIf
For $j = 2 To UBound($Array_Cinema, 2) - 1
If Not $Array_Cinema[$i][$j] = "" Then
_GUICtrlListView_AddItem($ListView5, $Array_Cinema[$i][$j])
$j += 1
$Temp = StringTrimLeft($Array_Cinema[$i][$j], 10)
If Not $Temp = "" Then
$TempArray = StringSplit($Temp, "- ", 1)
If $TempArray[0] = 1 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
_GUICtrlListView_AddSubItem($ListView5, $i_ListView, $TempArray[1], 1)
ElseIf $TempArray[0] = 2 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
$TempArray[2] = StringTrimRight($TempArray[2], 3)
$TempArray[2] = StringTrimLeft($TempArray[2], 5)
_GUICtrlListView_AddSubItem($ListView5, $i_ListView, $TempArray[1], 1)
_GUICtrlListView_AddSubItem($ListView5, $i_ListView, $TempArray[2], 2)
ElseIf $TempArray[0] = 3 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
$TempArray[2] = StringTrimRight($TempArray[2], 3)
$TempArray[2] = StringTrimLeft($TempArray[2], 5)
$TempArray[3] = StringTrimRight($TempArray[3], 1)
_GUICtrlListView_AddSubItem($ListView5, $i_ListView, $TempArray[1], 1)
_GUICtrlListView_AddSubItem($ListView5, $i_ListView, $TempArray[2], 2)
_GUICtrlListView_AddSubItem($ListView5, $i_ListView, $TempArray[3], 3)
EndIf
EndIf
$j += 1
$Temp = StringReplace($Array_Cinema[$i][$j], " ", ";", 0)
_GUICtrlListView_AddSubItem($ListView5, $i_ListView, $Temp, 4)
$i_ListView += 1
EndIf
Next
Case 6
GUICtrlSetData($lblAdresse_6, $String_Seperated[1])
If $String_Seperated[0] = 2 Then
GUICtrlSetData($lblTel_6, $String_Seperated[2])
EndIf
For $j = 2 To UBound($Array_Cinema, 2) - 1
If Not $Array_Cinema[$i][$j] = "" Then
_GUICtrlListView_AddItem($ListView6, $Array_Cinema[$i][$j])
$j += 1
$Temp = StringTrimLeft($Array_Cinema[$i][$j], 10)
If Not $Temp = "" Then
$TempArray = StringSplit($Temp, "- ", 1)
If $TempArray[0] = 1 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
_GUICtrlListView_AddSubItem($ListView6, $i_ListView, $TempArray[1], 1)
ElseIf $TempArray[0] = 2 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
$TempArray[2] = StringTrimRight($TempArray[2], 3)
$TempArray[2] = StringTrimLeft($TempArray[2], 5)
_GUICtrlListView_AddSubItem($ListView6, $i_ListView, $TempArray[1], 1)
_GUICtrlListView_AddSubItem($ListView6, $i_ListView, $TempArray[2], 2)
ElseIf $TempArray[0] = 3 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
$TempArray[2] = StringTrimRight($TempArray[2], 3)
$TempArray[2] = StringTrimLeft($TempArray[2], 5)
$TempArray[3] = StringTrimRight($TempArray[3], 1)
_GUICtrlListView_AddSubItem($ListView6, $i_ListView, $TempArray[1], 1)
_GUICtrlListView_AddSubItem($ListView6, $i_ListView, $TempArray[2], 2)
_GUICtrlListView_AddSubItem($ListView6, $i_ListView, $TempArray[3], 3)
EndIf
EndIf
$j += 1
$Temp = StringReplace($Array_Cinema[$i][$j], " ", ";", 0)
_GUICtrlListView_AddSubItem($ListView6, $i_ListView, $Temp, 4)
$i_ListView += 1
EndIf
Next
Case 7
GUICtrlSetData($lblAdresse_7, $String_Seperated[1])
If $String_Seperated[0] = 2 Then
GUICtrlSetData($lblTel_7, $String_Seperated[2])
EndIf
For $j = 2 To UBound($Array_Cinema, 2) - 1
If Not $Array_Cinema[$i][$j] = "" Then
_GUICtrlListView_AddItem($ListView7, $Array_Cinema[$i][$j])
$j += 1
$Temp = StringTrimLeft($Array_Cinema[$i][$j], 10)
If Not $Temp = "" Then
$TempArray = StringSplit($Temp, "- ", 1)
If $TempArray[0] = 1 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
_GUICtrlListView_AddSubItem($ListView7, $i_ListView, $TempArray[1], 1)
ElseIf $TempArray[0] = 2 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
$TempArray[2] = StringTrimRight($TempArray[2], 3)
$TempArray[2] = StringTrimLeft($TempArray[2], 5)
_GUICtrlListView_AddSubItem($ListView7, $i_ListView, $TempArray[1], 1)
_GUICtrlListView_AddSubItem($ListView7, $i_ListView, $TempArray[2], 2)
ElseIf $TempArray[0] = 3 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
$TempArray[2] = StringTrimRight($TempArray[2], 3)
$TempArray[2] = StringTrimLeft($TempArray[2], 5)
$TempArray[3] = StringTrimRight($TempArray[3], 1)
_GUICtrlListView_AddSubItem($ListView7, $i_ListView, $TempArray[1], 1)
_GUICtrlListView_AddSubItem($ListView7, $i_ListView, $TempArray[2], 2)
_GUICtrlListView_AddSubItem($ListView7, $i_ListView, $TempArray[3], 3)
EndIf
EndIf
$j += 1
$Temp = StringReplace($Array_Cinema[$i][$j], " ", ";", 0)
_GUICtrlListView_AddSubItem($ListView7, $i_ListView, $Temp, 4)
$i_ListView += 1
EndIf
Next
Case 8
GUICtrlSetData($lblAdresse_8, $String_Seperated[1])
If $String_Seperated[0] = 2 Then
GUICtrlSetData($lblTel_8, $String_Seperated[2])
EndIf
For $j = 2 To UBound($Array_Cinema, 2) - 1
If Not $Array_Cinema[$i][$j] = "" Then
_GUICtrlListView_AddItem($ListView8, $Array_Cinema[$i][$j])
$j += 1
$Temp = StringTrimLeft($Array_Cinema[$i][$j], 10)
If Not $Temp = "" Then
$TempArray = StringSplit($Temp, "- ", 1)
If $TempArray[0] = 1 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
_GUICtrlListView_AddSubItem($ListView8, $i_ListView, $TempArray[1], 1)
ElseIf $TempArray[0] = 2 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
$TempArray[2] = StringTrimRight($TempArray[2], 3)
$TempArray[2] = StringTrimLeft($TempArray[2], 5)
_GUICtrlListView_AddSubItem($ListView8, $i_ListView, $TempArray[1], 1)
_GUICtrlListView_AddSubItem($ListView8, $i_ListView, $TempArray[2], 2)
ElseIf $TempArray[0] = 3 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
$TempArray[2] = StringTrimRight($TempArray[2], 3)
$TempArray[2] = StringTrimLeft($TempArray[2], 5)
$TempArray[3] = StringTrimRight($TempArray[3], 1)
_GUICtrlListView_AddSubItem($ListView8, $i_ListView, $TempArray[1], 1)
_GUICtrlListView_AddSubItem($ListView8, $i_ListView, $TempArray[2], 2)
_GUICtrlListView_AddSubItem($ListView8, $i_ListView, $TempArray[3], 3)
EndIf
EndIf
$j += 1
$Temp = StringReplace($Array_Cinema[$i][$j], " ", ";", 0)
_GUICtrlListView_AddSubItem($ListView8, $i_ListView, $Temp, 4)
$i_ListView += 1
EndIf
Next
Case 9
GUICtrlSetData($lblAdresse_9, $String_Seperated[1])
If $String_Seperated[0] = 2 Then
GUICtrlSetData($lblTel_9, $String_Seperated[2])
EndIf
For $j = 2 To UBound($Array_Cinema, 2) - 1
If Not $Array_Cinema[$i][$j] = "" Then
_GUICtrlListView_AddItem($ListView9, $Array_Cinema[$i][$j])
$j += 1
$Temp = StringTrimLeft($Array_Cinema[$i][$j], 10)
If Not $Temp = "" Then
$TempArray = StringSplit($Temp, "- ", 1)
If $TempArray[0] = 1 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
_GUICtrlListView_AddSubItem($ListView9, $i_ListView, $TempArray[1], 1)
ElseIf $TempArray[0] = 2 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
$TempArray[2] = StringTrimRight($TempArray[2], 3)
$TempArray[2] = StringTrimLeft($TempArray[2], 5)
_GUICtrlListView_AddSubItem($ListView9, $i_ListView, $TempArray[1], 1)
_GUICtrlListView_AddSubItem($ListView9, $i_ListView, $TempArray[2], 2)
ElseIf $TempArray[0] = 3 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
$TempArray[2] = StringTrimRight($TempArray[2], 3)
$TempArray[2] = StringTrimLeft($TempArray[2], 5)
$TempArray[3] = StringTrimRight($TempArray[3], 1)
_GUICtrlListView_AddSubItem($ListView9, $i_ListView, $TempArray[1], 1)
_GUICtrlListView_AddSubItem($ListView9, $i_ListView, $TempArray[2], 2)
_GUICtrlListView_AddSubItem($ListView9, $i_ListView, $TempArray[3], 3)
EndIf
EndIf
$j += 1
$Temp = StringReplace($Array_Cinema[$i][$j], " ", ";", 0)
_GUICtrlListView_AddSubItem($ListView9, $i_ListView, $Temp, 4)
$i_ListView += 1
EndIf
Next
EndSwitch
$Tab_Count = $Tab_Count + 1
Next
_GUICtrlListView_EndUpdate(GUICtrlGetHandle($ListView0))
_GUICtrlListView_EndUpdate(GUICtrlGetHandle($ListView1))
_GUICtrlListView_EndUpdate(GUICtrlGetHandle($ListView2))
_GUICtrlListView_EndUpdate(GUICtrlGetHandle($ListView3))
_GUICtrlListView_EndUpdate(GUICtrlGetHandle($ListView4))
_GUICtrlListView_EndUpdate(GUICtrlGetHandle($ListView5))
_GUICtrlListView_EndUpdate(GUICtrlGetHandle($ListView6))
_GUICtrlListView_EndUpdate(GUICtrlGetHandle($ListView7))
_GUICtrlListView_EndUpdate(GUICtrlGetHandle($ListView8))
_GUICtrlListView_EndUpdate(GUICtrlGetHandle($ListView9))
EndFunc ;==>Find_Cinema
#EndRegion ### Func Find_Cinema ######################################################################

[/autoit]

nefas83

Hi und noch mals danke für eine Posts.

Ich hab eine neue Version hochgeladen ( ist zu finden im Post 1)

Dort habe ich das Designe mit den Tabs aufgegeben um eine höhere dynamik in das ganze zu bringen.

Als nächtes werde ich mal schauen ob ich das Monster von einem Array weg bekommen. Hab heute schon erste Gehversuche in Autoit mit ListArray's gemacht, unter C# sind die ein Traum
Würde mich weiterhin freuen wenn ihr eure Meinung postet und auch Verbesserungsvorschläge.

mfg

nefas