Nombre de lignesRésolu

Question

Bonjour à tous,
Je voudrais savoir si il était possible de créer une variable (en integer) qui donnne le nombre de lignes présentes dans une RichTextBox.
Merci d'avance.

Kristof_Koder · Accepted Answer

welcometomyheaven < Ne aps déclarer une variable !!! Drôle de conseil !!!
IL FAUT TOUJOURS DECLARER SES VARIABLES ! VB permet de ne pas el faire mais cela ne devrait pas exister !! C'est une abbération !!! "OPTION EXPLICIT" doit toujours être à ON !! En fait, cette option ne devrait même pas exister tout court !

Marneus73 < Ton code avec le ubound sur le split était presque bon. Sauf qu'il faut faire le split() sur vbLf uniquement ! le RichTextBox n'emploie pas le CRLF pour passer à la ligne.
Il faudra aussi penser à ajouter 1 au résultat de UBOund() car l'indice est à base zéro.

MessageBox.Show(UBound(Split(RichTextBox1.Text, vbLf)) + 1)

cs_Exploreur · Answer

Salut,

Regarde cette discussion si elle peut te venir en aide...

A+
Exploreur

 Linux a un noyau, Windows un pépin

Marneus73 · Answer

J'ai essayé ceci:  MessageBox.Show(UBound(Split(RichTextBox1.Text, vbCrLf)))
Mais je n'obtient que des Zéros !!!

welcometomyheaven · Answer

bonjour
voila la réponse
copie ce code et ça va marché 

Public Function NTotal(RichTextBoxLigne As String)
    Dim numLines, Texte
    numLines = 1
    Texte = RichTextBoxLigne
    Do
        Apostrophe = InStr(Texte, vbCrLf)
        If Apostrophe <> 0 Then
            numLines = numLines + 1
            Texte = Mid(Texte, Apostrophe + 1, Len(Texte) - Apostrophe)
       Else
            Exit Do
        End If
    Loop
    NTotal = numLines
End Function


Private Sub Command1_Click()
    MsgBox NTotal(Text1.Text)
End Sub

Marneus73 · Answer

Salut
Oulala mais c'est super long !!!

welcometomyheaven · Answer

bonjour
mais pas du tout
il suffu de le copier et ajouter une command et un textbox et voila c fai

Marneus73 · Answer

VB geule en me disant que "Apostrophe" n'est pas déclaré, c'est quoi comme type de variable ?

Marneus73 · Answer

Je l'ai défini en tant qu'Integer et ça marche pas, je n'ai que des 1
Je comprends vraiment rien !!!

welcometomyheaven · Answer

bonjour
est ce ke t'as copier le code comme il est?
et pour "Apostrophe" tu peu la changer avec ce que tu veu comme variable ex: X ou Y
et il ne fau pas la declarer
n'oublie pas d'ajouter une textbox un et buton de commande et ne change pas leur nom

Marneus73 · Answer

J'ai copié le code texto et rien à part des 1 !

cs_Exploreur · Answer

Salut,

Mon premier poste est issue d'une recherche avec le moteur de recherche du site sur le forum, et il se peut qu'il te fasse adapter le code proposer en .net(je n'en sais rien, mais toi seul le sait)...

Utilise le moteur, tu y trouvera une mutlitude de topics sur le RichTextBox...

Et la solution de welcometomyheaven ne te convient pas ? Il se peut qu'il faut que tu retouches le code proposer en VB6 vers .Net

A+
Exploreur

 Linux a un noyau, Windows un pépin

Marneus73 · Answer

Re Bonjour.
Voila pourquoi rien ne marche chez moi, je suis en VB.Net !J'ai fait une recherche sur le site, et je ne trouve que deux discussions: celle d'Exploreur et une autre où ils donnent des codes astronomiques. J'ai aussi essayé sur l'aide du logiciel mais là aussi rien. Le seul truc qu'il me propose de compter ce sont les lignes d'une table (Visual Database Tools). Je vais tenter ma chance sur google...

lolokun · Answer

salut,

J'ai recherché et testé le code qui était mentionné aussi en vb.net dans le lien que 17710  Exploreur avait donné.
Avec MessageBox.Show(UBound(Split(RichTextBox1.Text, vbCRLf))) 
j'obtiens 0.
vbcr  = chr$(13) ' retour chariot
vblf = chr$(10) ' retour ligne
vbcrlf = chr$(13)+chr$(10)

J'ai essayé avec vbLf et là j'obtiens 3 alors que j'ai 4 lignes dans le richtextbox.

Marneus73 · Answer

Super !!!
Merci bien Ca marche.
Encore un dernier petit truc: c'est quoi: "vbLf" et "vbCRLf" ?

lolokun · Answer

Regarde sur mon post c'est expliqué :
vbLf c'est retour à la ligne sans le retour chariot.

Kristof_Koder · Answer

LF = Line Feed = Saut de ligne (code ascii 10)
CR Carriage Return Retour chariot (code ascii 13)

Sous Windows, un changement de ligne est normalement fait avec deux caractères : un CR + un LF, d'ou l'existance de la constante vbCRLF. En fait :
vbCRLF = vbCR & vbLF, tout simplement

Marneus73 · Answer

Ah Ok merci bien à tous

Nombre de lignes

17 réponses

Votre réponse

Discussions similaires