Ich komm leider noch nicht
an den reinen Quelltext ran:
#include <Array.au3>
#include <String.au3>
Dim $avArray
$Var = (@ScriptDir & "\" & "Quelltexte.txt") ; Hier stehen alle Texte drin!
MsgBox(4096, "Code", $Var) ; Pfad wird angezeigt!
$inhalt = FileRead($var) ;Erst Datei einlesen
[/autoit][autoit][/autoit][autoit]$avArray = Stringsplit($inhalt, "TheLuBuAutoit2011", 1) ; habe mal das als Trennzeichen im Text verwendet! Dann den Inhalt splitten und nicht den Dateipfad
_ArrayDisplay($avArray) ;zeigt das Array an
;MsgBox gelöscht, weil sinnlos
For $i = 1 To Ubound($avArray) - 1
If $avArray[$i] = "Hunde" Then
Msgbox (0, "", "Quelltext Hunde gefunden in Arrayplatz "& $i + 1)
_ArrayDisplay($avArray[$i])
ElseIf $avArray[$i] = "Katzen" Then
Msgbox (0, "", "Quelltext Katzen gefunden in Arrayplatz "& $i + 1)
EndIf
Next
Der Loop zeigt keine Msgbox!
Die Quelltextdatei:
[autoit]
Hunde
1
2
3
4
5
6
TheLuBuAutoit2011
Katzen
TheLuBuAutoit2011
1
2
3
TheLuBuAutoit2011
In diesem Beispiel sollten doch nur die Zahlen erscheinen!
Ilse