Update weiter unten!



Hi,

Ich versuche 100 Textdateien nach einem bestimmten Begriff zu durchsuchen. Ich hab dann mal die Forensuche bedient und folgenden Code gefunden und angepasst.Die Dateien liegen im Format 1.txt, 2.txt, 3.txt usw vor. Allerdings funktioniert das nicht so wie ich will.

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm5.SuchestartenClick(Sender: TObject);
var
    StringList : TStringList;
    posi : integer;
    s : string;
    i : byte;
begin
  for i := 0 to 100 do
    begin
      StringList := TStringList.Create;
      try
        StringList.LoadFromFile('\\Server\Datenbank\' + inttostr(i) + '.txt); [b]// [Fehler] Unit5.pas(45): Nicht abgeschlossener String[/b]
s := StringList.Text; [b]// [Fehler] Unit5.pas(46): ')' erwartet, aber Bezeichner 's' gefunden[/b]
delete(s, 1, pos(edit1.text, s) + length(edit1.text) - 1);
memo1.lines.add (copy(s, 1, pos('<Endewort>', s) - 1));
finally
StringList.free;
end;
end;
end;

Die Fehlermeldungen sagen mir nicht viel, was mach ich falsch? Und wozu brauche ich Endewort?

Originalthread ist übrigens der hier

Ach ich sehe gerade, der Ersteller des anderen Threads sucht eine Möglichkeit um den Inhalt zwischen zwei Wörter herauszusuchen. Naja, viel Unterschied wird in den Verfahren nicht sein. Ich will eigentlich nur den Namen der Textdatei in der Memobox ausgeben, wenn ein bestimmter Begriff in dieser Datei gefunden wurde.

StringList.LoadFromFile('\\Server\Datenbank\' + inttostr(i) + '.txt); Hinter '.txt fehlt das abschließende '. Genau das sagt auch die Fehlermeldung, und die "kaputte" Formatierung des Quelltextes hier im Forum lässt das doch prima erkennen. Der 2. Fehler ist lediglich eine Folge des ersten.

\\Edit: Und für dein Vorhaben reicht eine einfach Suche mittles Pos in der Stringliste.

LoL ... der is ma geil ...

Ausserdem durchläufst du die Schleife 101 mal ... "for i := 0 to 100 do" ... "for i := 1 to 100 do" oder "for i := 0 to 99 do" würde 100x die Schleife durchlaufen

Okay, der erste Teil war vielleicht etwas verwirrend oder sogar komplett falsch ^^

Also nochmal:

Ich habe 100 Text-Dateien, es geht von 1 los und endet bei Datei Nr 100. Ich möchte jede dieser Dateien nach einem bestimmten Begriff durchsuchen und anschliesend den Dateinamen in einem Memofeld ausgeben.

Das klappt jetzt sogar, allerdings unterscheidet die Funktion pos zwischen Groß und Kleinschreibung wie mir scheint.

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm5.SuchestartenClick(Sender: TObject);
var
    StringList : TStringList;
    s : string;
    i : byte;
begin
  memo1.clear;
  for i := 1 to 100 do
    begin
      StringList := TStringList.Create;
      try
        StringList.LoadFromFile('\\Server\Datenbank\' + inttostr(i) + '.txt');
        s := StringList.Text;
        if pos(edit1.text, s) > 0 then
        memo1.lines.add (inttostr(i));
      finally
        StringList.free;
      end;
    end;
end;

Könnte mir noch einer verraten wie ich die Unterscheidung ausschalte? ^^

Ja, pos ist case sensitiv.

Du kannst mit upperCase oder lowerCase den Text in Groß- oder Kleinbuchstaben
wandeln und dann mit pos abfragen.

Grüße
Klaus

Hm, also mit lower und uppercase könnte ich zwar Den Text in groß und klein wandeln, aber was ist denn wenn es gemisch ist? cg, CG oder Cg.

Gibts nicht noch ne andere Lösung bzw Suchmethode?

SameText() oder CompareText()

Hallo,

vielleicht solltest Du Dir einmal klar werden
was Du willst.

Eine case sensitive Behandlung des Textes, also mit Unterscheidung von cg, CG oder Cg.
Das mach pos von Hause aus.

Eine case insensitive Behandlung des Textes, keine Unterscheidung von cg, CG odewr Cg.
Dann heißt es vor der Prüfung mit pos alles gleichzumachen.

Grüße
Klaus

Ahhh tschuldigung Klaus01, ich glaub ich hab nur die Hälfte von deinem Vorschlag erkannt. Jetzt gleiche ich Text und Suchbegriff vor dem Vergleich auf lowercase an und es funktioniert!

Danke ncohmal an alle

Richtiger Quellcode ist also:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm5.SuchestartenClick(Sender: TObject);
var
    StringList : TStringList;
    s : string;
    i : byte;
begin
  memo1.clear;
  for i := 1 to 100 do
    begin
      StringList := TStringList.Create;
      try
        StringList.LoadFromFile('\\Server\Datenbank\' + inttostr(i) + '.txt');
        s := lowercase(StringList.Text);
        if pos(lowercase(edit1.text), s) > 0 then
        memo1.lines.add (inttostr(i));
      finally
        StringList.free;
      end;
    end;
end;