Discussion :

[thierry007]

Re-bonjour a tous

Je me posait la question si il est possible de prendre le contenu d'un richttextbox et de placer les lignes dans un tableau de type string, MAIS dont la longueur des lignes dans le tableau ne peut excéder 47 caractères

Le but étant de récupérer le contenu du RTB et le transférer dans un autre programme.

En clair ( j'espère )
Mon RTB contient 5 lignes de +-130 caractères chacune, et je dois convertir cela en 14 lignes de 47 caractères

[ZenZiTone]

Hum je ne vois pas où tu bloques...

Quelque chose comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
  Dim res As New List(Of String)
  Dim continuer As Boolean = True
  Dim Index As Integer = 0
  Dim Longueur As Integer = 47
 
  While continuer
      Try
          res.Add(RichTextBox1.Text.Substring(Index, Longueur))
          Index += Longueur
      Catch ex As ArgumentOutOfRangeException
          continuer = False
      End Try
  End While

[clementmarcotte]

Bonjour,

Je voulais utiliser la collection LInes du RTB, mais quand la "ligne" s'est révélée être une phrase de 3 ou 4 lignes à l'écran. Après quelques autre essais non-concluants, J'ai fini par extraire les 47 premiers caractères du texte du RTB, et de boucler sur la partie restante du texte, jusqu'à épuisement du texte.

Sauf que :

La présence d'espaces donne parfois des résultats bizarres. Je te laisse le plaisir de les éliminer au besoin.
Je n'ai rien fait pour corriger les mots séparés par la coupure qui leur arrive en plein milieu.

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
Private Sub Réaménager_Click(sender As Object, e As EventArgs) Handles Réaménager.Click
        Dim NombreCaractères As Integer = 47
        Dim res As New List(Of String)
        Dim extrait As String = String.Empty
        Dim Reste As String = String.Empty
        Dim Aucomplet As String = RichTextBox1.Text
        Dim IlReste As String = 0
        Dim LeTotal As Integer = Aucomplet.Length
        Do
            extrait = Aucomplet.Substring(0, NombreCaractères)
            res.Add(extrait)
            Reste = Aucomplet.Substring(extrait.Length, Aucomplet.Length -
            extrait.Length)
            IlReste = Reste.Length
            Aucomplet = Reste
        Loop While IlReste > NombreCaractères
        If Aucomplet.Length > 0 Then
            res.Add(Aucomplet)
        End If
        'Vérification du résultat
        RichTextBox1.Clear()
        Dim BoutDeTexte As String = String.Empty
        For Each item As String In res
            BoutDeTexte = String.Concat(item, ControlChars.NewLine)
            RichTextBox1.AppendText(BoutDeTexte)
        Next
    End Sub

P.S. Quand j'y pense, cela ressemble un peu pas mal beaucoup à avoir réinventé la roue de ZenZitone. J'aurais dû être plus attentif quand j'ai modifié mes plans.

[thierry007]

Bonjour a vous deux

la solution de ZenZiTone me parait être la plus efficace , je vais regarder pour la mettre en œuvre et faire les modif pour essayer de ne pas coupé les mots et voir avec la détections des espaces

Merci bien de votre aide

[ACIVE_CS]

Bonjour,
Moi j'aurais imaginé quelque chose du genre :

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
 
        Dim Lignes As New List(Of String)
        Dim Nombre As Integer = 47
        For Each Str As String In RichTextBox1.Lines
            If Str.Length <= Nombre Then
                Lignes.Add(Str)
            Else
                While Str.Length > 0
                    If Str.Length <= Nombre Then
                        Lignes.Add(Str)
                        Exit While
                    Else
                        Lignes.Add(Str.ToCharArray(0, Nombre))
                        Str = Str.Replace(Str.ToCharArray(0, Nombre), "")
                    End If
                End While
            End If
        Next

[shayw]

Bonjour

J'ai essayé sans tronquer les mots.En verifiant le 47 eme caractère si c'est une ponctuation donc le mot qui précède n'est pas tronqué
autrement je reviens en arrière pour trouver le début du mot

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
Private Function RTBTolist(ByVal maxcharperlin As Integer) As List(Of String)
        Dim listline As New List(Of String)
        Dim ponctuation As New List(Of Char) From {"?"c, ","c, ":"c, "."c, "!"c, ";"c, " "c}
        Dim count As Integer
        Dim characters As Integer
        characters = maxcharperlin
        While count < rtb1.TextLength
            characters = maxcharperlin
            If maxcharperlin + count >= rtb1.TextLength Then
                listline.Add(rtb1.Text.Substring(count))
                count += characters
            Else
                'verifie le 47 eme charactère si c'est une ponctuation  pour verifier si  le mot n'est pas tronqué
 
                If ponctuation.Contains(Convert.ToChar(rtb1.Text.Substring(maxcharperlin + count, 1))) Then
                    listline.Add(rtb1.Text.Substring(count, maxcharperlin))
                    count += maxcharperlin
                Else
                    'on est au milieu d'un mot on cherche le début du mot
                    While Not ponctuation.Contains(Convert.ToChar(rtb1.Text.Substring(characters + count, 1)))
                        characters -= 1
                    End While
                    listline.Add(rtb1.Text.Substring(count, characters))
                    count += characters
                End If
            End If
        End While
        Return listline
    End Function

bon code