EXTRAIT DE CHAINE

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

Pour le Fun

FONCTION Chaine_Decoupe ( p_sChaineSource est une chaîne ...
, p_nTailleDesMorceaux est un entier ...
, p_sSeparateur est une chaîne = TAB ...
, p_bErreur = Faux) : chaîne
LOCAL
sChaineSource est une chaîne = p_sChaineSource
nTailleSource est un entier = Taille(sChaineSource)
sChaineDecoupee est une chaîne = ""
sSeparateur est une chaîne = p_sSeparateur
nTailleDesMorceaux est un entier = p_nTailleDesMorceaux
nPosition est un entier

SI nTailleSource = 0 _OU_ nTailleDesMorceaux < 1 ALORS
p_bErreur = Vrai
SINON

nPosition = 1
TANTQUE nPosition < nTailleSource
sChaineDecoupee+= Milieu(sChaineSource,nPosition,nTailleDesMorceaux) + sSeparateur
nPosition += nTailleDesMorceaux
FIN
FIN

RENVOYER(sChaineDecoupee)

 

Code (Text):

CONSTANT
    PAR_4    = 4
FIN
// Variables
MaChaîne est une chaîne = "AZERTNOLMP0987654DFG"
SousChaine est une chaîne
i est un entier = 1

// Parcours du champ
TANTQUE i <= Taille(MaChaîne)
    SousChaine = MaChaîne[[i A i + PAR_4 - 1]]
    Trace(SousChaine)
    i += PAR_4
FIN
 

 

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

Je suppose que lorsque tu auras besoin d'une découpe par 5, il n'y aura que quelqu'un caractère à changer .... tel que " Par_4 = 5 "

Bien cordialement

 

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

Il est vrai que TAILLE_PAR_MORCEAU = 4 aurait été plus beau !

Mais mon intervention était de donner une alternative à votre solution, pas un concours "de savoir qui a la plus longue !"

Bien cordialement.

 

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

Loin de moi cette idée de concours ...

Ton code répond parfaitement à la demande ... le mien est plus générique ...

Si mes remarques t'ont blessé, je m'en excuse profondément

Au plaisir de te lire à nouveau .

Bien cordialement

 

Bravo à tous !