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 2 von 2     12
Benutzerbild von Luckie
Luckie
(Moderator)

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

Re: Dateien suchen + bearbeiten

  Alt 8. Sep 2004, 15:08
Deutlich ja. Aber ich verstehe dein Problem nicht. Wie man Dateien findet wurde dir gesagt. Wie du sie in eine StringListe bekommst auch. Wie du eine Datei aus der Stringliste in ein RichEdit bekommst weißt du wohl auch schon. Mit Delphi-Referenz durchsuchenpos eine Zeichenfolge finden dürfte auch für dich im Bereich des Möglichen liegen. Und über eine if-Abfrage den String vergleichen und entscheiden was zu tun ist, dürfte auch für dich lösbar sein. Und wie man Zeichenketten in eine Listbox bejkommt ist mit Hilfe der Delphi Hilfe wohl auch kein Problem.
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
 
#12

Re: Dateien suchen + bearbeiten

  Alt 8. Sep 2004, 15:08
Blos nicht im Richedit in Hintergrund ausgeben, mach's mit einer StringList, das ist deutlich schneller.

Mit den Tipps, die du hier bekommen hast, sollte es für dich kein Problem sein, dies umzusetzen.
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie
(Moderator)

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

Re: Dateien suchen + bearbeiten

  Alt 8. Sep 2004, 15:27
Was ich sagen wollte: Wenn du so ein komplexes Problem hast, zerleg es in überschaubare Teilprobleme und löse die nacheinander.
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
 
#14

Re: Dateien suchen + bearbeiten

  Alt 8. Sep 2004, 17:19
Danke Leute. Werd's versuchen.

  Mit Zitat antworten Zitat
sniffy

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

Re: Dateien suchen + bearbeiten

  Alt 9. Sep 2004, 14:08
Hi. Klappt alles soweit. Naja nicht wirklich alles, aber ist ja auch egal.

Ich hab jetzt ein anderes Problem. Mein Prog such ja Verzeichnisse nach HTML-Dateien ab.
Klappt ja auch eigentlich. Mir ist aber aufgefallen das er nicht in Unsichtbaren ordner suchen kann, spirch in C:\Dokumente und Einstellungen\user\Lokale Einstellungen\Temporary Internet Files\.
Da der Ordner Lokale Einstellugen unsichtbar ist kann er folglich im Ordner Temporary Internet Files keine Dateien finden und das sind ja ne menge drin.

Hier die Such-Prozedur:

Delphi-Quellcode:
procedure GetFiles(const ADirectory: string; Files: TStrings;
                   SubFolders: Boolean);
  // Hilfsfunktion, um Schrägstriche zu entfernen bzw. hinzuzfügen, wenn nötig
  function SlashSep(const Path, S: string): string;
  begin
    if AnsiLastChar(Path)^ <> '\then
      Result := Path + '\' + S
    else
      Result := Path + S;
  end;
var
  SearchRec: TSearchRec;
  nStatus: Integer;
begin
  //Zuerst alle Dateien im aktuelle Verzeichnis finden
  //Anstatt *.* kann auch etwas anderes wie *.jpg oder *.gif eingegeben werden,
  //um nur Dateien eines bestimmten Typs zu finden.
  nStatus := FindFirst(PChar(SlashSep(ADirectory, '*.html')), 0, SearchRec);
  while nStatus = 0 do
  begin
    Files.Add(SlashSep(ADirectory, SearchRec.Name));
    nStatus := FindNext(SearchRec);
  end;
  FindClose(SearchRec);
  //Als nächstes nach Unterverzeichnissen suchen und wenn benötigt durchsuchen
  if SubFolders then
  begin
    nStatus := FindFirst(PChar(SlashSep(ADirectory, '*.*')), faDirectory,
      SearchRec);
    while nStatus = 0 do
    begin
      //Wenn es ein Verzeichnis ist, Rekursion verwenden
      if ((SearchRec.Attr and faDirectory) <> 0) then
      begin
        if ( (SearchRec.Name <> '.') and (SearchRec.Name <> '..') ) then
          GetFiles(SlashSep(ADirectory, SearchRec.Name), Files, SubFolders);
      end;
      nStatus := FindNext(SearchRec)
    end;
    FindClose(SearchRec);
  end;
end;
Wäre nett wenn mir jemand sagen könnte das das Programm auch unsichbare Ordner nach HTML-Dateien scannen kann.
Danke!
  Mit Zitat antworten Zitat
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 12:09 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