AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Dateien suchen + bearbeiten

Ein Thema von sniffy · begonnen am 8. Sep 2004 · letzter Beitrag vom 9. Sep 2004
Antwort Antwort
Seite 1 von 2  1 2   
sniffy

Registriert seit: 1. Sep 2004
Ort: Niederrhein
37 Beiträge
 
Delphi 7 Enterprise
 
#1

Dateien suchen + bearbeiten

  Alt 8. Sep 2004, 13:14
Hi.

Ich hab ein Programm geschrieben das bestimmte Strings aus einem RichEdit-Feld herausfiltert und in einer ListBox anzeigt. Es sind HTML-Dateien aus denen das Prog die Strings sucht.

Jetzt zu meiner Frage.

Ich will das das Prog ein Verzeichnis (C:\, D:\...) nach HTML-Dateien durchsucht und die HTML-Dateien irgendwie im Hintergrund oder wie auch immer öffnet und nach bestimmten Strings durchsucht und die mir dann in der ListBox anzeigt. Quasi ohne das ich die Datei selber öffnen muss.

Ist das möglich?

Bin noch ein Anfänger.
  Mit Zitat antworten Zitat
Benutzerbild von Phoenix
Phoenix
(Moderator)

Registriert seit: 25. Jun 2002
Ort: Hausach
7.516 Beiträge
 
#2

Re: Frage ob folgendes funktionieren könnte?

  Alt 8. Sep 2004, 13:25
Ich habe Deine Frage erst gar nicht gelesen.
Bitte ändere erstmal Deinen Titel zu was aussagekräftigem. Danach schau ich nochmal drüber .
Sebastian P.R. Gingter
不死鳥 Visit my Blog.
Do not argue with an idiot. They lower you to their level and then try to beat you with experience.
  Mit Zitat antworten Zitat
Benutzerbild von Wuaegner
Wuaegner

Registriert seit: 8. Feb 2004
406 Beiträge
 
Delphi 6 Enterprise
 
#3

Re: Frage ob folgendes funktionieren könnte?

  Alt 8. Sep 2004, 13:27
Servus sniffy!

Verzeichnisse nach Html-Dateien durchsuchen kannst du mit dieser Prozedur:
Code:
procedure SearchFiles(Ext,StartDir: string;Recursive: Boolean; List: TStrings);
var Rec: TSearchRec;
        i: integer;
        Dir : string;
begin
  Dir := StartDir;
  if AnsiLastChar(Dir) <> '\' then
    Dir := Dir + '\';
  i := FindFirst(StartDir+'*',faAnyFile,Rec);
  while i = 0 do
    begin
      Application.ProcessMessages; //optional
      if Pos(Ext,Rec.Name) > 0 then
        List.Add(Dir+Rec.Name);
      if ((Rec.Attr and faDirectory) > 0) and (Rec.Name <> '.') and
            (Rec.Name <> '..') and Recursive then
        begin
          if AnsiLastChar(Rec.Name) <> '\' then
            Rec.Name := Rec.Name + '\';
          SearchFiles(Ext,StartDir+Rec.Name,Recursive,List);
        end;
      i := FindNext(Rec);
    end;
  FindClose(Rec);
