mehrere Textdateien nach String durchsuchen und Funde in neue Datei kopieren

vel2000

ich hätte da mal ein kleines Problem:
ich habe mehrere Textdateien (a.txt, b.txt, c.txt) mit html Links.
Ich möchte nun alle diese Dateien mit "StringRegExp" und folgender regexpression

Code

http://[^"]*

durchsuchen, und ALLE Funde in EINE neue Datei schreiben.
Nur wie...

name22

Zuerst liest du alle Dateien ein, und packst ihren Inhalt in eine Variable. Dann durchsuchst du diese Variable mit StringRegExp, aber verwende die Flag 3 um alle Ergebnisse in ein Array zu speichern. Danach schreibst du das ganze mit _FileWriteFromArray in eine Datei.
Außerdem wäre dieses RegEx Pattern wohl eher geeignet...

Code

'((?:http://|ftp://|shttp://)?(?:www\.)?.+?\.(?:de|com|org|net)(?:/\S*)?)'

vel2000

Zitat

Zuerst liest du alle Dateien ein, und packst ihren Inhalt in eine Variable. Dann durchsuchst du diese Variable mit StringRegExp, aber verwende die Flag 3 um alle Ergebnisse in ein Array zu speichern. Danach schreibst du das ganze mit _FileWriteFromArray in eine Datei.

thanks für die Antwort, aber gibts da irgendwo ein Beispiel?
Ich bin jetzt nicht sooo der Crack.

name22

Bitteschön.

Beispiel

[autoit]

#include <File.au3>

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

$sString = FileRead(@ScriptDir & "\Test1.txt") ;Datei 1
$sString &= FileRead(@ScriptDir & "\Test2.txt") ;Datei 2
$sString &= FileRead(@ScriptDir & "\Test3.txt") ;Datei 3

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

$sPattern = '((?:http://|ftp://|shttp://)?(?:www\.)?.+?\.(?:de|com|org|net)(?:/\S*)?)' ;Pattern um URLs herauszufiltern.

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

$aURL = StringRegExp($sString, $sPattern, 3)
_FileWriteFromArray(@ScriptDir & "\URL.txt", $aURL) ;Array in die Zieldatei schreiben.

[/autoit]

vel2000

Hmm, das funktioniert bei mir nicht...
Mein Script sieht folgendermaßen aus.

[autoit]

#include <Array.au3> ;Only for _ArrayDisplay
#include <File.au3>

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

$s_String = FileRead("c:\zats\a.txt")
$s_String &= FileRead("c:\zats\b.txt")
$s_String &= FileRead("c:\zats\c.txt")
$sPattern = '((?:http://|ftp://|shttp://)?(?:www\.)?.+?\.(?:de|com|org|net)(?:/\S*)?)'
$aURL = StringRegExp($sString, $sPattern, 3)
;_ArrayDisplay($aURL)

[/autoit]

und das ergibt folgende Fehlermeldung:

Code

(8,32) : WARNING: $sString: possibly used before declaration.
  $aURL = StringRegExp($sString,

und

Code

(8,32) : ERROR: $sString: undeclared global variable.
  $aURL = StringRegExp($sString,

name22

Das liegt daran, dass du aus irgendeinem mir nicht ersichtlichen Grund zwischen $s und String ein "_" eingefügt hast, aber bei der Variable in dem Aufruf der StringRegExp Funktion nicht...

vel2000

Du hast vollkommen Recht, "copy and paste" und nicht aufgepasst halt...
Es funktioniert jetzt prima
vielen Dank für deine Hilfe