Beiträge von nefas83

nefas83

Hi,

nette Arbeit

Ich hätte eine kleine Anmerkung.

Und zwar wäre es vielleicht ganz gut wenn ein Beispiel dabei wäre wie die Felder mit der Soll Zeit und der Pausen Zeit ausgefüllt werden sollen.

Ich erhalte immer als Text "ERROR" wenn ich 7.00 und 0:45 eingeb.

Was vielleicht auch ganz schön wäre, ist wenn sich die Tabelle ändert wenn man im Kalender den Monat wechselt. Und vielleicht auch die Zeile gehightlightet wird je nach dem welcher Tag gewählt ist.

mach weiter so,

gruß nefas

nefas83

Hi,
also ich würde Interese an der OO exportierung anmelden.
Ich habe einen Editor für unsere Azubis geschrieben (ist aber leider noch nicht OpenSource da er rechtlich gesehen der Firma gehört) und dort würde ich gerne die möglichkeit einbauen, außer nach Word, auch nach Open Office zu exportieren.
Es gibt den einen oder anderen Azubi der Linux verwendet.

mfg

nefas

nefas83

Nette Sache.

Ich hätte hier vielleicht noch eine kleine Anmerkung was man hinzufügen könnte, bzw. wo du noch ein paar Infos bekommen könntest.

Es werden dort Infos angezeigt wie, Befölkerung, geographische Lage, Uhrzeit, etc etc.

Wolfram Alpha

und hier ein Beispiel mit Berlin

Wolfram Berlin

Gruß nefas

nefas83

Freut mich das ich helfen konnte

Ja das mit dem Flag wäre auch jetzt die Möglichkeit die mir spontan eingefallen wäre.

Super UDF auf jeden fall.

Gruß nefas

nefas83

Hi,

also ich hab jetzt die Zeile in die UDF eingefügt

[autoit]

WinMove($hWnd, "", _ ; Move GUI according to $sMode and $sSide.
$aScreen_Res[0] - (($h = -1) * ($m = -1) * ($aWPos[2] - 10)) _
+ (($h = 1) * (($h = 1) * $aScreen_Res[2] - (10 * ($m = -1)) - ($m <> -1) * $aWPos[2])) _
+ (($h = 0) * (($h = 0) * ($aScreen_Res[2] / 2) - ($aWPos[2] / 2))) _
, _
$aScreen_Res[1] - (($v = -1) * ($m = -1) * ($aWPos[3] - 10)) _
+ (($v = 1) * (($v = 1) * $aScreen_Res[3] - (10 * ($m = -1)) - ($m <> -1) * $aWPos[3])) _
+ (($v = 0) * (($v = 0) * ($aScreen_Res[3] / 2) - ($aWPos[3] / 2))) _
)
_ArrayDisplay($aScreen_Res) ;EDIT BY GRH FOR DEBUG

[/autoit]

Ergebnis:
[0] = -1280
[1] = 0
[2] = 2560
[3] = 1024

Auflösung je Desktop: 1280x1024
2x Monitore
Nebeneinander
Primär ist rechts.

nefas83

gefällt mir auch sehr gut, weiter so.

Kleine Anmerkung, wenn ein Multi-Monitor System am laufen ist und als Position "top" gewählt ist, hängt das Fenster gnau in der Mitte der zwei Monitore und ist somit nur zu Hälfte auf jedem Monitor.

Ist etwas unschön.
Bei "bottom" ist das gleiche.

Aber das "left" und "right" klappt super

gruß nefas

nefas83

Hi,

bei _Crypt_HashFile & _Crypt_HashData Überschrift sind die Überschriften vertauscht.

In Hilfe 3.3.4.0

Zitat

_Crypt_HashData
--------------------------------------------------------------------------------

Erstellt einen Datenhash mit einem speziellen Algorithmus.

Richtig:

Zitat

_Crypt_HashData
--------------------------------------------------------------------------------
Verschlüsselt einen String im festgelegten Algorithmus.

Das gleichet _Crypt_HashFile.

In Hilfe 3.3.4.0

Zitat

_Crypt_HashFile
--------------------------------------------------------------------------------
Verschlüsselt einen String im festgelegten Algorithmus.

Richtig:

Zitat

_Crypt_HashFile
--------------------------------------------------------------------------------
Erstellt einen Datenhash mit einem speziellen Algorithmus.

Sind halt einfach vertauscht

mfg
nefas

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

nefas83

Ah ok,

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

Aber sonst eine gute Idee.

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?

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

nefas83

Ups

hab es verbessert und in Post 1 angepasst.

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

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

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

nefas83

Hi,

ich hab hier eine kleine erweiterung für für die RichEditbox.

Ist entstanden bei einem aktuellen Projekt was ich gerade am vollenden bin und dachte, naja vielleicht brauch es ja der eine oder andere.

Der Funktion muss einmal das Handle für die entsprechende RichEditbox übergeben werden und zum anderen natürlich die maximale Zeilen Anzahl.

[autoit]

