ich will aus heier hosts datei eine squid kompatible liste machen.
file einlesen geht und zeilen lesen geht auch.
wenn ich nun aber das sehen will was zwischen ## und ] steht, wird mir nur 0 für nicht vorhanden und nichts für das ist doch irgendwas angezeigt.
wo ist mein fehler?
#include <Array.au3>
#include <File.au3>
#include <String.au3>
Local $avArray[1]
Local $stringleft = '##'
Local $stringright = ']'
Local $file = FileOpenDialog ( "", @HomeDrive, "acl datei(*.acl)" , 1)
[/autoit][autoit][/autoit][autoit]If $file = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Else
$zeilen = _FileCountLines($file)
MsgBox(0, "Zeilen", $zeilen)
For $i = 1 To $zeilen
$zeile = FileReadLine($file,$i)
MsgBox(0,"zeile",$zeile)
$string = _StringBetween($zeile, $stringleft, $stringright)
MsgBox(0,"string",$string)
Local $stringclean = StringReplace($zeile, $string, "")
If $stringclean <> 0 Then
_ArrayAdd($avArray,$stringclean)
EndIf
Next
[/autoit][autoit][/autoit][autoit][/autoit][autoit]EndIf
[/autoit][autoit][/autoit][autoit][/autoit][autoit]_ArrayDisplay($avArray)
FileClose($file)
MsgBox(0, "", "tschuess")