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.

[bra]

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

Delphi-Quellcode:

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:

Delphi-Quellcode:

sstring = '[hier ein String mit 200 Zeichen]' + '[hier ein String mit 200 Zeichen]';

[SneakyBagels]

Zitat:

Zitat von bra (Beitrag 1373702)

Doch, es gibt diese Grenze noch

Zitat:

Zitat von Uwe Raabe (Beitrag 1373700)

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

Ich denke Uwe hat hier recht.

[bra]

Probier es doch einfach aus :roll:

Hab ich übrigens noch nie verstanden, diese Einschränkung.

[DeddyH]

Diese Beschränkung gilt nur in der IDE, nicht aber zur Laufzeit. Insofern habt Ihr alle recht.

[Poelser]

Zitat:

Zitat von bra (Beitrag 1373702)

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

Delphi-Quellcode:

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:

Delphi-Quellcode:

sstring = '[hier ein String mit 200 Zeichen]' + '[hier ein String mit 200 Zeichen]';

So hatte ich meine Codezeilen zusammengebaut, d.h. ich hätte eine Stringzuweisung mit einem Literal über 255 Zeichen Länge. Und was dagegen geht - so hatte ich dann die Aufsplittung erzwungen. Wie gesagt, Lazarus kann's, Delphi nicht.

@DeddyH: Klar gilt diese Einschränkung nur in der IDE, mir gings ja um die automatische Erzeugung von Quelltext.

CU, der Poelser

[himitsu]

Zitat:

Zitat von Uwe Raabe (Beitrag 1373700)

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.

String-Konstanten sind da bissl "eigen".

Da liegt das Problem einfach nur im Compiler, welcher hier eine Bebrenzung hat, aber das kann man oftmals auftrennen

Delphi-Quellcode:

const x = '1 2 3 ... 255' + '1 2 3 ... 255';

und dann hat jedes "Literal" (Konstante) wieder unter 256 Zeichen.

[p80286]

Jo so ist das
bei

Delphi-Quellcode:

const
  SQLTEXT='Select ganz viele Felder where noch mehr Bedingungen..........';

bekommt der Compiler einen Schluckauf.
Aber

Delphi-Quellcode:

const
  SQLTEXT='Select Feld1, feld2, Feld3....'+
          ' ,Feld10,Feld11 ....'+
          'Where 1=1 '+
          ' and T1.id=T2.ID '+
          ' and Bedingung2 '+
          ' and Bedingung3 '+
          .....
          ' and Bedingung 99 '+
          '';

akzeptiert er problemlos.

Gruß
K-H

[Uwe Raabe]

Zitat:

Zitat von p80286 (Beitrag 1373723)

akzeptiert er problemlos.

Ist auch viel leichter zu lesen...

[himitsu]

Zitat:

Zitat von Uwe Raabe (Beitrag 1373740)

Ist auch viel leichter zu lesen...

Ich wünsche mir aber doch ab und an auch mal eine MultiLineString-Konstante, wie sie andere Sprachen kennen.

Entweder einfach erlauben, das es automatisch in der nächsten Zeile weiter geht, wenn ein String nicht mit ' in dieser Zeile endet.

oder eben mit einem "neuen" String-Delimiter, welcher womöglich noch frei definierbar ist.
z.B. wie beim CDATA im XML oder z.B. dem $$ im Postgres.

Delphi-Quellcode:

mein_string := 'dsadsa
  dsdsa
  dsadas';  // der Pascal-Highlighter hier kann es doch auch, obwohl es eigentlich "falsch" ist ;)

mein_string := $$dsadsa
  dsdsa
  dsadas$$;

mein_string_mit_SS := $FREI_DEFINIERT$dsadsa
  mit $$ dazwischen
  dsadas$FREI_DEFINIERT$;

Würde es noch leichter lesbar machen und den Copy&Paste von z.B. mehrzeiligen SQLs vereinfachen.

Und ja, ich hab im Kontextmenü schon mal diese Text-zu-DelphiString-Menüs entdeckt.