ligne et colonnes d'une richtextbox

Version imprimable

bonjour a tousse

j'ai voullu afficher le nombre de ligne et colonnes dans un label de ma richtextbox

voici mon code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim m_lngTotalLigne As Long
        Dim m_lngNumLigne As Long
        Dim m_lngOldLigne As Long
        Dim iCount As Integer
        Dim iLastPos As Integer
 
        RichTextBoxFR1.Visible = True
        WebBrowser1.Visible = False
        ToolStripStatusLabel1.Text = DateTime.Now.ToLongDateString
        ToolStripStatusLabel5.Text = DateTime.Now.ToLongTimeString
        'nombre de caractères
        ToolStripStatusLabel2.Text = "lettres : " & _
         Len(Replace(Replace(Replace(RichTextBoxFR1.Text, vbCrLf, ""), _
         vbTab, ""), " ", ""))
 
        'nombre total de lignes
        m_lngTotalLigne = RichTextBoxFR1.GetLineFromCharIndex(Len(RichTextBoxFR1.Text)) + 1
 
        'ligne en cours
        m_lngNumLigne = RichTextBoxFR1.GetLineFromCharIndex(RichTextBoxFR1.SelectionStart) + 1
 
        'ligne en cours/nombre total de lignes
        ToolStripStatusLabel3.Text = "Lignes : " & m_lngNumLigne & _
        " / " & m_lngTotalLigne
        '----
        'affichage sur ligne 1
        If m_lngNumLigne = 1 Then
            iCount = RichTextBoxFR1.SelectionStart
        ElseIf m_lngNumLigne > 1 Then
            'récupère la position du curseur / la ligne en cours
            iLastPos = InStrRev(RichTextBoxFR1.Text, vbCrLf, RichTextBoxFR1.SelectionStart)
            iCount = RichTextBoxFR1.SelectionStart - iLastPos - 1
        End If
        '----
        m_lngOldLigne = m_lngNumLigne
        '----
        ToolStripStatusLabel4.Text = "Colonnes : " & iCount
    End Sub

dans mes label il m'affiche nombre de ligne 0 et quand j'écrie il ne compte pas les lignes
savez vous pourquoi ?
bon j'avoue mon code n'est sans doute pas le plus jolie :roll:

j'ai un peu changer mon code pour faire plus simple
le voila

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        RichTextBoxFR1.Visible = True
        WebBrowser1.Visible = False
        ToolStripStatusLabel1.Text = DateTime.Now.ToLongDateString
        ToolStripStatusLabel5.Text = DateTime.Now.ToLongTimeString
 
        Dim i As Integer
 
        ToolStripStatusLabel2.ForeColor = Color.Blue
        i = RichTextBoxFR1.SelectionStart
        ToolStripStatusLabel2.Text = RichTextBoxFR1.GetLineFromCharIndex(i)
        ToolStripStatusLabel2.Text = RichTextBoxFR1.GetLineFromCharIndex(RichTextBoxFR1.SelectionStart) + 0
        i += 1
 
 
    End Sub

mais sa ne marche toujours pas
dans mon label il m'affiche 0 il ne compte pas les ligne
savez vous pourquoi ?

12/10/2010, 17h19
chrismonoye

Bonjour,
il manque une boucle, genre do .... Loop While.
Et le caractère de recherche genre VbCr

je ne sait pas si mon code est bien clair

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
        Dim i As Integer
 
        ToolStripStatusLabel2.ForeColor = Color.Blue
 
        i = RichTextBoxFR1.SelectionStart
        ToolStripStatusLabel2.Text = RichTextBoxFR1.GetLineFromCharIndex(i)
        ToolStripStatusLabel2.Text = RichTextBoxFR1.GetLineFromCharIndex(Len(RichTextBoxFR1.Text)) + 0
        ToolStripStatusLabel2.Text = RichTextBoxFR1.GetLineFromCharIndex(RichTextBoxFR1.SelectionStart) + 0
        ToolStripStatusLabel2.Text = Len(Replace(RichTextBoxFR1.Text, vbCrLf, vbTab))
        i += 1
        i = InStrRev(RichTextBoxFR1.Text, vbCrLf, RichTextBoxFR1.SelectionStart)
 
 
    End Sub

mais sa ne marche toujours pas mon label reste a zéro

