Beiträge von BugFix

Zitat

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

dann 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:

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 ?

Zitat

Und jeztzt muss eine sortierung erfolgen nach 1.ou dann die dazugehörige unter ou und so weiter.

Genau das meinte ich ja, du mußt dein Skript umbauen.
- Alle ermittelten Objekte zwischenspeichern ($Array)
- OU's und Unter-OU's selektieren ==> ich weiß nicht wie die Struktur ist, ob über den Namen die entsprechenden Zugehörigkeiten erkennbar sind.
Ist sicher etwas aufwendig, aber wenn zusammengehörige OU's auch gleiche Namensbestandteile haben sollte das machbar sein.
- Erst dann TreeviewItems erstellen.

Zeig doch mal ein paar Bsp.-Namen, damit man sich eine Vorstellung machen kann.

Ich denke, wir sollten diesen Thread nicht als einseitige Unterhaltung nutzen. Zumal der Threadstarter nicht reagiert.
Hoffe auf euer Verständnis, dass ich hier schließe.

Zitat

Original von schandor
besten Dank für die schnelle antwort,
ich habe aber mehrere Dateien _FileListToArray("S:\", "*.htm*", 1)
sagen wir mal 20 stück, und ich möchte von jeder datei
den titel auslesen sodas ich praktisch 20 titel im combo-feld zur auswahl habe.

Na genau das machst du doch. Hast du es nicht getestet?

_FileReadToArray($filePath, $Input)

liest die gesamte Seite ein.

For $i = 1 To $Input[0]

arbeitet den Inhalt zeilenweise ab.

$titel = _StringBetween($Input[$i], '<title>', '</title>')
If Not @error And $titel[0] <> '' Then
_GUICtrlComboAddString($Combo,$titel[0])
EndIf

selektiert den Pfad mit _StringBetween und sofern vorhanden wird in der If-Schleife dieser in die ComboBox eingetragen.
Das wird mit allen Zeilen wiederholt.

Oder was möchtest du tun?

Send("^l")

Wenn "test1" als SubItem von "test" erscheinen soll, dann muß es auch als solches erstellt werden. Mußt du wahrscheinlich die Erstellungsroutine etwas umbauen.

$Item = GUICtrlCreateTreeViewItem("test", $treeview)
$SubItem = GUICtrlCreateTreeViewItem("test1", $Item)

Nur mal ein Gedanke.
Wenn du mit VB gezielt Werte in adressierten Speicher schreiben kannst, dann kannst du sie in Autoit per _MemoryRead( ) [UDF] auslesen.

Zitat

Original von Dr.Galvany
ups, bist du schnell smile

Tja, bei uns kommt die Feuerwehr zum Lernen!!

Wieso ? Funzt doch einwandfrei. Wenn das Laufwerk nicht existiert wird Then... ausgeführt.

" $a &= 'x' " bedeutet dasselbe wie: " $a = $a & 'x' "

Zitat

kommt als ergebnis nur a_found heraus, also 1 variable, nicht 2

$a_found ist ein Array (Prüfung: If IsArray($a_found) == 1 Then ).
Dort sind alle gefundenen Elemente enthalten.

Du willst ja nur auslesen, sehe ich grade. Da ist es völlig egal wie deine Items heißen. Das geht so:

; Entweder
;..
$msg = GUIGetMessage()
;..
Case $msg = $button
$h_item = GUICtrlSendMsg($treeview, $TVM_GETNEXTITEM, $TVGN_CARET, 0)
MsgBox(0,"", _GUICtrlTreeViewGetText($treeview, $h_item)
;
;
; ODER OnEvent Mode
;
Func _TreeViewClick()
$h_item = GUICtrlSendMsg($treeview, $TVM_GETNEXTITEM, $TVGN_CARET, 0)
MsgBox(0,"", _GUICtrlTreeViewGetText($treeview, $h_item)
EndFunc

$OUtree_1 = GUICtrlCreateTreeViewItem (""&@LogonDNSDomain,$treeview)

Erstelle die ID's der TreeViewItems in einem Array, dann hast du die Anzahl, völlig egal wieviel Einträge erstellt werden.
2 Varianten
- entweder definierst du ein Array mit einer festen Größe (z.B. 500 als max. Userzahl)
oder
- du änderst die Arraygröße bei jedem neuen Eintrag mit ReDim

Ich empfehle die erste Variante, sie ist die schnellere.
Also:

Dim $arUserItem[500]
$arUserItem[0] = 0 ; Zähler für die Anzahl der Items führen
;...
;...
; jetzt statt: $OUtree_1 = GUICtrlCreateTreeViewItem (""&@LogonDNSDomain,$treeview)
$arUserItem[$arUserItem[0]+1] = GUICtrlCreateTreeViewItem (""&@LogonDNSDomain,$treeview)
$arUserItem[0] += 1 ; Zähler erhöhen

Hmm, könnte auch die GraKa Probleme machen (oder deren Speicher).
Check mal folgendes:
Falls du PCI-Grafikkarte hast, deinstalliere die Treiber restlos.
Halte die aktuellen Treiber bereit.
Steck die Karte in einen anderen PCI-Slot und installiere die neuen Treiber.

Tipp:
Wenn du mehrere Speicherriegel hast, überprüfe sie einzeln auf der ersten Bank (die anderen solange rausnehmen).
Falls ein Boardproblem besteht bekommst du sonst evtl. bei intakten Speichern Fehlermeldungen. (hab ich mal ewig gesucht, bis ich die Ursache gefunden hatte)

Das GUICtrlCreateMenu erzeugt nur einen Korpus der Menu-Items aufnimmt. Und nur diese bringen ein Ereignis, das ausgewertet werden kann.
Also brauchst du immer diese Form:

$filemenu = GUICtrlCreateMenu ("&File")
$fileitem = GUICtrlCreateMenuitem ("Open",$filemenu)

Möchte hier auch nochmal huggys Aussage bekräftigen.

Bitte wirklich nur Skripte ins Skriptforum stellen, die mehr sind als eine Rechenoperation oder das Umsetzen von grundlegenden Autoit Funktionen.

Deshalb ==> verschoben.

Zitat

Zb mit unzip.exe (so heißt das doch oO)

Das ist ja der Punkt, so heißt es nicht. Windows verwendet als Zip/Unzip-Programm ein grafisches Modul (zipfldr.dll), woraus sich auch erklärt, dass es keine Möglichkeit gibt, dieses per Command Line anzusprechen.

Allerdings ist dieses BuiltIn nicht zu empfehlen:
- große Archive lassen sich nicht entpacken
- es ist langsam
- Pufferüberlauf bei langen Dateinamen möglich

Es gibt feine Packprogramme mit vielen netten Features. Da muß man doch nicht auf Microschrott zurückgreifen.