Lignes du richtextbox

Signaler
Messages postés
169
Date d'inscription
jeudi 24 juillet 2003
Statut
Membre
Dernière intervention
17 août 2010
-
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
-
Bonjour,
voila mon probleme :

lorsque j'ouvre un fichier texte, je recupere le texte de celui-ci et je le met dans un Richtextbox..
Ce que je n'arrive pas a faire est de recuperer chaque ligne du Richtextbox pour la mettre dans un tableau nommé Tab_Prog(x)

Merci

1 réponse

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
81
Salut
Si ce sont les lignes au sens orthographiques, les lignes sont donc séparées par des vbCrLf = passage à la ligne.
Il te suffit de Splitter le texte :
Dim monTableau() As String
monTableau = Split (monRTB.Text, vbCrLf)
Les données seront dans monTableau(0) à monTableau(UBound(monTableau))

Si ce sont les lignes au sens affichage, s'est plus compliqué :
Il faut faire une boucle de recherche entre 0 et Len(monRTB.Text) - 1, c'est à dire chaque caractère
Dim monTableau() As String
Redim monTableau(0)
MemoLigne = -1
MemoPosition = 0
For r = 0 To Len(monRTB.Text) - 1
   z = monRTb.GetLineFromChar
   If z <> MemoLigne Then
      ' Ajouter ligne dans tableau
      Redim Preserve monTableau(UBound(monTableau) + 1)
      monTableau(UBound(monTableau)) = Mid$(monRTB.Text, MemoPosition, r - MemoPosition)
      MemoPosition = r
      MemoLigne = z
   End If
Next r
Les données seront dans monTableau(1) à monTableau(UBound(monTableau))

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Champion du monde de boule de cristal - 2005
Le savoir est la seule matière qui s'accro