comment fusionner des lignes de commentaire tronquéesRésolu

Question

loup28

Bonjour !


J&#146;ai une fonction &#224; &#233;crire qui a pour but de fusionner des lignes de commentaire tronqu&#233;es.


Par exemple :


J&#146;ai le texte suivant : 


i =  10 


i = 10 _


+ 20


i = 10 ' with a comment 


i = 10 ' with a comment _


on several lines


' This is a comment _


on at least _


three lines


 Lorsque VB rencontre le caract&#232;re &#171; _ &#187; en fin de ligne, la fonction doit, par exemple, coller + 20 &#224; i 10 ce qui donne i 10 _ + 20.  


A la fin du petit test ci-dessus on doit pouvoir avoir :


i  = 10 


i = 10 _ + 20


i = 10 ' with a comment 


i = 10 ' with a comment _ on several lines


' This is a comment _on at least _three lines


Pb : je ne sais pas comment faire pour fusionner les lignes. Y a-t-il une fonction d&#233;j&#224; d&#233;finie dans VB ?

philippe laschweng 1 · Accepted Answer

Essayes cette fonction :

Public Function RecomposeString(Message As String, Separateur As String) As String
Dim tableau() As String


   tableau = Split(Message, Separateur)
   RecomposeString = Join(tableau, "_")


End Function

Si ton texte &#224; decomposer se trouve dans une variable String Mess :
MsgBox RecomposeString(mess, "_" & Chr$(13) & Chr$(10))

Le "_" & Chr$(13) & Chr$(10) repr&#233;sente le symbole &#224; rechercher dans le string (tu as bien le symbole '_' mais en plus un retour chariot).

 Phil

fcampagne · Answer

dim fusion as string=""



a chaque fois que tu rencontre le caract&#233;re "_"

tu fais fusion+=ta_ligne

puis tu vide fusion si ta ligne ne poss&#233;de pas "_" a la fin.

Comment fusionner des lignes de commentaire tronquées

2 réponses

Discussions similaires