Replace

[p80286]

Zitat von Jumpy:

Schleife 1 sucht den ersten Buchstaben von alt in text, wenn gefunden vergleicht schleife 2 alle Buchstaben in text ab dieser Stelle mit allen Buchstaben in alt. Stimmt alles überein, haben wir einen Treffer usw.

Wenn ich mich recht erinnere geht es nur darum einzeln Buchstaben durch Buchstabenkombinationen zu ersetzen, da sollte so etwas ausreichend sein

Code:

for i:= 1 to length(zeile) do
  case zeile[i] of
    'ü' : result:=result+'ue';
    'ö' : result:=result+'oe';
    else result:=result+zeile[i];

Wobei die Frage ist ob "case" schon bekannt ist oder ob es mit "if..then..else" gelöst werden muß.

Gruß
K-H

[Sir Rufo]

Wenn man diese Replace-Funktion etwas intelligenter macht

Delphi-Quellcode:

function DoReplaceStr( const AStr: string; out ReplacedStr : string ) : Boolean;
begin
  if not Lookup.TryGetValue( AStr, ReplacedStr ) 
  then
    if Enumerable<string>( Lookup.Keys ).Any( 
      function( const key: string ) : Boolean 
      begin
        Result := key.StartsWith( AStr );
      end )
    then
      Exit( False )
    else
      ReplacedStr := AStr;
  Result := True;
end;

TReplaceCallback = reference to function( const AStr: string; out ReplacedStr: string ) : Boolean;

function ReplaceStr( const AStr : string; ReplaceCallback : TReplaceCallback ) : string;
var
  c: Char;
  Buffer, Replaced : string;
begin
  Result := '';
  Buffer := '';
  for c in AStr do
  begin
    Buffer := Buffer + c;
    if ReplaceCallback( ABuffer, Replaced ) then
    begin
      Result := Result + Replaced;
      Buffer := '';
    end;
  end;
  Result := Result + Buffer;
end;

könnte man sich damit auch eine generelle Umwandlung bauen, die auch von ae wieder zurück nach ä leisten kann.

Ich weiß, geht weit über das Ziel hinaus ... aber ich will ja auch nicht seine Hausaufgaben machen

[Dalai]

Zitat von p80286:

Code:

for i:= 1 to length(zeile) do
  case zeile[i] of
    'ü' : result:=result+'ue';
    'ö' : result:=result+'oe';
    else result:=result+zeile[i];

Case mit Strings? Seit wann soll das denn funktionieren?

MfG Dalai

[baumina]

zeile[i] ist ein case of char.

[Dalai]

Mmh, ich nahm an, dass case immer ordinale Typen haben will, aber es funktioniert tatsächlich, wenn die Auswahlmöglichkeiten Chars sind. Interessant, wusste ich bisher nicht .

MfG Dalai

[Neutral General]

Zitat von Dalai:

Mmh, ich nahm an, dass case immer ordinale Typen haben will, aber es funktioniert tatsächlich, wenn die Auswahlmöglichkeiten Chars sind. Interessant, wusste ich bisher nicht .

MfG Dalai

Char ist ein ordinaler Typ

[CCRDude]

Zitat von Dalai:

Case mit Strings? Seit wann soll das denn funktionieren?

FreePascal 2.6.

War erst skeptisch, aber kann's wirklich übersichtlich machen.