AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Code-Bibliothek Library: Algorithmen Delphi Position des X-ten Vorkommens eines Strings ermitteln

Position des X-ten Vorkommens eines Strings ermitteln

Ein Thema von Matze · begonnen am 8. Apr 2006
Antwort Antwort
Benutzerbild von Matze
Matze
(Co-Admin)

Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.987 Beiträge
 
Turbo Delphi für Win32
 
#1

Position des X-ten Vorkommens eines Strings ermitteln

  Alt 8. Apr 2006, 20:44
SirThornberry hat in diesem Betrag folgenden Code gepostet, der die Position des X-ten Vorkommens eines Strings ermittelt. Es kann, ähnlich wie bei Delphi-Referenz durchsuchenPosEx angegeben werden, ab welcher Position das X-te Vorkommen gesucht werden soll. In der Praxis benötigt man meistens nicht beide Funktionen gleichzeitig, sondern entwerde die Ermittlung des X-ten Vorkommens vonm Anfang an, oder die Ermittlung eines Vorkommens ab einer bestimmten Position (vgl. PosEx).

Delphi-Quellcode:
function GetPosNumX(const ASubStr, AFullStr: String; AFoundCnt: Word; AStartPos: Integer=1): Integer;
var
  LFoundCnt : Word;
  LCompCnt,
  LFullLen,
  LGiveback,
  LMax,
  LPos,
  LSubLen : Integer;
  LPtr1,
  LPtr2 : PChar;
begin
  LFullLen := Length(AFullStr);
  LSubLen := Length(ASubStr);
  if (AStartPos < LFullLen - LSubLen + 2) then
  begin
    // An dieser Stelle incrementieren da wir sonst an 2 anderen Stelle
    // incrementieren müssten
    dec(AStartPos);
    LGiveback := 0;
    LFoundCnt := 0;
    LMax := LFullLen - LSubLen + 2;
    LPtr1 := PChar(AFullStr) + AStartPos;
    LPtr2 := PChar(ASubStr);
    for LPos := AStartPos to LMax do
    begin
      LCompCnt := 0;
      while (LCompCnt < LSubLen) and (LPtr1[LCompCnt] = LPtr2[LCompCnt]) do
       inc(LCompCnt);
      if LCompCnt = LSubLen then
      begin
        inc(LFoundCnt);
        if LFoundCnt = AFoundCnt then
        begin
          LGiveback := LPos + 1;
          Break;
        end;
      end;
      inc(Cardinal(LPtr1));
    end;
    result := LGiveback;
  end else
    result := 0;
end;
  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 20:53 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