end;
Aufruf:
Code:
procedure TForm1.Button1Click(Sender: TObject);
begin
   begin
  SearchFiles('.html','C:\',true,ListBox1.Items);
end;
Grüße Flo
Wuaegner
  Mit Zitat antworten Zitat
sniffy

Registriert seit: 1. Sep 2004
Ort: Niederrhein
37 Beiträge
 
Delphi 7 Enterprise
 
#4

Re: Frage ob folgendes funktionieren könnte?

  Alt 8. Sep 2004, 13:40
Danke für deine Bemühungen Wuaegner!

So weit war ich auch schon.

Ich will wenn ich ein Verzeichnis durchsuche das dann wenn eine Datei gefunden wird, sofort die Datei geöffnet wird (irgend was vielleicht mit exklusivem öffnen zu tun?) und dann automatisch nach einem bestimmten String durchsucht wird! Quasi alles in einem Durchgang.

Und zuletzt soll das Prog mir in der ListBox die gefundenen Strings anzeigen.
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie
(Moderator)

Registriert seit: 29. Mai 2002
37.616 Beiträge
 
Delphi 2006 Professional
 
#5

Re: Frage ob folgendes funktionieren könnte?

  Alt 8. Sep 2004, 13:41
Würdest du bitte noch dein Topic gemäß den Forenregeln anpassen, wie es dir schon gesagt wurde?
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
sniffy

Registriert seit: 1. Sep 2004
Ort: Niederrhein
37 Beiträge
 
Delphi 7 Enterprise
 
#6

Re: Dateien suchen + bearbeiten

  Alt 8. Sep 2004, 14:21
erledigt! 8)
  Mit Zitat antworten Zitat
sniffy

Registriert seit: 1. Sep 2004
Ort: Niederrhein
37 Beiträge
 
Delphi 7 Enterprise
 
#7

Re: Dateien suchen + bearbeiten

  Alt 8. Sep 2004, 14:35
Mit dem erledigt meinte ich das ich den Namen des Themas gändert hab.


Ich brauch trotzdem unbedingt HILFE!
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie
(Moderator)

Registriert seit: 29. Mai 2002
37.616 Beiträge
 
Delphi 2006 Professional
 
#8

Re: Dateien suchen + bearbeiten

  Alt 8. Sep 2004, 14:37
Zitat von sniffy:
Ich brauch trotzdem unbedingt HILFE!
Ginge das etwas konkreter?
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von Matze
Matze
(Co-Admin)

Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.987 Beiträge
 
Turbo Delphi für Win32
 
#9

Re: Dateien suchen + bearbeiten

  Alt 8. Sep 2004, 14:41
@sniffy: beiträge kann man auch editieren.

Benutze doch mal die Suche in der DP, diese ist wirklich erstklassig:
Eines der Suchergebnisse


Edit: Wenn du die Pfade der html-Dateien alle z.B. in einer Stringlist hast, kannst du sie auch alle in einer extra Stringlist öffnen und durchsuchen (Hier im Forum suchenPosDelphi-Referenz durchsuchenPos, Hier im Forum suchenPosExDelphi-Referenz durchsuchenPosEx).
Also nur mal so als Beispiel, vielleicht nich gerade Resourcenschonend, aber es geht.
  Mit Zitat antworten Zitat
sniffy

Registriert seit: 1. Sep 2004
Ort: Niederrhein
37 Beiträge
 
Delphi 7 Enterprise
 
#10

Re: Dateien suchen + bearbeiten

  Alt 8. Sep 2004, 14:59
@Luckie

ok. ich versuchs.

Momentan sieht das Programm so aus:

Ich hab ein Panel für "Datei öffnen", der HTML-Dateien in ein RichEdit öffnet.

Und ich hab noch ein Panel für Strings suchen/anzeigen. Der durchsucht die HTML-Datei nach bestimmten Strings und listet die in einer ListBox auf. In meinem Fall alle Strings die mit cd_ und ld_ anfangen.

Jetzt will ich aber das das Programm z.B. die C:\ Festplatte nach HTML-Dateien durchsucht. Wenn das Prog die Platte durchsucht hat soll das Prog dann direkt (mit den gefundenen HTML-Dateien)mit den durchsuchen der bestimmten Strings fortfahren ohne die Dateien in ein RichEdit oder sonst wo zu öffnen/laden. Das soll dann irgendwie im Hintergrund oder so gemacht werden.

Wenn er dann die Strings gefunden hat soll das Prog dann die gefundenen Strings in eine ListBox anzeigen.

Ich hoffe das ich jetzt etwas deutlcher war.
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 08:01 Uhr.
Powered by vBulletin® Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2019 by Daniel R. Wolf