AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

String nach einem Substring herausnehmen

Ein Thema von wayne312 · begonnen am 8. Aug 2009 · letzter Beitrag vom 9. Aug 2009
Antwort Antwort
wayne312

Registriert seit: 11. Jul 2009
27 Beiträge
 
#1

String nach einem Substring herausnehmen

  Alt 8. Aug 2009, 21:44
Hey leute,
ich bin noch etwas unerfahren in Delphi und komme grad nicht weiter.
ich habe zb. string1:=('Dies ist ein String'); und jetz möchte ich das wort nach dem 'ist' kopieren.
Mit der Pos funktion hat es auch erst gut geklappt nur als ich dort einen anderen String einfüge nichtmehr so gut.

Hoffe auf hilfe
  Mit Zitat antworten Zitat
SimStar001

Registriert seit: 18. Jan 2008
594 Beiträge
 
#2

Re: String nach einem Substring herausnehmen

  Alt 8. Aug 2009, 21:51
also mittels posex die position von 'ist' bestimmen und dann in einer schleife z.b. und dann den string in mehreren schritten bearbeiten:

Delphi-Quellcode:
s := 'das ist mein string';
s := copy(s,posex('ist',s),length(s));
s := copy(s,pos(' ',s) + 1 , length(s));
// nun ist s ==> 'mein string';
  Mit Zitat antworten Zitat
wayne312

Registriert seit: 11. Jul 2009
27 Beiträge
 
#3

Re: String nach einem Substring herausnehmen

  Alt 8. Aug 2009, 22:01
Vielen Dank SimStar001

Und wie bekomme ich das hin, das er nur 1 wort nimmt? zb. wenn der string länger ist möchte ich ja nicht das komplette ende sondern nur einen teil, ein wort.
Oder so, dass es von dem zeichen " bis zum nächten " geht.

Danke
  Mit Zitat antworten Zitat
Benutzerbild von jaenicke
jaenicke

Registriert seit: 10. Jun 2003
Ort: Berlin
7.266 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#4

Re: String nach einem Substring herausnehmen

  Alt 9. Aug 2009, 06:16
So könntest du es z.B. machen:
Delphi-Quellcode:
function FindNextWord(const AText, APrevWord: string): string;
var
  CurPos: PChar;
begin
  CurPos := PChar(Integer(PChar(AText) + Pos(APrevWord + ' ', AText) + Length(APrevWord)));
  SetString(Result, CurPos, Pos(' ', CurPos) - 1);
end;
Und dann eben so aufrufen:FindNextWord('Das ist ein Test!', 'ist')
Sebastian Jänicke
Alle eigenen Projekte sind eingestellt, ebenso meine Homepage, Downloadlinks usw. im Forum bleiben aktiv!
  Mit Zitat antworten Zitat
alzaimar
(Moderator)

Registriert seit: 6. Mai 2005
Ort: Berlin
4.956 Beiträge
 
Delphi 2007 Enterprise
 
#5

Re: String nach einem Substring herausnehmen

  Alt 9. Aug 2009, 06:39
Vielleicht sollte man die Funktion für einen Anfänger etwas übersichtlicher gestalten und die Sonderfälle (nächstes Wort ab 'Test') absturzsicher berücksichtigen.
"Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!"
(Monty Python "Joke Warefare")
  Mit Zitat antworten Zitat
Benutzerbild von jaenicke
jaenicke

Registriert seit: 10. Jun 2003
Ort: Berlin
7.266 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#6

Re: String nach einem Substring herausnehmen

  Alt 9. Aug 2009, 07:02
Kann man alles machen:
Delphi-Quellcode:
function FindNextWord(const AText, APrevWord: string): string;
var
  CurPos: PChar;
  TempPos: Integer;
begin
  Result := '';
  TempPos := Pos(APrevWord + ' ', AText);
  if TempPos = 0 then
    Exit;
  CurPos := PChar(Integer(PChar(AText) + TempPos + Length(APrevWord)));
    // Beim Zeichen hinter dem gesuchten Wort weitermachen
  TempPos := Pos(' ', CurPos);
  if TempPos = 0 then
    Exit;
  SetString(Result, CurPos, TempPos - 1);
    // Als Ergebnis den Text von der ersten Position bis zum Zeichen vor
    // dem Leerzeichen zurückgeben
end;
Sebastian Jänicke
Alle eigenen Projekte sind eingestellt, ebenso meine Homepage, Downloadlinks usw. im Forum bleiben aktiv!
  Mit Zitat antworten Zitat
alzaimar
(Moderator)

Registriert seit: 6. Mai 2005
Ort: Berlin
4.956 Beiträge
 
Delphi 2007 Enterprise
 
#7

Re: String nach einem Substring herausnehmen

  Alt 9. Aug 2009, 07:58
Vorbildlich! Danke.
"Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!"
(Monty Python "Joke Warefare")
  Mit Zitat antworten Zitat
wayne312

Registriert seit: 11. Jul 2009
27 Beiträge
 
#8

Re: String nach einem Substring herausnehmen

  Alt 9. Aug 2009, 11:05
Danke an alle!
  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 06:39 Uhr.
Powered by vBulletin® Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2019 by Daniel R. Wolf