Discussion :

[Invité]

bonjour a tousse

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

voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[chrismonoye]

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

[Invité]

je ne sait pas si mon code est bien clair

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[chrismonoye]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Invité]

il ne compte toujours pas les lignes avec se code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)