mehrere Dateien auslesen

schandor

Hallo zusammen,

ich komme leider nicht weiter und brauche Euere hilfe.

ich benötige ein Combofeld mit dem Inhalt der Titel verschiedener html Dateien.
mit _FileListToArray("S:\", "*.htm*", 1) hab ich erstma alle Dateien in einem Array;

klar soweit, und wie ich z.B. den Wert zwichen <title> und </title>
aus einer Datei ermittel ist auch klar:
$filePath = "S:\VORLAGE.htm"
_FileReadToArray($filePath, $Input)
For $i = 1 To UBound($Input) - 1
$titel = _StringBetween($Input[$i], '<title>', '</title>')
If Not @error And $titel[0] <> '' Then
MsgBox(0,"", $titel[0])
EndIf
Next

jetzt müßte das FileReadToArray in einer schleife laufen und das für jede Datei machen, anschließend dann noch das Ergebnis in ein GuiCtrlCreatecombo einbinden.

aber ich weiß nicht wie ich die schleife und das ergebnis für die Combo aufbereite....

Please Help

**bernd670**

Du hast die Lösung schon fast dastehen!

[autoit]

#include <GuiConstants.au3>
#include <GuiCombo.au3>
#include <String.au3>
#include <File.au3>

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

Dim $Input

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

GuiCreate("ComboBox mit Titel füllen", 392, 254)

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

$Combo = GuiCtrlCreateCombo("", 70, 100, 270, 120)
$Btn_Exit = GuiCtrlCreateButton("Exit", 150, 180, 90, 30)

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

$filePath = "S:\VORLAGE.htm"
_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

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

GuiSetState()

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

While 1
$msg = GuiGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE Or $msg = $Btn_Exit
ExitLoop
EndSelect
WEnd
Exit

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

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.

**BugFix**

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?

[autoit]

_FileReadToArray($filePath, $Input)

[/autoit]

liest die gesamte Seite ein.

[autoit]

For $i = 1 To $Input[0]

[/autoit]

arbeitet den Inhalt zeilenweise ab.

[autoit]

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

[/autoit]

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?

schandor

Ups, ich glaub ich habs falsch beschrieben...

natürlich hab ich es getestet,
mit
$filePath = "S:\VORLAGE.htm"
_FileReadToArray($filePath, $Input)

das ist aber NUR eine einzige DAtei (VORLAGE.htm), würde das aber gerne
mit allen in diesem Array vorhanden Dateien in einer Schleife machen wollen
_FileListToArray("S:\", "*.htm*", 1)

ich versuchs mal:

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

GUICtrlCreateCombo ("", 10,10)

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

$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

[/autoit]

oder so ähnlich, ich bekomms nicht hin, ich hoffe jetzt hab ich es besser beschrieben.

Gruß Schandor

**bernd670**

Sind den die HTML-Dateien alle in einem Verzeichnis oder sind sie auf Unterverzeichnisse verteilt?

schandor

die *.HTM dateien sind alle im gleichen verzeichnis, aber es kann vorkommen
das einige .htm und andere .html heißen, deshalb ja *.htm*

z.B.
_FileListToArray("S:\HTML_FILES\", "*.htm*", 1)

schandor

keiner mehr ne idee ???

ExBerliner

was sagt denn @error ?

vielleicht so: $FileList=_FileListToArray("S:\HTML_FILES\", "*.htm?", 1)

EDIT:
@Error:
1 = Path not found or invalid
2 = Invalid $sFilter
3 = Invalid $iFlag
4 = No File(s) Found

Edit2: tzz. bugfix hats erkannt, ich war zu blöde
gruss exberliner

**BugFix**

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

[/autoit]

schandor

ah, besten dank, jetzt gehts