unkt garnet... is IMMER grün bei mir, egal welche uhrzeit ich nehme (windows zeit geändert)
joa bei mir auch...kein plan warum..farbe müsste sich ja schon bei der sekunden anzahl ändern.
also die Farbe ändert sich bei mir nicht
@huggy, snoozer, leviathan
Habt ihr evtl. Vista drauf? Sonst fällt mir grad nicht ein, warum die Farbe nicht funzt.
Mir war grad mal so... 
#include <GUIConstants.au3>
Opt("GUIOnEventMode", 1)
Dim $hour = @HOUR, $min = @MIN, $sec = @SEC
$SteelBlue = 0x4682B4
$White = 0xFFFFFF
$Chartreuse = 0x7FFF00
$Lime = 0x00FF00
$LimeGreen = 0x32CD32
$YellowGreen = 0x9ACD32
$Gold = 0xFFD700
$Goldenrod = 0xDAA520
$Orange = 0xFFA500
$DarkOrange = 0xFF8C00
$Coral = 0xFF7F50
$Salmon = 0xFA8072
$Tomato = 0xFF6347
$Red = 0xFF0000
$Time = GUICreate("Time", 100, 285, -1, -1, BitOR($WS_SYSMENU,$WS_CAPTION))
GUISetOnEvent($GUI_EVENT_CLOSE, "Close")
GUISetBkColor($SteelBlue)
$prHour = GUICtrlCreateProgress(15, 10, 20, 250, BitOR($PBS_SMOOTH,$PBS_VERTICAL))
$prMin = GUICtrlCreateProgress(40, 10, 20, 250, BitOR($PBS_SMOOTH,$PBS_VERTICAL))
$prSec = GUICtrlCreateProgress(65, 10, 20, 250, BitOR($PBS_SMOOTH,$PBS_VERTICAL))
$lHour = GUICtrlCreateLabel("lHour", 15, 265, 20, 17, $SS_CENTER)
GUICtrlSetColor(-1, $White)
GUICtrlSetFont(-1, 10, 600)
GUICtrlCreateLabel(":", 36, 265, 4, 17, $SS_CENTER)
GUICtrlSetColor(-1, $White)
GUICtrlSetFont(-1, 10, 600)
$lMin = GUICtrlCreateLabel("lMin", 40, 265, 20, 17, $SS_CENTER)
GUICtrlSetColor(-1, $White)
GUICtrlSetFont(-1, 10, 600)
GUICtrlCreateLabel(":", 61, 265, 4, 17, $SS_CENTER)
GUICtrlSetColor(-1, $White)
GUICtrlSetFont(-1, 10, 600)
$lSec = GUICtrlCreateLabel("lSec", 65, 265, 20, 17, $SS_CENTER)
GUICtrlSetColor(-1, $White)
GUICtrlSetFont(-1, 10, 600)
GUISetState(@SW_SHOW)
GUICtrlSetData($prHour, @HOUR*100/24)
GUICtrlSetData($lHour, @HOUR)
GUICtrlSetData($prMin, @MIN*100/60)
GUICtrlSetData($lMin, @MIN)
GUICtrlSetData($prSec, @SEC*100/60)
GUICtrlSetData($lSec, @SEC)
_HourColor()
_MinColor()
_SecColor()
While 1
Sleep(100)
If @SEC <> $sec Then
$sec = @SEC
GUICtrlSetData($prSec, @SEC*100/60)
GUICtrlSetData($lSec, @SEC)
_SecColor()
EndIf
If @MIN <> $min Then
$min = @MIN
GUICtrlSetData($prMin, @MIN*100/60)
GUICtrlSetData($lMin, @MIN)
_MinColor()
EndIf
If @HOUR <> $hour Then
$hour = @HOUR
GUICtrlSetData($prHour, @HOUR*100/24)
GUICtrlSetData($lHour, @HOUR)
_HourColor()
EndIf
WEnd
Func Close()
Exit
EndFunc
Func _SecColor()
Select
Case @SEC < 6
GUICtrlSetColor($prSec, $Chartreuse)
Case (@SEC > 5) And (@SEC < 11)
GUICtrlSetColor($prSec, $Lime)
Case (@SEC > 10) And (@SEC < 16)
GUICtrlSetColor($prSec, $LimeGreen)
Case (@SEC > 15) And (@SEC < 21)
GUICtrlSetColor($prSec, $YellowGreen)
Case (@SEC > 20) And (@SEC < 26)
GUICtrlSetColor($prSec, $Gold)
Case (@SEC > 25) And (@SEC < 31)
GUICtrlSetColor($prSec, $Orange)
Case (@SEC > 30) And (@SEC < 36)
GUICtrlSetColor($prSec, $Goldenrod)
Case (@SEC > 35) And (@SEC < 41)
GUICtrlSetColor($prSec, $DarkOrange)
Case (@SEC > 40) And (@SEC < 46)
GUICtrlSetColor($prSec, $Coral)
Case (@SEC > 45) And (@SEC < 51)
GUICtrlSetColor($prSec, $Salmon)
Case (@SEC > 50) And (@SEC < 56)
GUICtrlSetColor($prSec, $Tomato)
Case Else
GUICtrlSetColor($prSec, $Red)
EndSelect
EndFunc
Func _MinColor()
Select
Case @MIN < 6
GUICtrlSetColor($prMin, $Chartreuse)
Case (@MIN > 5) And (@MIN < 11)
GUICtrlSetColor($prMin, $Lime)
Case (@MIN > 10) And (@MIN < 16)
GUICtrlSetColor($prMin, $LimeGreen)
Case (@MIN > 15) And (@MIN < 21)
GUICtrlSetColor($prMin, $YellowGreen)
Case (@MIN > 20) And (@MIN < 26)
GUICtrlSetColor($prMin, $Gold)
Case (@MIN > 25) And (@MIN < 31)
GUICtrlSetColor($prMin, $Orange)
Case (@MIN > 30) And (@MIN < 36)
GUICtrlSetColor($prMin, $Goldenrod)
Case (@MIN > 35) And (@MIN < 41)
GUICtrlSetColor($prMin, $DarkOrange)
Case (@MIN > 40) And (@MIN < 46)
GUICtrlSetColor($prMin, $Coral)
Case (@MIN > 45) And (@MIN < 51)
GUICtrlSetColor($prMin, $Salmon)
Case (@MIN > 50) And (@MIN < 56)
GUICtrlSetColor($prMin, $Tomato)
Case Else
GUICtrlSetColor($prMin, $Red)
EndSelect
EndFunc
Func _HourColor()
Select
Case @HOUR < 3
GUICtrlSetColor($prHour, $Chartreuse)
Case (@HOUR > 2) And (@HOUR < 5)
GUICtrlSetColor($prHour, $Lime)
Case (@HOUR > 4) And (@HOUR < 7)
GUICtrlSetColor($prHour, $LimeGreen)
Case (@HOUR > 6) And (@HOUR < 9)
GUICtrlSetColor($prHour, $YellowGreen)
Case (@HOUR > 
And (@HOUR < 11)
GUICtrlSetColor($prHour, $Gold)
Case (@HOUR > 10) And (@HOUR < 13)
GUICtrlSetColor($prHour, $Orange)
Case (@HOUR > 12) And (@HOUR < 15)
GUICtrlSetColor($prHour, $Goldenrod)
Case (@HOUR > 14) And (@HOUR < 17)
GUICtrlSetColor($prHour, $DarkOrange)
Case (@HOUR > 16) And (@HOUR < 19)
GUICtrlSetColor($prHour, $Coral)
Case (@HOUR > 18) And (@HOUR < 21)
GUICtrlSetColor($prHour, $Salmon)
Case (@HOUR > 20) And (@HOUR < 23)
GUICtrlSetColor($prHour, $Tomato)
Case Else
GUICtrlSetColor($prHour, $Red)
EndSelect
EndFunc
Da war mein Browserfenster noch nicht aktualisiert. 
oder so:
#include <GUIConstants.au3>
$h_maingui = GUICreate("FB 0.00A for GW", 320, 70, -1, -1)
$h_progressbar = GUICtrlCreateProgress(10, 10, 300, 20)
$label = GUICtrlCreateLabel('', 45, 45, 230, 17, $SS_CENTER)
GUISetState(@SW_SHOW, $h_maingui)
$f_readvalue = 25.8
GUICtrlSetData($h_progressbar, $f_readvalue)
GUICtrlSetData($label, $f_readvalue)
While 1
$a_msg = GUIGetMsg(1)
Select
Case $a_msg[0] == $GUI_EVENT_CLOSE
ExitLoop 1
EndSelect
WEnd
GUIDelete($h_maingui)
Exit(0)
oder die Sparversion:
[autoit]$f_readvalue = 25.8
ProgressOn("FB 0.00A for GW",'')
ProgressSet($f_readvalue,'',$f_readvalue)
Sleep(3000)
ProgressOff()
Original von fry2k
Ja aber wir wissen doch alle um was es geht. OUs hat den Wert X und wir benötigen die selectierung.
sry wenn ich zu grob war....
Das script funzt übrigens so schon ganz gut, ihr könnt es ja mal auf nem testserver testen da versteht ihr was ich meine. thx
OK, mehr als bitten kann ich dich nicht. Und deine Kenntnis dessen, was "wir" wissen würde ich nochmals überdenken, wenn ich um Hilfe bitte.
[Blockierte Grafik: http://home.arcor.de/bugfix/icon_bugfix1.gif]
Erweiterung eingebaut.
Ich habe den optionalen Parameter $REVERSE eingebaut.
Damit kann die zweite Dimension entgegengesetzt zur Sortierrichtung der ersten sortiert werden.
Größe der 2.ten Dimension jetzt nicht mehr limitiert.
Datei im ersten Post.
sleep(20) da geht die auslastung hoch gibs nen extra befehl dafür?
Auch wenn es schon hundert mal im Forum gesagt wurde (auch bereits in diesem Thread 
Mit Sleep() geht die CPU-Last runter und nicht hoch !!
Einmalig alle Koordinaten der Schrift ermitteln. Wenn diese einfarbig ist, kannst du das komfortabel hiermit machen. Schrittweite dabei auf 1 aber den Scanbereich begrenzen (du weißt ja grob, wo du suchen mußt).
Dann mußt du vom ersten gefundenen Pixel ausgehend, alle anderen Werte relativ darstellen.
z.B. Werte X,Y: (120,20 / 121,20 / 122,20 / 121,21)
als relationale Werte
120,20 = x,y
121,20 =x+1,y
122,20 = x+2,y
121,21 = x+1,y+1
Dann legst du einen variablen Suchbereich für den Start fest. Kannst du ja ermitteln um wieviel Pixel der Bereich schwankt.
Für alle mögliche Startpunkte führst du dann einen Bereichsscan aus und vergleichst das Ergebnis mit der relativen Vorgabe.
Ist völlige Übereinstimmung, hast du deinen Text.
Falls die Schrift mehrfarbig ist, ist es wesentlich aufwändiger. Du müßtest dann jeden Farbpunkt einzeln auf Existenz scannen. Und zu den relativen Koordinaten als 3. Komponente die Farbe hinzufügen.
jetzt droth er mir damit das ich das ganze zahlen soll obwohl ich noch kein Cent geshen habe und er schon alle codes hat
Ich hoffe mal, du hast einen schriftlichen Vertrag. Dann sollte darin so etwas wie Leistungsumfang, Abgabedatum, Zahlungsmodalitäten, Verzugsleistungen enthalten sein.
Hast du keinen Vertrag hast du die Ar..karte, weil du nachweisen mußt, dass du eine Leistung erbracht hast.
Allerdings kann er dir auch keine Verzugsforderungen aufhalsen.
Mache NIE etwas ohne schriftlichen Vertrag! Und Erhalt von Leistungen immer schön quittieren lassen!
Hallo Spinne
auch von mir die herzlichsten Glückwünsche zum Abschluß des statistischen Lebens-Fünftels 
Und denk dran beim Feiern - Allolohl erst ab 16.
Liefert den Wert 4 zurück... Um eine Checkbox aber auf "True" zu setzen brauche ich den Befehl
GUICtrlSetState($myCheckBox,$GUI_CHECKED)
Na dann halt:
$state = INIRead(...)
If $state = 4 Then GUICtrlSetState($myCheckBox,$GUI_CHECKED)
die funktion Unload kennt mein VB nich
Sehr seltsam, was hast du installiert? 
Kenne kein VB, bei dem "Unload Me" verweigert wird.
Der einfachste Weg z.B. bei Notepad:
Benenne die notepad.exe um in notepad.exe.org.
Kopiere dann notepad++.exe in das Verzeichnis und bennene sie um zu notepad.exe
Ist zwar 'ne Weile her, aber vielleicht krieg ichs noch zusammen.
Erst mal noch zum Ablauf:
- Aufruf Form1
- Über Interaktion mit Form1 Aufruf Form2
UND dabei soll Form1 ausgeblendet werden
- Wenn Form2 geschlossen wird - Form1 wieder einblenden
Hab ich das so richtig verstanden ?
NEUE VERSION von Carom_Again (Carom_Again.zip )
Hab mich nun mal ran gemacht und die Änderungen eingearbeitet.
Da im neuen Outfit die Position des Practice-Buttons verändert ist, wurde dies angepaßt.
Auf Einblendungen der Hilfefunktionen, die man per Hand mit F1 und F4 abschalten muß, prüfe ich 6 Sekunden nach Programmstart per PixelSearch. Je nachdem, welches Hilfesymbol eingeblendet ist, wird automatisch F1 und/oder F4 gesendet und somit ausgeblendet.
carom_again
#NoTrayIcon
AutoitSetOption("MouseCoordMode", 0)
Dim $state, $aktiv, $butt_x, $butt_y, $var, $path, $game, $c_game, $key_game
Dim $room, $c_room, $key_room, $i, $t1, $t2, $delay, $Spiel
If FileExists(@ScriptDir & "\" & "carom_again.INI") Then
$var = IniRead(@ScriptDir & "\" & "carom_again.INI", "set", "done", "")
If $var = 0 Then
MsgBox(16, "Achtung", "Die 'carom_again_settings' müssen zumindest einmal ausgeführt" & @LF & @LF & _
"und an deine Installation angepaßt werden." & @LF & @LF & @LF & @LF & "Das Einstellungsprogramm wird jetzt aufgerufen.")
Run(@ScriptDir & "\" & "carom_again_settings.exe")
If @error Then
MsgBox(16, "Achtung!", "Das Einstellungsprogramm: 'carom_again_settings.exe' ist nicht im Installationspfad: " & _
@ScriptDir & "\" & "vorhanden!" & @LF & @LF & "Das Programm wird jetzt beendet.")
Exit
EndIf
While $var = 0
Sleep(250)
$var = IniRead(@ScriptDir & "\" & "carom_again.INI", "set", "done", "")
WEnd
EndIf
$path = IniRead(@ScriptDir & "\" & "carom_again.INI", "path", "current", "")
$game = IniReadSection(@ScriptDir & "\" & "carom_again.INI", "game")
$c_game = $game[10][1]
$room = IniReadSection(@ScriptDir & "\" & "carom_again.INI", "room")
$c_room = $room[9][1]
$delay = IniRead(@ScriptDir & "\" & "carom_again.INI", "set", "delay", "")
Else
MsgBox(16, "Achtung ! Fehlende Datei!", "Die Datei: <carom_again.INI> ist nicht im Ordner: <" & @ScriptDir & "\" & "> enthalten!" _
& @LF & @LF & "Ohne diese Datei kann das Programm nicht ausgeführt werden!")
Exit
EndIf
HotKeySet("!y", "_CaromStart")
$aktiv = 0
For $i = 1 To $game[0][0]-1
If $game[$i][0] = $c_game Then
$key_game = $game[$i][1]
ExitLoop
EndIf
Next
For $i = 1 To $room[0][0]-1
If $room[$i][0] = $c_room Then
$key_room = $room[$i][1]
ExitLoop
EndIf
Next
Select
Case $key_game = 3
$t1 = "3-Cushion"
Case $key_game = 4
$t1 = "4-Ball"
Case $key_game = 6
$t1 = "6-Ball"
Case $key_game = 8 Or $key_game = "e"
$t1 = "8-Ball"
Case $key_game = 9
$t1 = "9-Ball"
Case $key_game = "c"
$t1 = "CardBall"
Case $key_game = "r"
$t1 = "Rotation"
Case $key_game = "s"
$t1 = "Short-Snooker"
Case $key_game = "n"
$t1 = "Normal-Snooker"
EndSelect
Switch $key_room
Case "u"
$t2 = "Underground"
Case "j"
$t2 = "Japanese"
Case "k"
$t2 = "Korean"
Case "m"
$t2 = "Millennium"
Case "c"
$t2 = "Christmas"
Case "e"
$t2 = "Event"
Case "a"
$t2 = "Antique"
Case "{PGDN}"
$t2 = "CaromBeach"
EndSwitch
If StringInStr($path, "carom.exe") Then
$Spiel = "Standard"
Else
$Spiel = "Full Practice"
EndIf
MsgBox(64, "Hinweis", "Spiel: " & $t1 & @LF & @LF & _
"Raum: " & $t2 & @LF & @LF & _
"Modus: " & $Spiel & @LF & @LF & @LF & _
"Nach Beendigung des Spiels, kann mit der Tastenkombination:" & @LF & @LF & "< ALT > + < y >" & @LF & @LF & _
"sofort ein neues Spiel begonnen werden." & @LF & @LF & @LF & @LF & @LF & @LF & _
"eMail: [email='bug_fix@web.de'][/email]" & @LF & @LF & "Created with AutoIt3")
While 1
Sleep(500)
$state = WinGetState("Carom3D", "")
Select
Case $state = 0 And $aktiv = 1
ExitLoop
Case $aktiv = 0 ; Practice Mode
Run($path)
If @error Then
MsgBox(16, "Achtung", "Programmpfad der Anwendung: " & $path & " ist nicht vorhanden!")
Exit
EndIf
WinWaitActive("Carom3D")
$aktiv = 1
Sleep(1000)
_CaromStart()
EndSelect
WEnd
Exit
Func _CaromStart()
BlockInput(1)
If StringInStr($path, "carom.exe") Then
MouseClick("left",520,180,1,0)
Else
MouseClick("left",492,128,1,0)
EndIf
If $key_game = 8 Or $key_game = "e" Then
Send("8e")
Else
Send($key_game)
EndIf
Send("{TAB}")
Send($key_room)
Send("{ENTER}")
BlockInput(0)
Sleep($delay)
If StringInStr($path, "carom.exe") Then ; wenn nicht full_praxis_modus
If _ScanF1() Then Send("{F1}")
If _ScanF4() Then Send("{F4}")
EndIf
EndFunc
Func _ScanF1()
Local $left, $top, $right, $bottom
Switch @DesktopWidth
Case 800
$left = 696
$top = 108
$right = 788
$bottom = 204
Case 1024
$left = 920
$top = 120
$right = 1012
$bottom = 208
Case 1280
$left = 1176
$top = 108
$right = 1268
$bottom = 208
EndSwitch
PixelSearch($left,$top,$right,$bottom,0x00314A,0,4)
If Not @error Then Return True
EndFunc
Func _ScanF4()
Local $left, $top, $right, $bottom
Switch @DesktopWidth
Case 800
$left = 8
$top = 156
$right = 164
$bottom = 320
Case 1024
$left = 8
$top = 156
$right = 164
$bottom = 304
Case 1280
$left = 8
$top = 156
$right = 164
$bottom = 324
EndSwitch
PixelSearch($left,$top,$right,$bottom,0x00314A,0,4)
If Not @error Then Return True
EndFunc
EDIT: Wär toll, wenn es mal jemand auf seinem PC testen kann. Habe nämlich (nur in der kompilierten Version) manchmal den Effekt, dass beim Neustart mit "Alt+y" ein Zustand eintritt, als ob nur "ALTDOWN" gesendet ist. Hebt sich nach einigen Sekunden auf, manchmal auch gar nicht. Denke aber, das ist hardwareabhängig. Meine Kiste ist einfach zu alt.
Ich hab mal in meinen Spam-Ordner geschaut und folgendes entdeckt:
Absender: Anwaltskanzlei Tank <anwalt@forderungseinzug.de>
lt. Header: from [83.71.83.198] (helo=83-71-83-198.b-ras1.chf.cork.eircom.net)
Betreff: Mahnung AZ: 628641/08
Body:
Anwaltskanzlei Tank
RA Olaf Tank
Rheiner Landstraße 19749078 Osnabrück
Aktenzeichen: 522760/61
Osnabrück, den 21.05.2007Bitte geben Sie Ihr Aktenzeichen bei jeglichem Schriftverkehr und Zahlungen immer an.
Sehr geehrte Kunde,
hiermit zeige ich die Interessenvertretung der Firma Andreas & Manuel Schmidtlein GbR, Vor der Hube 3, D 64572 Büttelborn an. Ordnungsgemäße Bevollmächtigung wird anwaltlich versichert. Meine Mandantschaft macht gegen Sie folgende Forderung geltend:
Rechnung vom 29.04.2007 aus Dienstleistungsvertrag mit der Rechnungsnummer R951181 für die Anmeldung vom 29.04.2007 um 14:51 Uhr auf der Internetseite P2P-heute.com mit folgender Anmelde-IP: 217.444.203.03.
Sie schulden meiner Mandantschaft daher 697,00 EUR. Da Sie sich in Verzug befinden, sind Sie gegenüber meiner Mandantschaft verpflichtet, die durch meine Tätigkeit entstandenen Gebühren zu erstatten.
Das Originalrechnung finden Sie im Anhang als signierte Word Datei.
Bitte behalten Sie das Original Rechnung unbedingt für Ihre Unterlagen.Liquidation:
1,3 Geschäftsgebühr, Nr. 2300 VV 243,50 EUR
Auslagenpauschale, Nr. 7002 VV 5,50 EUR
Gesamtsumme 252,00 EUR
Der von Ihnen zu zahlende Gesamtbetrag beläuft sich somit auf 913,00 EUR.
Ich fordere Sie auf, den Gesamtbetrag, innerhalb einer Frist von 10 Tagen, also bis zum
29.05.2007 (hier eingehend)
auszugleichen. Bitte überweisen Sie diesen Betrag auf das unten angegebene Konto. Sollte der Gesamtbetrag nicht fristgerecht eingehen, werde ich meiner Mandantschaft empfehlen, die Forderung ohne weitere außergerichtliche Ankündigung, gerichtlich geltend zu machen, wodurch weitere Kosten zu Ihren Lasten entstehen.
Wir möchten in diesem Zusammenhang auf die bereits ergangenen Urteile verweisen, welche Sie auf der Internetseite https://autoit.de/www.forderungseinzug.de einsehen können.
Bei der Anmeldung auf oben genannter Internetseite wurde die zu diesem Zeitpunkt übermittelte IP-Adresse gespeichert. Die IP-Adresse ermöglicht den Strafverfolgungsbehörden, im Falle einer strafrechtlichen Ermittlung, die Identifikation des PC's, der zum Zeitpunkt der Anmeldung genutzt wurde.
Als weitere Sicherheitsinstanz ist auf oben genannter Internetseite das Geburtsdatum des Users eingegeben worden. Sollte sich bei einer weiteren überprüfung der Daten herausstellen, dass ein falsches Geburtsdatum eingegeben wurde, ist von einem Betrugsdelikt auszugehen. In diesem Fall hätte sich eine gegebenenfalls minderjährige Person eine Leistung erschlichen, die ihr nicht hätte bereitgestellt werden dürfen. Hier behalte ich mir im Namen meiner Mandantschaft die Erstattung einer Strafanzeige vor. Die dabei anfallenden Kosten und Auslagen sind gegebenenfalls gegen Sie geltend zu machen.
Mit freundlichen Grüßen
Olaf Tank
RechtsanwaltAnwaltskanzlei Tank
RA Olaf Tank
Postfach 6251
49078 Osnabrück
Tel: 0541 34 97 70 0
Fax: 0541 34 97 70 77
anwalt@forderungseinzug.deBankverbindung Ausland: Postbank Hannover IBAN DE06 2501 0030 0077 6673 07, BIC: PBNKDEFF
Bankverbindung Deutschland: Postbank Hannover Kontonummer: 77 667 307, BLZ 250 100 30
Bitte geben Sie als Zahlungsempfänger unbedingt RA Olaf Tank an und Ihr Aktenzeichen als Verwendungszweck.
Anhang: Original_invoice.rar
Hab den Anhang natürlich nicht geöffnet. Aber wie ich lt. [Blockierte Grafik: http://home.arcor.de/bugfix/google.gif] erfahren habe, ist ein Trojaner enthalten.
Das ist doch dynamisch.
Und gerade deswegen brauche ich mal mehr als nur 2 Daten.
Es gibt sicher mehrere Lösungswege. Um zu entscheiden, welchen man einschlägt, ist es von entscheidender Bedeutung die Struktur zu kennen.
Wenn es z.Bsp. so aussieht:
-bla
|
--bla1
|
-bla1_1
-bla1_2
--bla2
|
-bla2_1
-bla2_2
-bum
|
--bum1dann ist es recht einfach, weil jedes SubItem, dass auch als 'ParentItem' für SubSubItems gilt, namentlich voll in den SubSubItems enthalten ist.
Und aus diesem kühlen Grunde (boah, was'n Wortspiel bei der Hitze ) brauche ich einfach mehr Text.
Die Versionsnummer ist nur heute mal nicht sichtbar.
Sonst IMMER. :]
GUICtrlCreateCombo ("", 10,10)
$alle_files = _FileListToArray("S:\", "*.htm*", 1)
For $n = 1 To UBound($alle_files) - 1
$filePath[$n] = "S:\" & $alle_files[$n]
_FileReadToArray($filePath[$n] , $Input)
For $i = 1 To $Input[0]
$titel = _StringBetween($Input[$i], '<title>', '</title>')
If Not @error And $titel[0] <> '' Then
_GUICtrlComboAddString($Combo,$titel[0])
EndIf
Next
Next
Da ist dein Fehler: $filePath ist KEIN Array. Also darfst du diese Variable auch nicht als Array verwenden.
Also so:
[autoit]GUICtrlCreateCombo ("", 10,10)
$alle_files = _FileListToArray("S:\", "*.htm*", 1)
For $n = 1 To UBound($alle_files) - 1
$filePath = "S:\" & $alle_files[$n]
_FileReadToArray($filePath, $Input)
For $i = 1 To $Input[0]
$titel = _StringBetween($Input[$i], '<title>', '</title>')
If Not @error And $titel[0] <> '' Then
_GUICtrlComboAddString($Combo,$titel[0])
EndIf
Next
Next
Das ist zu wenig Text
Aus 2 Zeilen kann ich nicht ersehen, wie es dann bei den anderen aussieht.
Die Struktur muß ersichtlich werden. Heißt der nächste Eintrag "test2" ?
Und wie heißen die anderen ?