stringreplace (String > 255 zeichen) geht nicht ..

[erich.wanker]

Hallo Leute,

Ein Stringreplace bereinigt nicht den ganzen text - wenn EINE EINZIGE ZEILE des Memos den ganzen Text beinhaltet ...

1.) lade HTML-Nachricht in Memo1 -
2.) Memo1: zeile für zeile ein Stringreplace
3.) schreibe bereinigte Zeile in memo2
4.) Speichere Memo2

.. ich vermute die 255 Zeichen Grenze ist das Problem??? (gibt sowas überhaupt noch) ??
Was könnte ich da machen ?

Delphi-Quellcode:

unimemo1.Lines.LoadFromFile(mainform.datenpfad+'Mails\'+inttostr(zaehler1)+'\'+inttostr(nummer_integer)+'\html_' + nummer + '.html',TEncoding.UTF8);
unimemo2.Lines.Clear;

for x:=0 to unimemo1.Lines.Count-1 do
  begin
    unimemo2_text:= cidWeg(unimemo1.Lines[x]);
    unimemo2.Lines.Append(unimemo2_text);
  end;

unimemo2.Lines.savetofile(mainform.datenpfad+'Mails\'+inttostr(zaehler1)+'\'+inttostr(nummer_integer)+'\html_' + nummer + '.html',TEncoding.UTF8);
end;

Delphi-Quellcode:

function TMAILS.cidWeg(s : String) : String;
// Danke Nahpets: http://www.delphipraxis.net/192933-stringreplace-im-memo.html
var
  i : Integer;
  k : Integer;
begin
StringReplace(s, 'cid:', '',[rfReplaceAll]);
AnsiReplaceStr(s, 'cid:', '');

  i := Pos('@',s);
  if i > 0 then begin
    k := PosEx('"', s, i);
    if k > 0 then begin
      Result := Copy(s,1,i - 1) + Copy(s,k,Length(s));
    end else begin
      Result := Copy(s,1,i - 1) + '"';
    end;
  end else begin
    Result := s;
  end;
end;

[himitsu]

Zitat:

Delphi-Quellcode:

begin
StringReplace(s, 'cid:', '',[rfReplaceAll]);
AnsiReplaceStr(s, 'cid:', '');

Format nutzt einen 4 KB-Puffer oder so, (vielleicht auch inzwischen nicht mehr ... k.A.)
StringReplace tut das nicht nd arbeitet IMHO direkt im String

Aber schau mal in die OH, vorallem bezüglich dem Unterschied zwischen einer Prozedur (ala Delete) und einer Funktion (ala Copy).

[SneakyBagels]

StringReplace schickt einen Rückgabewert zurück. Der wird hier nirgendwo zugewiesen. Und warum StringReplace und AnsiReplaceStr?

[bra]

Ich vermute das war ein Test, aber beide Funktionen machen so effektiv nix.

[erich.wanker]

Hallo und vielen Dank ..

Lösung: s := StringReplace(s, 'cid:', '',[rfReplaceAll]);

P.S.: das zweite "AnsiReplaceStr" war nur ein test ..

LiGrü
Erich

[bra]

Da muss das Ergebnis von StringReplace oder AnsiReplaceStr auch irgendwo zugewiesen werden:

Delphi-Quellcode:

s := StringReplace(s, 'cid:', '',[rfReplaceAll]);
s := AnsiReplaceStr(s, 'cid:', '');

[Poelser]

Zitat von erich.wanker:

.. ich vermute die 255 Zeichen Grenze ist das Problem??? (gibt sowas überhaupt noch) ??

Doch, die Grenze gibt es immer noch.
Ich hatte mit Lazarus ein Progrämmchen geschrieben, das aus einer Datenbank Grundobjekte für den Zugriff erstellte, mit INSERT INTO... usw. Die erzeugten Units compilierten in Lazarus einwandfrei, aber in Delphi gab's haufenweise Fehler beim Übersetzen: "Stringliteral kann nicht mehr als 255 Zeichen lang sein".
Ich musste mir einen Zähler einbauen, um bei Überschreitung die zu langen Strings entsprechend zu splitten - damit war das Problem behoben.
Ich hatte erst auch nicht gedacht, dass diese Grenze in 10.1 Berlin (Tokyo habe ich nicht probiert) immer noch existiert.

CU, der Poelser

[SneakyBagels]

Zitat von Poelser:

Zitat von erich.wanker:

.. ich vermute die 255 Zeichen Grenze ist das Problem??? (gibt sowas überhaupt noch) ??

Doch, die Grenze gibt es immer noch.
Ich hatte mit Lazarus ein Progrämmchen geschrieben, das aus einer Datenbank Grundobjekte für den Zugriff erstellte, mit INSERT INTO... usw. Die erzeugten Units compilierten in Lazarus einwandfrei, aber in Delphi gab's haufenweise Fehler beim Übersetzen: "Stringliteral kann nicht mehr als 255 Zeichen lang sein".
Ich musste mir einen Zähler einbauen, um bei Überschreitung die zu langen Strings entsprechend zu splitten - damit war das Problem behoben.
Ich hatte erst auch nicht gedacht, dass diese Grenze in 10.1 Berlin (Tokyo habe ich nicht probiert) immer noch existiert.

CU, der Poelser

Komisch. Ich kann einem String weit über 600 Zeichen zuweisen und selbst dann noch mehr.

[nahpets]

Spätestens seit Delphi 7 gibt es diese Grenze nicht mehr, es sei denn, man definiert einen String entsprechend oder nutzt ShortString.

Delphi-Quellcode:

var
  s1 : String[255]; // 1 .. 255 ist möglich
  s2 : ShortString; // String hat 255 Zeichen.

[bra]

Doch, es gibt diese Grenze noch, aber soweit ich weiss nur, wenn man den String direkt im Code zuweist (Tokyo):

sstring = '[hier ein String mit > 255 Zeichen]';

Zitat:

[DCC Error] bla.pas(115): E2056 String literals may have at most 255 elements

Was dagegen geht:
sstring = '[hier ein String mit 200 Zeichen]' + '[hier ein String mit 200 Zeichen]';