Pos - ungenau suchen

[toyoman]

Hallo

Habe soeben gelernt wie ich mit dem Befehl POS eine Dateien durchsuchen kann. Soweit so gut.

Nur leider...

habe ich z.B. die Worte: "siehe Titel" in den Files drin.
Wenn ich nun mit Pos die Stringlisten durchsuche findet er die Worte siehe und Titel nicht allein sondern nur wenn ich nach beidem also "siehe Titel" suche.

Versteh das nicht ganz, der sucht also immer zeileweise oder wie?

Also nochmal genauer:
durchsucht werden Textfiles mit ganz normalen Stringinhalten.
Es kann eine oder mehrere Zeilen drin vorkommen.
ich suche über ein Edit Feld wo ich den Suchstring eingebe (ein oder mehrere Worte).

alles unklar?

[peschai]

Hallo

was möchtest du tun ?
Alle zeilnummern ausgeben wo dein suchtext vorkommt oder die Annzahl wie oft ?

"Pos" sucht nach dem ERSTEN vorkommen eines "SubStrings" in einem String.

Wenn du eine Textdatei komplett in eine String geladen hast, dann kannst du damit das erste Vorkommen finden. Für weitere Vorkommen musst du mehr tun...

Wenn du den Text in eine Stringliste geladen hast, dann kannst du in einer Schleife alle Zeilen durch gehen und damit zeileweise jeweils das erste Vorkommen finden...

...Ok ?

[Aurelius]

vielleicht hilft dir der Thread
http://www.delphipraxis.net/internal...661&highlight=

Bei dir würden sich wohl die Regulären Ausdrücke anbieten...

[toyoman]

Zitat von peschai:

Hallo

was möchtest du tun ?
Alle zeilnummern ausgeben wo dein suchtext vorkommt oder die Annzahl wie oft ?

...Ok ?

Meine aktuelle Prozedur geht wie folgt:

Delphi-Quellcode:

procedure TfrmUebersicht.BitBtn1Click(Sender: TObject);
var
  i,j:integer;
  liste:TStringlist;
begin
      listview1.ItemIndex:=0;
      for i:=0 to listview1.Items.Count-1 do
      begin
          liste:=TStringList.Create;
          liste.LoadFromFile(listview1.Items.Item[listview1.itemindex].SubItems[5]+'.dec');
          for j:=0 to liste.Count-1 do
          begin
              if pos(liste[j],edsuch.Text) >0 then
              begin
                showmessage(listview1.Items.Item[listview1.itemindex].SubItems[5]+'.dec');
                listview1.Items.Item[j].ListView.Canvas.Brush.Color:=clred;
              end else
              begin
                //showmessage('nichts gefunden');
              end;
          end;
          liste.Free;
          listview1.ItemIndex:=listview1.ItemIndex+1;
      end;
end;

ich möchte die Zeile in der Listview markieren wenn der Text im File gefunden wurde... (die Listview enthält in einer Spalte Pfad und Dateinamen der zu durchsuchenden Dateien.

[peschai]

Hallo

hast du eventuell in deinem Sourcecode etwas vertauscht ?
function Pos(SubStr: string; S: string): Integer;

[toyoman]

Zitat von xX0815Xx:

Bei dir würden sich wohl die Regulären Ausdrücke anbieten...

was heisst das konkret: reguläre Ausdrücke?

[toyoman]

Zitat von peschai:

Hallo

hast du eventuell in deinem Sourcecode etwas vertauscht ?
function Pos(SubStr: string; S: string): Integer;

OWWEEHHHH!!! tatsächlich..... mensch jetzt gedder!

[peschai]

Oh noch etwas...

1.)
listview1.Items.Item[j].ListView.Canvas.Brush.Color:=clred; "I" oder wirklich "J" ???

2.)
Mach den TStringList.Create ausserhalb der Schleife ...

Delphi-Quellcode:

try
  liste := tstringlist.create
  For ....
    begin
    end
finally
  FreeAndNil(liste);
end;

[toyoman]

Zitat von peschai:

Oh noch etwas...

Vielen Dank für deine Tipps am Montag Morgen Wird sofort umgebaut...