DECOUPAGE D'UN TEXTE SUR UNE LONGEUR DE LIGNE PRÉCISE

Question

Comment decouper une ligne sur un nombre de caractere puis de le mettre a la ligne ainsi de suite.

Merci

cs_Cerber · Answer

regarde la fonction mid(chaine,debut,longueur) Elle renvoie caracteres de depuis le caractere n° de . ou left(chaine,longueur) et right(chaine,longueur) qui renvoient caracteres d'une chaine a partir de la gauche ou de la droite

cs_Cerber · Answer

regarde la fonction mid(chaine,debut,n)

Elle renvoie ncaracteres de chaine depuis le caractere n°debut.

ou left(chaine,n) et right(chaine,n) qui renvoient n caracteres d'une chaine a partir de la gauche ou de la droite

cs_JMO · Answer

Bonjour,

Je viens de passer + d'une heure à rechercher sur le Forum, car la solution m'interesse aussi.
Et j'ai trouvé de code "blq" Découpage d'un texte sur une longueur de ligne précise".
http://www.vbfrance.com/article.aspx?Val=315
Apparemment, il y a une petite erreur (dixit Aterrab).
Quand à moi, je vais essayé de l'adapter en VBS.

Bonne programmation et à +.
       jean-marc

cs_Cerber · Answer

Public Function CouperUneChaine(ByVal uneChaine As String, ByVal n As Integer)
    'cette fonction coupe une chaine tous les n caractères
    'et insere un retour a la ligne entre chaque coupure
    
    Dim tmp As String
    Dim maChaine As String
    Dim retourChariot As String
    Dim i As Integer
    
    retourChariot = Chr(13) & Chr(10) 'retour a la ligne
    maChaine = ""
    
    For i = 1 To Len(uneChaine) Step n
        'on parcour la chaine tous les n caractères jusqu'a
        'la fin de la chaine
        
        tmp = Mid(uneChaine, i, n)
        maChaine = maChaine & tmp & retourChariot
    Next
    
    CouperUneChaine = maChaine
    
End Function

DECOUPAGE D'UN TEXTE SUR UNE LONGEUR DE LIGNE PRÉCISE

4 réponses

Discussions similaires