Retour à la ligne tous les X caractèresRésolu

Question

Re-salut. Je ne sais pas trop comment formuler la question alors euh voilà :

Comment faire pour passer de ça :

qmsleijhgeiohrgpoiehrpgiejhpiorxjpzoiehrgpeizuohrpgioejhporjgkegtrtmkljdmqosjkhmlioezuhypgiuehp

à ça :

qmsleijhgeiohrgpoieh
dpgiejhpiorxjpzoiehr
gpeizuohrpgioejhporj
gkegtrtmkljdmqosjkhm
lioezuhypgiuehp

Pour un bloc bien aligner et tout... genre le truc PGP...

PCPT · Accepted Answer

salut,
fonction SplitNumberChars, à cette adresse :
http://www.codyx.org/snippet_split-selon-nombre-max-caracteres-voulu-tenant-compte_448.aspx#1453

(ne pas oublier de faire une recherche avant de poster )

++
[hr]

vegetalain · Answer

Merci je zieute ça.
Et promis je persévèrerais dans mes recherches avant de poster trop vite  la prochaine fois, hihihi !

Bonne zournée!

elguevel · Answer

J'aurai fais plus simplement avec un modulo, très pratique pour çà !


    Private Function MaFonction(ByVal Chaine As String, ByVal LongueureLigne As Integer) As String

        Dim temp As String = ""

        For I As Integer = 0 To (Chaine.Length - 1)

            If ((I Mod LongueureLigne) = 0 And I > 0) Then temp += vbCrLf

            temp += Chaine.Chars(I)

        Next

        Return temp

    End Function

PCPT · Answer

elguevel -> regarde le thème, tout en haut...

elguevel · Answer

Oups Désolé !


Je corrige en VB6 :

Public Function MaFonction(Chaine As String, LongueureLigne As Integer) As String
   Dim temp As String
   temp = ""
   Dim I As Integer

   For I = 1 To Len(Chaine)
      If ((I Mod LongueureLigne) 0 And I > 0) Then temp temp + vbCrLf
      temp = temp + Mid(Chaine, I, 1)
   Next
   MaFonction = temp
End Function

vegetalain · Answer

Coooooooool ça marche top bien...
Merci à donf,

Retour à la ligne tous les X caractères

6 réponses

Votre réponse

Discussions similaires