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).

[bra]

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

Delphi-Quellcode:

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

[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

[Poelser]

Zitat:

Zitat von erich.wanker (Beitrag 1373689)

.. 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:

Zitat von Poelser (Beitrag 1373696)

Zitat:

Zitat von erich.wanker (Beitrag 1373689)

.. 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.

[Uwe Raabe]

Zitat:

Zitat von Poelser (Beitrag 1373696)

aber in Delphi gab's haufenweise Fehler beim Übersetzen: "Stringliteral kann nicht mehr als 255 Zeichen lang sein".

Das funktioniert alles prima, solange man nicht mit den alten ShortStrings arbeitet. Ansonsten ist diese Begrenzung in Delphi schon sehr lange abgeschafft.

Wenn du mal etwas Code zu dieser Fehlermeldung zeigen könntest, wäre auch eine genauere Analyse möglich.