L'auteur
 FoxInCloud (Th. Nivelet)
France Membre Simple # 0000000014 enregistré le 13/10/2004
http://www.foxincloud.com/ Nivelet Thierry 75016 Paris de la société Abaque Fiche personnelle
Note des membres
pas de note
|
Contributions > 01 - PRG : Programmation > Conversions
cRepCharDel () Séquences de caractères identiques remplacées par un caractère simple
# 0000000024
ajouté le 21/10/2004 10:22:54 et modifié le 30/03/2005
consulté 9336 fois
Niveau
débutant
|
Description |
Le titre dit tout ...
cRepCharDel_Test() illustre le comportement de cRepCharDel() |
Code source : |
* -------------------------------------------------------------
FUNCTION cRepCharDel && Séquences de caractères identiques remplacées par un caractère simple
LPARAMETERS ;
tcChain,; && Chaine de caractères à traiter
tcChar && [space(1)] Caractère dont les répétitions sont à éliminer
LOCAL lcResult
m.lcResult = space(0)
IF Vartype(m.tcChain) = 'C'
m.lcResult = m.tcChain
LOCAL lcChar, lcChar2
m.lcChar = Iif(Vartype(m.tcChar)='C' and Len(m.tcChar)>0, Left(m.tcChar,1), ESPACE)
m.lcChar2 = m.lcChar + m.lcChar
DO WHILE m.lcChar2 $ m.lcResult
m.lcResult = Strtran(m.lcResult, m.lcChar2, m.lcChar)
ENDDO
ENDIF
RETURN lcResult
* -----------------------------------------------------------------
PROCEDURE cRepCharDel_Test && Teste cRepCharDel
? Sys(16)
? cRepCharDel ('appuie--tête', '-') == 'appuie-tête'
? cRepCharDel ('appuie tête') == 'appuie tête'
? cRepCharDel ('appuie--------------tête', '-') == 'appuie-tête'
|
Commentaires |
Aucun commentaire enregistré ...
|