Zeichen in String ersetzen

[bcvs]

Ich würde da auch auf jeden Fall über eine Zeichenersetzungs-procedure gehen und da alle möglichen Fälle abarbeiten. Ist doch viel übersichtlicher.

Falls es in D5 noch kein ReplaceStr, AnsiReplaceText, StringReplace oder dergleichen gab, schreib dir einfach eine eigene. z.B.

Delphi-Quellcode:

function ReplaceString(StrOri, SuchStr, Repl:String):String;
var posi:integer;
begin
  posi:=pos(SuchStr, StrOri);
  while posi > 0 do begin
    StrOri:=copy(StrOri,1,posi-1)+ repl +
            copy(StrOri, posi+length(SuchStr), length(StrOri)-posi-length(SuchStr)+1);
    posi:=pos(SuchStr, StrOri); 
  end;
  result:=StrOri;
end;

Und dann wie bereits vorgeschlagen:

Delphi-Quellcode:

s := '0,,25,01640X0174,01747,23,,,,47X014747';
s := ReplaceString(s,'X01',' Typ A: ');
s := ReplaceString(s,'01',' Typ B: ');
while Pos(',,',s) > 0 do begin
  s := ReplaceString(s, ',,', ',');
end;

[DeddyH]

Nach meiner Kenntnis gibt es in Delphi 5 sehr wohl die StringReplace-Funktion.

[ConnorMcLeod]

Du läufst den kompletten String Zeichen für Zeichen durch und merkst Dir die Chars, an denen Du vorbeikommst.
Deine längste "Kennung" ist drei Zeichen lang (X01). Also brauchst Du nur drei Char-Variablen, die Du in dieser Schleife füllst/schiebst und prüfst, ob eine der Kennungen vorkommt. Die korrekten Zeichen und die korrigierten/ersetzten Zeichen schreibst Du in einen neuen (Ergebnis-)String.
Oder Du schaust Dir mal an, wie ein Parser arbeitet

[relocate]

Zitat von DeddyH:

Nach meiner Kenntnis gibt es in Delphi 5 sehr wohl die StringReplace-Funktion.

Die gibt es aber nicht ContainStr und ReplaceStr.

Leider stoße ich auch immer wieder auf so etwas. Gibt es eine Übersicht, ab wann welche Funktion in Delphi verfügbar ist. Auf den Emba-Seiten steht die Version so weit ich weiß nicht.

[Luckie]

Was lernen wir daraus? Backup und nie mit den original Daten arbeiten.

[p80286]

Zitat von bcvs:

Falls es in D5 noch kein ReplaceStr, AnsiReplaceText, StringReplace oder dergleichen gab, schreib dir einfach eine eigene.

Oder such nach FastCode, da solltest Du auch das eine oder andere finden.

Gruß
K-H

[a.def]

Zitat von p80286:

Zitat von bcvs:

Falls es in D5 noch kein ReplaceStr, AnsiReplaceText, StringReplace oder dergleichen gab, schreib dir einfach eine eigene.

Oder such nach FastCode, da solltest Du auch das eine oder andere finden.

Gruß
K-H

Oder das hier. Benutze ich schon seit Jahren und hatte noch nie Probleme.

Delphi-Quellcode:

function StringReplaceEx(const aString, FromStr, ToStr: string; bCaseSensitive: Boolean = False): string;
var
 i: Integer;
 aStringA, aFromStrA, aToStrA: string;
begin
 aStringA := aString;
 aFromStrA := FromStr;
 aToStrA := ToStr;

 if FromStr = aStringA then
  begin
   Result := aStringA;
   Exit;
  end;

 Result := '';

 if not bCaseSensitive then
  i := Pos(UpperCase(aFromStrA), AnsiUpperCase(aStringA))
 else
  i := Pos(aFromStrA, aStringA);

 while i > 0 do
  begin
   if i > 1 then
    Result := Result + Copy(aStringA, 1, i - 1);

   Result := Result + aToStrA;

   Delete(aStringA, 1, i + Length(aFromStrA) - 1);

   if not bCaseSensitive then
    i := Pos(UpperCase(aFromStrA), AnsiUpperCase(aStringA))
   else
    i := Pos(aFromStrA, aStringA);
  end;

 Result := Result + aStringA;

// Aufruf z.B. in einem Button
showmessage( StringReplaceEx('C++ ist toll', 'C++', 'Delphi') );