Wie kann ich nach einem String den nächsten 'sehen'

[Nicodius]

Um ehrlich zu sein, hobbylooser: Nun versteh ich noch weniger
Denn /kick 'hierstehtdername' bringt mir nix wenn das gelöscht wir Ich brauch den namen doch um in in einer anderen Richedit zu löschen Tja deshalb würde ich gerne NUR den Namen festellen um in in der Richedit zu LÖSCHEN


Na dann, schönen Abend

Nicodius

[Daniel B]

Hallo,

dann schau Dir doch Copy und Pos an und nicht Delete.

Grüsse, Daniel

[Christian Seehase]

Moin Daniel,

schau Dir mal mein erstes Posting an

[Daniel B]

Moin Christian,

schau Dir mal die drei Beiträge vor meinem an, ich glaube das Dich niemand verstanden hat, daher habe ich es einfach nochmal versucht.

Grüsse, Daniel

[Stanlay Hanks]

Zitat von Nicodius:

Um ehrlich zu sein, hobbylooser: Nun versteh ich noch weniger
Denn /kick 'hierstehtdername' bringt mir nix wenn das gelöscht wir Ich brauch den namen doch

Mit dem Befehl von Hobbylooser löscht du ja nicht den ganzen String, sondern du löschst nur die Zeichen 1 bis 6 aus dem String

Heißt im Endeffekt, dass du aus dem String '/kick name' nur '/kick ' löschst. der Name dahinter bleibt ja

Man liest sich, Stanlay

[Duffy]

Hallo Nicodius,
vielleicht hilft Dir dieses Beispiel weiter. Hiermit kannst Du limited Strings in seine einzelnen Komponenten zerlegen und hast sie anschließend in einem TStrings Object stehen.
bye

[iLLe]

Zitat von Basic-Master:

Hi,
das geht wenn du mit copy+pos arbeitest:

Delphi-Quellcode:

var a,b,c:integer;
   s, temp, suche:string;
begin
a := 0;
s := 'das hier ist ein toller test. hier isser.';
temp := s;
suche := 'hier';
for a := 1 to length(s) do begin
  c := pos(suche, temp);
  if c <> 0 then begin
  b := length(s) - length(temp);
  showmessage('An Position "' + inttostr(c + b) + '" ist ein "' + suche + '".');
  temp :=  copy(temp, c + length(suche), length(temp));
  end;
end;

ich versteh das irgendwie auch nicht vielleicht kannst du ja mal paar komentarzeilen dazueditieren intressiert mich mich jetzt nämlich

[Basic-Master]

Zitat von iLLe:

Zitat von Basic-Master:

Hi,
das geht wenn du mit copy+pos arbeitest:

Delphi-Quellcode:

var a,b,c:integer;
   s, temp, suche:string;
begin
a := 0;
s := 'das hier ist ein toller test. hier isser.';
temp := s;
suche := 'hier';
for a := 1 to length(s) do begin
  c := pos(suche, temp);
  if c <> 0 then begin
  b := length(s) - length(temp);
  showmessage('An Position "' + inttostr(c + b) + '" ist ein "' + suche + '".');
  temp :=  copy(temp, c + length(suche), length(temp));
  end;
end;

ich versteh das irgendwie auch nicht vielleicht kannst du ja mal paar komentarzeilen dazueditieren intressiert mich mich jetzt nämlich

na klaa:

Delphi-Quellcode:

var a,b,c:integer;
   s, temp, suche:string; //Variablen
begin
s := 'das hier ist ein toller test. hier isser.'; //der hauptstring, der durchsucht werden soll
temp := s; //damit s nicht verändert wird, wird s an temp übergeben
suche := 'hier'; //danach wird gesucht
for a := 1 to length(s) do begin //schleife
  c := pos(suche, temp); //hier wird immer nach dem nächsten suchen gesucht und anschliessend an c übergeben
  if c <> 0 then begin //nur wenn c auch ne position ist
  b := length(s) - length(temp); //hier wird die richtige position ausgerechnet, sonst würde die position nicht stimmen, an der es gefunden wurde
  showmessage('An Position "' + inttostr(c + b) + '" ist ein "' + suche + '".'); //gibt halt ne meldung aus wo was gefunden wurde
  temp :=  copy(temp, c + length(suche), length(temp)); //hier wird der string zurechtgeschnitten, sonst würde immer die gleiche position rauskommen, an der das erste gefunden wurde...
  end;
end;

[iLLe]

Die drei zeilen kommen mir chinesisch vor liegt wohl daran das ich anfänger bin

Code:

c := pos(suche, temp); 
b := length(s) - length(temp); // vorallem die zeile ??!
temp :=  copy(temp, c + length(suche), length(temp));

vorallem die zweite zeile irgendwie denk ich falsch glaub ich

[iLLe]

und die ausgabe c+b mhh.. irgendwie leuchtet mir nicht ein