Lignes du richtextbox

cs_Papymuzo Messages postés 169 Date d'inscription jeudi 24 juillet 2003 Statut Membre Dernière intervention 17 août 2010 - 20 août 2006 à 15:40
cs_Jack Messages postés 14007 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 - 20 août 2006 à 21:09
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

cs_Jack Messages postés 14007 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 78
20 août 2006 à 21:09
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
0
Rejoignez-nous