bonsoir,
je parlais de boucle, pour itérer et compter dans le texte, les retours chariot (vbCr).
NB 1 : l'emploi de vbCrLf, selon la rédaction du texte, pourra indiquer la fin d'un chapitre ou la fin du texte lui même.
NB 2 : Si le richtextbox est réduit sur sa largeur, une ligne réelle peut être présentée sur plusieurs lignes et la boucle ne peut en tenir compte.
Voici un bout de code qui compte les lignes réelles et les présente dans TextBox1 :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
        Dim index As Integer = 0
 
        '*** Déclare une Arraylist qui comptabilise les numéros des lignes.
        '         (Les lignes vides sont également comptabilisées).
        Dim lineList As New System.Collections.ArrayList
        Do
            '*** Recherche les occurences de l'élément recherché et incrémente l'index de départ.
            '      Ici VbCr = Caractère de retour chariot
            index = RichTextBox1.Find(vbCr, index + 1, RichTextBoxFinds.None)
            If (index <> -1) Then
                '*** recherche chaque ligne comportant l'élément cherché et ajoute son rang à la liste.
                lineList.Add(RichTextBox1.GetLineFromCharIndex(index))
            End If
            '*** Si index = -1 : recherche infructueuse donc terminée.
        Loop While (index <> -1)
 
        TextBox1.Text = CStr(lineList.Count + 1) '+1 car l'index ArrayList commence à 0.

Pour les colonnes dans un RichTextBox, je ne vois pas.

il ne compte toujours pas les lignes avec se code:

Code:

1
2
3
4
5
6
7
8
9
10
 Dim index As Integer = 0
        Dim lineList As New System.Collections.ArrayList
        Do
            index = RichTextBoxFR1.Find(vbCr, index + 1, RichTextBoxFinds.None)
            If (index <> -1) Then
                lineList.Add(RichTextBoxFR1.GetLineFromCharIndex(index))
            End If
        Loop While (index <> -1)
 
        ToolStripStatusLabel2.Text = CStr(lineList.Count + 1)

mème avec se code sa ne marche pas:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim i As Integer
 
        ToolStripStatusLabel2.ForeColor = Color.Blue
 
        i = RichTextBoxFR1.SelectionStart
        ToolStripStatusLabel2.Text = RichTextBoxFR1.GetLineFromCharIndex(i)
        ToolStripStatusLabel2.Text = RichTextBoxFR1.GetLineFromCharIndex(Len(RichTextBoxFR1.Text)) + 0
        ToolStripStatusLabel2.Text = RichTextBoxFR1.GetLineFromCharIndex(RichTextBoxFR1.SelectionStart) + 0
        i += 1
        Dim index As Integer = 0
        Dim lineList As New System.Collections.ArrayList
        Do
            index = RichTextBoxFR1.Find(vbCr, index + 1, RichTextBoxFinds.None)
            If (index <> -1) Then
                lineList.Add(RichTextBoxFR1.GetLineFromCharIndex(index))
            End If
        Loop While (index <> -1)
 
        ToolStripStatusLabel2.Text = CStr(lineList.Count + 1)

normallement avec se code sa doit marcher
c'était un exemple sur internet que j'ai trouvé
mais je n'est pas de chance parce que sur moi il ne marche pas
il ne compte toujours pas les lignes
voici le code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
  Dim m_lngTotalLigne As Long
        Dim m_lngNumLigne As Long
        Dim m_lngOldLigne As Long
        Dim iCount As Integer
        Dim iLastPos As Integer
 
        RichTextBoxFR1.Visible = True
        WebBrowser1.Visible = False
        ToolStripStatusLabel1.Text = DateTime.Now.ToLongDateString
        ToolStripStatusLabel5.Text = DateTime.Now.ToLongTimeString
        ToolStripStatusLabel2.ForeColor = Color.Blue
        ToolStripStatusLabel3.ForeColor = Color.Blue
        ToolStripStatusLabel4.ForeColor = Color.Blue
 
        'nombre de caractères
        ToolStripStatusLabel3.Text = "lettres : " & _
        Len(Replace(Replace(Replace(RichTextBoxFR1.Text, vbCrLf, ""), _
        vbTab, ""), " ", ""))
 
        'nombre total de lignes
        m_lngTotalLigne = RichTextBoxFR1.GetLineFromCharIndex(Len(RichTextBoxFR1.Text)) + 1
 
        'ligne en cours
        m_lngNumLigne = RichTextBoxFR1.GetLineFromCharIndex(RichTextBoxFR1.SelectionStart) + 1
 
        'ligne en cours/nombre total de lignes
        ToolStripStatusLabel2.Text = "Lignes : " & m_lngNumLigne & _
        " / " & m_lngTotalLigne
 
        'affichage sur ligne 1
        If m_lngNumLigne = 1 Then
            iCount = RichTextBoxFR1.SelectionStart
 
        ElseIf m_lngNumLigne > 1 Then
            'récupère la position du curseur / la ligne en cours
            iLastPos = InStrRev(RichTextBoxFR1.Text, vbCrLf, RichTextBoxFR1.SelectionStart)
            iCount = RichTextBoxFR1.SelectionStart - iLastPos - 1
        End If
        m_lngOldLigne = m_lngNumLigne
        ToolStripStatusLabel4.Text = "Colonnes : " & iCount
 
    End Sub

