ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

cRepCharDel () Séquences de caractères identiques remplacées par un caractère simple   



L'auteur

FoxInCloud (Th. Nivelet)
France 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é 4366 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é ...

Publicité

Les pubs en cours :

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2018.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0