Longuer de lignes

Question

Bonjour,



J'essaie de faire un prog qui me permettrait de formatter un texte en lui donnant une longueur de ligne limite.



J'ai fait quelques recherches pour trouver les diff&#233;rents param&#232;tres
n&#233;cessaires pour conna&#238;tre la longueur des lignes et leur manipulation
mais je n'arrive pas a poursuivre mon projet car a un moment donn&#233; sa
crash sans prevenir : quand je passe a ligne suivante.



Pour la premiere ligne je peux arriver a couper la ligne pour qu'elle
soit d'une longueur de 84 caract&#232;res ou plus mais le moment venu de
compter la longueur de la deuxi&#232;me ligne vb g&#232;le et me previens que je
vais perdre toutes mes donn&#233;es et je dois le fermer sans sauvegarde.



Voici le code pour une ligne (qui marche):



Private Const EM_LINEINDEX = &HBB

Private Const EM_GETLINE = &HC4

Private Declare Function SendMessageLong Lib "user32" Alias
"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As
Long, ByVal lParam As Long) As Long

Private Sub cmd1_Click()

Dim lngNbLignes As Long, i As Long, k As Long

Dim lngIndexCar As Long, intLongueur As Integer

Dim strLigne As String



'nombre de lignes

lngNbLignes = SendMessageLong(rtbun.hwnd, EM_GETLINECOUNT, 0, 0)

k = 1

lngIndexCar = SendMessageLong(rtbun.hwnd, k - 1, 0, 0)

intLongueur = SendMessageLong(rtbun.hwnd, EM_LINELENGTH, lngIndexCar, 0)

If intLongueur > 84 Then

    For i = intLongueur To 0 Step -1

        If Mid(rtbun.Text, i, 1) = Chr(32) Then

            rtbun.SelStart = i

            rtbun.SelText = vbCrLf

           
rtbun.SelStart = SendMessageLong(rtbun.hwnd, EM_LINEINDEX, k + 1, 0)

            rtbun.SetFocus

            SendKeys Chr(3)

            SendKeys Chr(8)

            SendKeys Chr(32)

            Exit For

        End If

    Next i

End If
End Sub



Maintenant ce que je pensais faire pour un nombre variable de lignes (qui crash):



For k = 1 To lngNbLignes - 1

lngIndexCar = SendMessageLong(rtbun.hwnd, k - 1, 0, 0)

intLongueur = SendMessageLong(rtbun.hwnd, EM_LINELENGTH, lngIndexCar, 0)

If intLongueur > 84 Then

    For i = intLongueur To 0 Step -1

        If Mid(rtbun.Text, i, 1) = Chr(32) Then

            rtbun.SelStart = i

            rtbun.SelText = vbCrLf

           
rtbun.SelStart = SendMessageLong(rtbun.hwnd, EM_LINEINDEX, k + 1, 0)

            rtbun.SetFocus

            SendKeys Chr(3)

            SendKeys Chr(8)

            SendKeys Chr(32)

            Exit For

        End If

    Next i

End If

Next k



Si vous connaissez la r&#233;ponse merci de bien vouloir me la communiquez.


One step away from ...

cs_dragon · Answer

Si j,ai bien compris, c'est &#231;a que tu veux. D&#233;soler je l'ai coder ici, donc s,il y a un petit bug, genre une paranth&#232;se qui manque, c'est normal

public function couper(texte as string, longueur as integer) as string()
   redim couper(int(len(texte)/longueur) + iif(len(texte) mod longueur = 0,0,1)))
   for i as integer = 0 to ubound(couper) - 1
      couper(i) = mid(i * longueur,longueur)
   next i
   couper(ubound(couper)) = mid(ubound(couper) * longueur))
end function


------------------------------------------------- 
Dragon alias aussi Waxime mais bon, pas le gout de refaire un nouveau profil lol 
-------------------------------------------------

3edbill69 · Answer

ok, j'ai pas encore test&#233; &#231;a parce que je veux prendre le temps de tout piger:

ce que tu me propose, c'est de mettre chaque ligne coup&#233;e dans un tableau de cha&#238;ne de caract&#232;res n'est-ce pas?



Si oui, alors non, ce n'est pas ce que je veux car un texte peut
commencer par un simple titre de moins de x caract&#232;res voulus, ce qui
veux dire que je dois absolument conserver le texte dans le rtbox ou
txtbox, que je ne peux pas tout simplement calculer x caract&#232;res.



A quoi sert ubound i&#231;i (je ne connais pas cette fonction)?



ps:en fait mon problem c'est que vb semble &#234;tre incapable de calculer
la longueur des lignes 2,3.... lorsque j'ai d&#233;j&#224; modifi&#233; la premi&#232;re.


One step away from ...

cs_dragon · Answer

ubound sert a savoir la grandeur du tableau

bon 2e essai

public function compteurLigne(texte) as integer
   return ubound(split(texte,vbcr)) + 1
end function


------------------------------------------------- 
Dragon alias aussi Waxime mais bon, pas le gout de refaire un nouveau profil lol 
-------------------------------------------------

3edbill69 · Answer

Ok, en supposant qu'il faille utiliser ABOSULEMENT UN TABLEAU, peut
juste me dire ce que je devrais faire avec return
ubound(split(texte,vbcr)) +1 ?

Surement que tu en connais beaucoup plus sur le rayon car moi la je ne vois pas ou tu veux en venir.



Desolez de te faire perdre tant de temps.

Si tu pouvais jeter un coup d'oeil au projet
Entre le texte :



Hhghfodhgidlfhiiofd;hogu9pdfihub90gfyjhiftughjikfjiouhikflu9gjyhpogubdkhigyidogk djpg

Hhghfodhgidlfhiiofd;hogu9pdfihub90gfyjhiftughjikfjiouhikflu9gjyhpogubdkhigyidogkdjpg



et clique sur le bouton: tu verras le resultat recherch&#233;.

Un ben je voudrais juste savoir si il y a un moyen de repeter cette proc&#233;dure sans provoquer un arr&#234;t du programme.



Merci d'avoir pris le temps de lire ce message.
One step away from ...

cs_dragon · Answer

le split permet de convertir un chaine de caract&#232;re en tableau d&#233;pendant un certain caract&#232;res. ce cas ci, le vbcr ou vbcrlf qui est le saut de ligne


une fois le tableau tu regarde le nombre de ligne et tu ajoute 1, puisqu'un tableau d&#233;bute &#224; 0 et tu veux avoir ligne 1


puis tu retourne le r&#233;sultat


------------------------------------------------- 
Dragon alias aussi Waxime mais bon, pas le gout de refaire un nouveau profil lol 
-------------------------------------------------

Gobillot · Answer

c'est ce message qui fait planter: ~~lngIndexCar = SendMessageLong(rtbun.hwnd, k - 1, 0, 0)~~ lngIndexCar = SendMessageLong(Rtbun.hwnd, EM_LINEINDEX, k, 0) d'autre part comme le nombre de lignes change, il faut commencer par la fin: For k = lngNbLignes - 1 To 0 Step -1 et le nombre à parcourir sur une ligne n'est pas bon: For i = (lngIndexCar + intLongueur) To (lngIndexCar + 1) Step -1 Daniel

3edbill69 · Answer

Merci j'&#233;tais sur que ce ne devais qu'une bourde conne de ma part.

Apr&#232;s quelque modif &#231;a a march&#233;.



Merci de votre aide.

One step away from ...

Longuer de lignes

7 réponses

Discussions similaires