17/10/2010, 10h35
chrismonoye

bonjour,
oui mais il faut mettre ce code dans un événement du RichTextBox genre :

Citation:

RichTextBox.SelectionChanged, événement
17/10/2010, 11h05
Invité

j'ai mis le code dans la form principale c'est a dire
ma richtextbox est dans ma form1 et mon code se trouve dans
private sub form1_load

donc logiquement le code est bien lu quand j'ouvre ma form1 ?
17/10/2010, 11h19
Theze

Salut tous le monde,

Morpheus500, dans l'évennement Load du formulaire ton RichTextBBox n'est probablement pas encore rempli d'où le problème. Teste dans "Activate".
17/10/2010, 11h39
Invité

dans l'évènements activated et aussi validated sa ne marche pas
j'ai éssayer d'autre comme autoValidatedchanged et aussi textchanged

mais sa ne marche toujours pas

Chez moi, ce qui suit marche :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
    Private Sub RichTextBoxFR1_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RichTextBoxFR1.SelectionChanged
        CompteLignesRTB()
    End Sub
 
    Private Sub CompteLignesRTB()
 
        Dim m_lngTotalLigne As Long
        Dim m_lngNumLigne As Long
        Dim m_lngOldLigne As Long
        Dim iCount As Integer
        Dim iLastPos As Integer
 
        RichTextBoxFR1.Visible = True
        'WebBrowser1.Visible = False
        ToolStripStatusLabel1.Text = DateTime.Now.ToLongDateString
        ToolStripStatusLabel5.Text = DateTime.Now.ToLongTimeString
        ToolStripStatusLabel2.ForeColor = Color.Blue
        ToolStripStatusLabel3.ForeColor = Color.Blue
        ToolStripStatusLabel4.ForeColor = Color.Blue
 
        'nombre de caractères
        ToolStripStatusLabel3.Text = "lettres : " & _
        Len(Replace(Replace(Replace(RichTextBoxFR1.Text, vbCrLf, ""), _
        vbTab, ""), " ", ""))
 
        'nombre total de lignes
        m_lngTotalLigne = RichTextBoxFR1.GetLineFromCharIndex(Len(RichTextBoxFR1.Text)) + 1
 
        'ligne en cours
        m_lngNumLigne = RichTextBoxFR1.GetLineFromCharIndex(RichTextBoxFR1.SelectionStart) + 1
 
        'ligne en cours/nombre total de lignes
        ToolStripStatusLabel2.Text = "Lignes : " & m_lngNumLigne & _
        " / " & m_lngTotalLigne
 
        'affichage sur ligne 1
        If m_lngNumLigne = 1 Then
            iCount = RichTextBoxFR1.SelectionStart
 
        ElseIf m_lngNumLigne > 1 Then
            'récupère la position du curseur / la ligne en cours
            iLastPos = InStrRev(RichTextBoxFR1.Text, vbCrLf, RichTextBoxFR1.SelectionStart)
            iCount = RichTextBoxFR1.SelectionStart - iLastPos - 1
        End If
        m_lngOldLigne = m_lngNumLigne
        ToolStripStatusLabel4.Text = "Colonnes : " & iCount
 
    End Sub

Après on peut aussi démarrer en appelant la procédure dans le Load, mais elle ne sera appelée qu'au démarrage de l'application et ne peut se substituer au code ci dessus.
Et le fichier doit être chargé au préalable :

Code:

1
2
3
4
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' CHARGEMENT un fichier RTF.
        RichTextBoxFR1.LoadFile("Expressions régulières.rtf")
        CompteLignesRTB()

17/10/2010, 12h22
Invité

cool merci chris
éffectivement sa marche:ccool: