Entwickler-Ecke :: Thema anzeigen - pos für genaues Suchen und Finden

Kralle - Fr 22.07.11 05:56

Moin,

BenBE hat folgendes geschrieben :

Delphi-Quelltext

1:	Pos(',1,', ','+SuchString+',');

das funktioniert aber nicht für die erste und letzte Zahl, weil der Suchstring

Zitat:

"11,2,3"

ist und so die erste Abfrage so aussieht pos(',1,',',"11,2,3",') und ,1, nicht ,"1, ist.

Ich weiß ich habe in meinem Beispiel Zahlen benutzt, aber auch bei Texten gebe es das Problem.
Z.B. pos(',ab,',',"ab,und,zu",')

Gruß Heiko

Gausi - Fr 22.07.11 06:44

Spiel mal ein bißchen mit TStringlist und deren Eigenschaft CommaText rum, z.B. so:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

sl := TStringList.Create;
try
  sl.CommaText := DeinStringMitKommasDrin;
  for i := 0 to sl.Count-1 do
    if sl[i] = SuchString then 
    begin
       showMessage('Suchstring gefunden');
       break;
    end; 
finally
  sl.free;
end;

Kralle - Fr 22.07.11 08:35

Hallo Gausi,

Gausi hat folgendes geschrieben :

Spiel mal ein bißchen mit TStringlist und deren Eigenschaft CommaText rum, z.B. so:

Ehrlich gesagt, war mir "CommaText" kein Begriff.
Ich habe jetzt Deine Lösung etwas überarbeitet:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

function cpos(searchstring,text:string):integer;
  var
    i: integer; //Schleifen-Variable
    tmplist: TStringList; // temporäre Stringlist
  begin
    tmplist := TStringList.Create;
    try
      tmplist.CommaText := text;   // Kommagetrennten Text in Stringlist überführen
      i:=0;
      while i < tmplist.Count do
        begin
          if tmplist[i] = searchstring then  // Wenn das gesuchte enthalten ist
            Begin
              Result:=i+1;
              i:= tmplist.Count;   // Um die While-Schleife zu beenden
            End
          else           // Wenn das gesuchte nicht enthalten ist
            Result:=-1;
          inc(i);
        end;
    finally
      tmplist.free;
    end;
  end;

Danke, für den Schubs in die richtige Richtung.

Gruß Heiko

P.S. Unter Deinem Namen steht: "Erhaltene Danke:", wie "Bedankt" man sich? Sehe keinen Button dafür.

Horschdware - Fr 22.07.11 10:27

Eigentlich ist das ja ein tolles Beispiel für die Anwendung regulärer Ausdrücke.

Delphi-Quelltext

1:

,?11,?

würde mir da spontan in den Sinn kommen.

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!