HTMLWorld - HTML, CSS, JavaScript, PHP, Java, Flash und vieles mehrHTMLWorld:   Home | Impressum
 

 
 

Anzeige 
 
HTMLWorld » Forum

Thema anzeigen - VBS .txt-Datei durchsuchen

 FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen   RegistrierenRegistrieren 
 ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin 

VBS .txt-Datei durchsuchen

 

Neues Thema eröffnen   Neue Antwort erstellen    HTMLWorld Foren-Übersicht
   VB, VBS, VBA, VB.NET
Vorheriges Thema:
Nächstes Thema:  
Autor Nachricht
Bauer



Anmeldungsdatum: 11.03.2011
Beiträge: 3

BeitragVerfasst am: 11.03.2011 10:22:59    Titel: VBS .txt-Datei durchsuchen Antworten mit Zitat

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
Benutzer-Profile anzeigen Private Nachricht senden
Bauer



Anmeldungsdatum: 11.03.2011
Beiträge: 3

BeitragVerfasst am: 11.03.2011 15:29:29    Titel: Antworten mit Zitat

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
Benutzer-Profile anzeigen Private Nachricht senden
Bauer



Anmeldungsdatum: 11.03.2011
Beiträge: 3

BeitragVerfasst am: 18.03.2011 08:56:19    Titel: Antworten mit Zitat

Keiner eine Idee oder einen Tipp?
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
dynamind



Anmeldungsdatum: 16.04.2011
Beiträge: 1

BeitragVerfasst am: 16.04.2011 12:44:06    Titel: find in Windows nutzen Antworten mit Zitat

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
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    HTMLWorld Foren-Übersicht
   VB, VBS, VBA, VB.NET
Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
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.