Page 1 sur 1
doubler une chaine de caractère
Publié : ven. 28/sept./2007 13:35
par Buckethead
Bonjour à tous.
Après avoir regardé la bibliothèque String dans le help je bloque.
Je cherche une fonction comparable à str(n,"mon_texte") que j'ai connu dans d'autre basic.
Pour être plus clair je cherche à faire cet exemple: str(3,"ok") = okokok
Publié : ven. 28/sept./2007 14:10
par Mytic
voilà voilà :
Code : Tout sélectionner
Resultat$ = RSet("R", 8) ; Le résultat est: " R"
Resultat$ = RSet("R", 8, "-") ; Le résultat est: "-------R"
Resultat$ = RSet("LongString", 4) ; Le résultat est: "Long"
ou
Code : Tout sélectionner
Resultat$ = LSet("L", 8) ; Resultat$ sera: "L "
Resultat$ = LSet("L", 8, "-") ; Resultat$ sera: "L-------"
Resultat$ = LSet("LongString", 4) ; Resultat$ sera: "Long"
Publié : ven. 28/sept./2007 14:27
par Buckethead
J'avais bien essayé RSet, ou alors il me faut un exemple concret car il ne répète qu'un seul caractère !
Publié : ven. 28/sept./2007 14:38
par Mytic
Oui en effet, elle ne répète qu’un seul caractère
Dsl
Publié : ven. 28/sept./2007 14:43
par Mytic
Je t’ai fait une procédure qui fait cela :
Code : Tout sélectionner
Procedure.s setstring(chaine.s,n.l)
For i = 1 To n
r$+chaine
Next i
ProcedureReturn r$
EndProcedure
Debug setstring("ok",3)
Publié : ven. 28/sept./2007 14:47
par Buckethead
Sympa, merci Mytic
(marche niquel, text$ = setstring("blabla ",100))