#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 ##########################################################################

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

#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 #######################################################################

GUICtrlSetState($radio_Heute, $GUI_CHECKED)

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

#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 #########################################################################

#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))

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

		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


		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)

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


;~ 		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

				$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

			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

			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

			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

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

#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))

	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],"&nbsp;",";",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

				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],"&nbsp;",";",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

				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],"&nbsp;",";",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

				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],"&nbsp;",";",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],"&nbsp;",";",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],"&nbsp;",";",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],"&nbsp;",";",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],"&nbsp;",";",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],"&nbsp;",";",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],"&nbsp;",";",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 ###################################################################