;===============================================================================
; Description: Beschränkt die RichEdit auf n Zeilen
; Parameter(s): $hRichEdit = Handle to the RichEdit
; $Limit = The Line Limit
; Requirement(s): GuiRichEdit.au3
; Return Value(s): keinen
; Author(s): nefas
;===============================================================================
Func _RichEdit_MaxLine($hRichEdit, $Limit = 0)
Local $LineCount = 0
If $Limit <> 0 Then
$LineCount = _GUICtrlRichEdit_GetLineCount($hRichEdit)
If $LineCount > $Limit Then
MsgBox(64, "Info", 'Max lines of ' & $Limit & ' is reached!')
_GUICtrlRichEdit_Undo($hRichEdit)
_GUICtrlRichEdit_SetScrollPos($hRichEdit, 1, 1)
EndIf
_GUICtrlRichEdit_EmptyUndoBuffer($hRichEdit)
EndIf
EndFunc ;==>_RichEdit_MaxLine

[/autoit]

Wie gesagt ist nix tolles.

mfg
nefas

nefas83

Hi,

ich hab mal wieder eine Frage zu RichEditbox.

Und zwar würde ich gerne erkennen ob es ein automatischer Zeilenumbruch war oder ob jemand die Enter-Taste gedrückt hat.

Also nicht falsch verstehen, ich will nicht zur Laufzeit ermitteln ob die Enter-Taste gedrückt wurde, sonder später wenn ich den Text auslese.

Enter wäre ja ein CRLF
aber wenn ich den Text aus dem RichEdit in die Zwischenablage kopier und bei NotePad++ einfüge wird der LF auch als CRLF angezeigt.

Kann ich das irgend wie sichtlich machen?

Ich hoffe das war jetzt nicht zu durcheinander

gruß nefas

nefas83

Hi,

ich hab mal wieder ein Problem mit der RichEditbox und zwar wollte ich den font ändern.

Wenn ich mit dem Befel

[autoit]

_GUICtrlRichEdit_SetFont($RichEdit_Montag, 10, "Times")

[/autoit]

den font änder und mit

[autoit]

$Temp_Array_Font = _GUICtrlRichEdit_GetFont($RichEdit_Montag)
_ArrayDisplay($Temp_Array_Font)

[/autoit]

überprüfe, stimmt es auch.

Aber wenn ich dann später Text einfüge über

[autoit]

_GUICtrlRichEdit_SetText($RichEdit_Montag, @CRLF & @CRLF & @CRLF & @CRLF & " BITTE WARTEN!")

[/autoit]

und mit

[autoit]

$Temp_Array_Font = _GUICtrlRichEdit_GetFont($RichEdit_Montag)
_ArrayDisplay($Temp_Array_Font)

[/autoit]

überprüfe ist es wieder "MS Shell Dlg" und Schriftgröße "8.25"

Vielleicht kennt einer das Problem und kann mir helfen.

EDIT:

Ich hab festgestellt das die Einstellungen am Font bestehen bleiben wenn ich

[autoit]

_GUICtrlRichEdit_InsertText($hWnd, $sText)

[/autoit]

verwende, aber da gibt es natürlich das Problem das ich immer erst den ganzen alten Text löschen muss.

mfg

nefas

nefas83

Gute Idee,

werd es gleich mal testen.

Auf die einfachsten Sachen kommt man manchmal nicht

nefas83

Hi,

das liegt daran das du erst garnicht bis zum ExitLoop kommst.

Wenn du das ganze gestartet hast läuft der permanend in der While schlife

[autoit]

While 1
$msg = GUIGetMsg()
Switch $msg
Case $Button2
Exit
Case $Button1
While 1
;Hier bleibt er drin und kommt nicht mehr raus
WinWaitActive ("Test")
send ("{F1}")
sleep ($Input1)
;Bis hier hin
WEnd
Case $Button5
; Wird nicht mehr ausgeführt.
ExitLoop
EndSwitch
WEnd

[/autoit]

Du könntest es aber so machen

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

Dim $Run = 0

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

While 1
$msg = GUIGetMsg()
Switch $msg
Case $Button2
Exit
Case $Button1
$Run = 1
Case $Button5
$Run = 0
EndSwitch

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

If $Run = 1 Then
WinWaitActive ("Test")
send ("{F1}")
sleep ($Input1)
Endif

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

WEnd

[/autoit]

Beiträge von nefas83

Arbeitsplaner

Open Office Plugin Update

Stadtanzeiger

WinSlide UDF

WinSlide UDF

WinSlide UDF

_Crypt_HashFile & _Crypt_HashData Überschrift vertauscht

Kino Programm deiner Stadt V2

Kino Programm deiner Stadt V2

Kino Programm deiner Stadt V2

Kino Programm deiner Stadt V2

Kino Programm deiner Stadt V2

Kino Programm deiner Stadt V2

Kino Programm deiner Stadt V2

Kino Programm deiner Stadt V2

RichEdit Zeilen begrenzen UDF

RichEdit Wie erkennen ob es ein Automatischer Zeilenumbruch war?

RichEdit font dauerhaft ändern

RichEdit Textfarbe zurück setzten

While Schleife beenden