FastReplace mehrerer Zeichen in String

[hoika]

Hallo #,

ich muss einen Stirng nach ungültigen Zeichen durchsuchen.
Das sind in meinem Fall alle mit Ord() 0-31, 128-159, >255,
zur Info, das sind die, die in IOS8859_1 ungültig sind.

Mein bisheriger Ansatz ist eine For-Schleife.
Jedes Zeichen per Ord prüfen und durch Leerzeichen ersetzen.

Klingt langsam, wird es wohl auch sein.

Gibt es nicht so eine Art StringReplaceList ?

Danke


Heiko

[himitsu]

Ich glaub in den Jedi ist dafür was drine
und auch in der DP gibt es schon mehrere unterschiedliche Implementationen für sowas

z.B. MultiStringReplace

Aber nein, so langsam ist das mit der Schleife garnicht und notfalls kannst du auf einen PChar umsteigen,
denn nahezu alle fertigen Lösungen sind eher allgemeiner und nicht "genau" auf dein Problem zugeschnitten.

Delphi-Quellcode:

for i := 1 to Length(S) do
  if (S[i] > #255) or CharInSet(S[i], [#0..#31, #128 ... ]) then
    S[i] := ' ';

// oder

UniqueString(S);
P := PChar(S);
for i := Length(S) - 1 downto 0 do
  if (P[i] > #255) or CharInSet(P[i], [#0..#31, #128 ... ]) then
    P[i] := ' ';

[p80286]

mach es doch mit einem array:

Delphi-Quellcode:

myrightchar = array [0..255] of byte;
for i:=0 to 255 do
  if i="gültig" then myrightchar[i]:=i else myrightchar[i]:=0; //oder $20 oder .....

..blockread oder Filestream .....
for i:=0 to cred-1 do 
writebuffer[i]:=myarray[readbuffer[i]];

Gruß
K-H

geht natürlich nur bis Ansi-Char...

[himitsu]

Wohl eher

Delphi-Quellcode:

myrightchar = array [Char] of Char;
for C := #0 to High(myrightchar) do

PS: Bei ihm handelt es sich Unicode (siehe >255), also 0..65535.

Jetzt bleibt nur noch die Frage, ob sich das Array, mit seinen 65536 Einträgen schneller aufbaut, als sich der kurze String prüfen läßt.
(bei mir ist auch eine Art Array "TSysCharSet" versteckt)


[edit]

Zitat:

geht natürlich nur bis Ansi-Char...

Stand das schon von Anfang an da?

[p80286]

Zitat von himitsu:

Zitat:

geht natürlich nur bis Ansi-Char...

Stand das schon von Anfang an da?

Nee, beim Abspeichern gemerkt das 16bIT bald immer genutzt wird.
Darum übrigens auch Byte statt char, dann gibts kein Vertun (hoffe ich).

Gruß
K-H

[himitsu]

Dann mußt du aber aufpassen, daß readbuffer auch nur Byte ist.

Bei Word/Char, hätte Indexfehler, wenn der Inhalt mal über 255 ist.