Kobra
Anmeldedatum: 07.02.2010
Beiträge: 186
|
 Verfasst am: Sa Jun 25, 2011 12:03 pm Titel: Text Dokumente durchsuchen |
 |
|
Hallo,
ich hab hier ein kleines Script gemacht, das Text Dokumente nach einem Suchbegriff durchsucht und alle Zeilen anzeigt, indem der Suchbegriff vorkommt.
Ist nix besonderes, aber naja
| Code: |
FileSelectFile, Pfad,,, Dokument wählen, (*.txt)
Gui,1: Add, Edit, x10 y10 w600 h20 vsuchwort, gesuchter Text/Wort (Groß und Kleinschreibnung beachten)
Gui,1: Add, Edit, x10 y40 w600 h400 vtextanzeigen ReadOnly, % textanzeigen ; zeigt alle Zeilen an, indem das Suchwort auftaucht
Gui,1: Add, Button, x260 y460 w100 h20 gsuchen, Suchen
Gui,1: Show,,
Return
suchen:
If Pfad= ; wenn keine Datei ausgewählt wurde
Return
GuiControlGet, suchwort
If suchwort= ; Wenn kein Suchwort eingegeben wurde dann Stop
Return
loop, Read, % Pfad
{
If RegExMatch(A_LoopReadLine, suchwort . "(.*)")
{
Zähler++
FileAppend, %A_LoopReadLine%`n, Ergebnisse.txt
}
}
If Zähler= ; Wenn es keine Ergebnisse gibt
Zähler=0 ; dann ist der Zähler = 0
MsgBox, 64,, %Zähler% Treffer zu "%suchwort%"
Zähler=0 ; Zähler wieder auf 0 setzen, damit wenn man nochmal etwas sucht, nicht die doppelte Anzahl der Ergebnisse anzeigt
FileRead, ergebnisse, Ergebnisse.txt ; Die Text Datei "Ergebnisse.txt" auslesen
GuiControl,1:, textanzeigen, %ergebnisse% ; den ausgelesenden Text aus der Text Datei "Ergebnisse.txt" im Edit Feld anzeigen
FileDelete, Ergebnisse.txt
Return
GuiClose:
ExitApp
|
|
|
FAQ
Suchen
Mitgliederliste
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
