Exclure des caractères d'un stringRésolu

Question

bonjour, je n'ai pas accès au "Snippets" de mon ordinateur principal alors que j'ai accès par un ordinateur d'un collègue ... bizarre ! je voulais juste proposer une variante du code de FOxi (il avait fait une version de Stringreplace +/-), ma variant est :

function ExcludeChars(const S : string; const CS : TSysCharSet) : string; var i,L:integer; begin result:=s; L:=0; for i:=1 to length(s) do begin if not (s[i] in CS) then begin inc(L); result[L]:=s[i]; end; end; Setlength(result,L); end;

par exemple : showmessage(ExcludeChars('voiture',['i','u'])); "voiture" devient "votre" en m'excusant de poster ici en attendant (vous pouvez bien sur émettre d'autres variantes) DrJerome

Cirec · Accepted Answer

En effet ce Snippet n'a pas été activé
tout simplement parce qu'il n'apporte rien de plus 
et en plus elle est encore plus lente que celle de F0xi

 
@+
Cirec

<hr size="2" />

DRJEROME · Answer

function ExcludeChars(const S : string; const CS : TSysCharSet) : string; var i,L:integer; begin result:=s; L:=0; for i:=1 to length(s) do begin if not (s[i] in CS) then begin inc(L); result[L]:=s[i]; end; end; Setlength(result,L); end;

DrJerome

DRJEROME · Answer

Affaire classée

on laisse tomber, c'est juste de la bidouille

DrJerome

DRJEROME · Answer

Bonjour Cirec

je te crois sur parole pour le test de vitesse. Je n'essaierai pas de faire mieux 

DrJerome

f0xi · Answer

seul la version proposée par Cirec ou Japee ? est plus rapide que la mienne.

Il utilise pour cela un buff de byte plutot qu'un buff de char et bizarrement, c'est plus rapide.

<hr size="2" width="100%" />Croc (click me)

japee · Answer

"seul la version proposée par Cirec ou Japee ?"

c'est Cirec, moi je déclare forfait lol

Cirec · Answer

ce n'est pas vraiment bizarre ... 
les données qu'elles soient en mémoire ou sur le disque sont en Byte (généralement) ... (enfin si je ne raconte pas de conneries )

J'ai fait énormément de testes ces derniers temps avec les pointeurs sur Bytes (PByte) et à tous les coups c'est plus rapide
que n'importe quel autre pointeur dont une fonction (la fonction qui enlève les accents il me semble) qui est jusqu'à 4 fois plus rapide que la tienne  (je ne l'ai pas encore posté mais ça ne saurait tarder )

En tout cas toi qui est "mordu" de vitesse tu devrais t'y intéresser 
les gains ne sont pas négligeables

 
@+
Cirec

<hr size="2" />

Cirec · Answer

Arf ... 
mais c'est qu'il y a du monde encore à cette heure ci 
 
@+
Cirec

<hr size="2" />

Exclure des caractères d'un string

8 réponses

Votre réponse

Discussions similaires