|
Vorheriges Thema: Nächstes Thema: |
Autor |
Nachricht |
Bauer
Anmeldungsdatum: 11.03.2011 Beiträge: 3
|
Verfasst am: 11.03.2011 10:22:59 Titel: VBS .txt-Datei durchsuchen |
|
|
Guten Tag,
ich bin auf der Suche nach einem VBScript, was Textdateien in einem bestimmten Ordner mit Unterordner, indenen jeweils eine .txt-Datei vorhanden ist, nach einem vorher eingegeben Wert durchsucht und alle Zeilen in dem der Wert vorkommt in eine neue Textdatei schreibt.
Den Code hab ich mir schon zusammengesucht und gebastelt:
Code: |
Set fso = CreateObject("Scripting.FileSystemObject")
Quelle = "\\Server\syslogd"
Typ = LCase("txt")
Ziel = "D:\Deine Liste.txt"
Suchbegriff = "WERT"
Set Ausgabe = fso.CreateTextFile(Ziel, True)
For Each File In fso.GetFolder(Quelle).Files
If LCase = Typ Then
Inhalt = fso.OpenTextFile(File).ReadAll
If InStr(1, Inhalt, Suchbegriff, vbTextCompare) Then
Ausgabe.WriteLine Line
End If
End If
Next
Ausgabe.Close
WScript.Echo "Fertig."
|
Ein Problem ist das Durchsuchen der Unterordner (und nicht des Hauptordners),
desweiteren hab ich leider nicht viel Ahnung von VBS und habe mir in letzter Zeit nur ein paar Tutorials durchgelesen, daher bezweifel ich stark das der Rest des Codes richtig ist.
Schon mal vielen Dank für eure Hilfe.
Mit freundlichen Grüßen
Bauer |
|
Nach oben |
|
|
Bauer
Anmeldungsdatum: 11.03.2011 Beiträge: 3
|
Verfasst am: 11.03.2011 15:29:29 Titel: |
|
|
Hab noch ein bisschen dran gearbeitet funktioniert leider aber immer noch nicht.
Code: |
Set fso = CreateObject("Scripting.FileSystemObject")
Quelle = "\\Server\syslogd"
Set oFolders = fso.GetFolder(Quelle)
Typ = LCase("txt")
Ziel = "D:\Deine Liste.txt"
Suchbegriff = "WERT"
Set Ausgabe = fso.CreateTextFile(Ziel, True)
Sub ShowSubFolders(Folder)
For Each Subfolder In Folder.Subfolders
For Each Datei In Folder.Files
If LCase = Typ Then
Inhalt = fso.OpenTextFile(File).ReadAll
If InStr(1, Inhalt, Suchbegriff, vbTextCompare) Then
Ausgabe.WriteLine Line
End If
End If
Next
Next
End Sub
Ausgabe.Close
WScript.Echo "Fertig." |
|
|
Nach oben |
|
|
Bauer
Anmeldungsdatum: 11.03.2011 Beiträge: 3
|
Verfasst am: 18.03.2011 08:56:19 Titel: |
|
|
Keiner eine Idee oder einen Tipp? |
|
Nach oben |
|
|
dynamind
Anmeldungsdatum: 16.04.2011 Beiträge: 1
|
Verfasst am: 16.04.2011 12:44:06 Titel: find in Windows nutzen |
|
|
ich würde das mit den Onboard Features von Windows machen:
I:\Eigene Dateien\Dokumente>find /?
Sucht in einer oder mehreren Dateien nach einer Zeichenfolge.
FIND [/V] [/C] [/N] [/I] [/OFF[LINE]]"Zeichenfolge"
[[Laufwerk:][Pfad]Dateiname[ ...]]
/V Zeigt alle Zeilen an, die die Zeichenfolge NICHT enthalten.
/C Zeigt nur die Anzahl der die Zeichenfolge enthaltenden Zeilen an.
/N Zeigt die Zeilen mit ihren Zeilennummern an.
/I Ignoriert Groß-/Kleinschreibung bei der Suche.
/OFF[LINE] Ãœberspringt keine Offlinedateien.
"Zeichenfolge" Die zu suchende Zeichenfolge
[Laufwerk:][Pfad]Dateiname Zu durchsuchende Datei(en)
Fehlt der Pfad, so durchsucht FIND von der Tastatur aus eingegebenen Text oder
die Ausgabe des Befehls, der FIND in einer Befehlskette vorangestellt ist.
z.B. so:
find *.txt "gesuchtertxt" > output.txt |
|
Nach oben |
|
|
|
|
Du kannst keine Beiträge in dieses Forum schreiben. Du kannst auf Beiträge in diesem Forum nicht antworten. Du kannst deine Beiträge in diesem Forum nicht bearbeiten. Du kannst deine Beiträge in diesem Forum nicht löschen. Du kannst an Umfragen in diesem Forum nicht mitmachen.
|
|
|
|