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 14006 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 - 20 août 2006 à 21:09
cs_Jack Messages postés 14006 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 - 20 août 2006 à 21:09
1 réponse
cs_Jack
Messages postés
14006
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
79
20 août 2006 à 21:09
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
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
