récupérer les nombres d'une RichTextBox

Version imprimable

11/02/2012, 15h31
Helicoid

récupérer les nombres d'une RichTextBox

Bonjour,

Voila presque 2 jours que je cherche une solution. je n'en peux plus.

voila mon problème :

j'ai une RichTextBox avec ce genre d'entrées :

Citation:

2.65 98.6 35 6.5 26.4

j'aimerai :
- récupérer chaque nombre pour les insérer dans une collection ( séparés par un [ESPACE] ou [ENTREE] ).
- mettre en rouge les textes non numériques et en vert ceux qui sont numériques.
- tout cela ce fera à la validation de la RTB.
- Et convertir les virgules par des points (2,65 -> 2.65)

Quelqu'un peut m'aider?

merci d'avance!:D

Pour extraire les nombres, utilise une expression régulière :

Code:

1
2
3
4
5
Dim matches As MatchCollection = Regex.Matches(richTextBox1.Text, "(\d*\.)?\d+")
For Each m As Match in matches
    Dim d As Double = Double.Parse(m.Value, CultureInfo.InvariantCulture)
    list.Add(d)
Next

11/02/2012, 16h00
Helicoid

je vais tester ça de suite!! merci.

mais est-ce que ce serait possible de m'expliquer ces lignes..?:oops:

je débute dans le VB.NET donc je ne connais pas encore grand chose..

Exemple un peu plus complet qui fait aussi la coloration :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub richTextBox1_Validating(ByVal sender As Object, ByVal e As CancelEventArgs) Handles richTextBox1.Validating
	richTextBox1.ForeColor = Color.Red
	Dim matches As MatchCollection = Regex.Matches(richTextBox1.Text, "(\d*(\.|,))?\d+")
	For Each m As Match In matches
		Dim text As String = m.Value.Replace(","C, "."C)
		Dim value As Double = Double.Parse(text, CultureInfo.InvariantCulture)
		numbers.Add(value)
		richTextBox1.SelectionStart = m.Index
		richTextBox1.SelectionLength = m.Length
		richTextBox1.SelectionColor = Color.Green
		richTextBox1.SelectedText = text
	Next
End Sub

11/02/2012, 16h04
tomlev

Citation:

Envoyé par Helicoid

mais est-ce que ce serait possible de m'expliquer ces lignes..?:oops:

Qu'est-ce que tu comprends pas exactement ?
Une expression régulière cherche toutes les parties du texte qui correspondent à un certain motif. Je parcours toutes les correspondances ("match" en anglais), et pour chacune je convertis le texte de cette correspondance en un nombre (avec Double.Parse). Je précise qu'il faut utiliser la culture neutre (InvariantCulture) pour qu'il utilise bien le point comme séparateur décimal (vu qu'en français c'est une virgule)
11/02/2012, 16h29
Helicoid

merci, je comprends mieux avec la version développée.
voila mes questions supplémentaires :

Code:

Dim matches As MatchCollection = Regex.Matches(richTextBox1.Text, "(\d*(\.|,))?\d+")

qu'est ce qu'une MatchCollection ?
c'est " Regex.Matches() " qui effectue la recherche?
les "(\d*(\.|,))?\d+", ce sont des codes correspondants aux symboles?

sinon,

Code:

For Each m As Match In matches

c'est quoi une Match ?

Code:

Dim text As String = m.Value.Replace(","C, "."C)

Enfin un truc que je comprends presque :)
mais pourquoi les "C"?

Code:

Dim value As Double = Double.Parse(text, CultureInfo.InvariantCulture)

Pourquoi utiliser "Double.Parse()" et pas "CDbl()"?
"CultureInfo.InvariantCulture" ne sert que pour les " . "?

désolé pour toutes ces questions mais il n'y a pas tout dans VB.NET pour les nuls.. :D
Et il vaut mieux comprendre ce qu'on écrit..
11/02/2012, 16h47
tomlev

Citation:

Envoyé par Helicoid

qu'est ce qu'une MatchCollection ?

Une collection de Match (= correspondance), comme son nom l'indique...

Citation:

Envoyé par Helicoid

c'est " Regex.Matches() " qui effectue la recherche?

Oui, ça renvoie une collection de correspondances ( = parties du texte qui correspondent au pattern)

Citation:

Envoyé par Helicoid

les "(\d*(\.|,))?\d+", ce sont des codes correspondants aux symboles?

En gros, oui, mais je vais pas te faire un cours complet sur les regex, ce serait un peu long... je vais juste t'expliquer celle là

D'abord la fin parce que c'est le plus simple :
- "\d" signifie "un chiffre" (n'importe lequel)
- "+" signifie "au moins une occurrence"
Donc "\d+" signifie "au moins un chiffre"

Le début :
- "?" signifie "zéro ou une occurrence"
- les parenthèses sont suivies de "?", donc ca veut dire que tout le contenu des parenthèses doit apparaitre 0 ou 1 fois

Le contenu des parenthèses :
- "*" signifie "n'importe quel nombre d'occurrences", donc "\d*" signifie "n'importe quel nombre de chiffres"
- "|" indique un choix, donc "(\.|,)" signifie : soit "\.", soit "," (le point est échappé à l'aide d'un "\" car sinon il signifie "n'importe quel caractère")

Donc globalement, l'expression peut "matcher" :
- un entier : 123
- un décimal sans partie entière : .123
- un décimal avec partie entière : 4.123

Il y a un tuto complet ici si ça t'intéresse : http://stormimon.developpez.com/dotn...ns-regulieres/

Citation:

Envoyé par Helicoid

c'est quoi une Match ?

}
Déjà expliqué plus haut

Citation:

Envoyé par Helicoid

Code:

Dim text As String = m.Value.Replace(","C, "."C)

Enfin un truc que je comprends presque :)
mais pourquoi les "C"?

Le C après la chaine indique que ce n'est pas une chaine mais un caractère.

Citation:

Envoyé par Helicoid

Code:

Dim value As Double = Double.Parse(text, CultureInfo.InvariantCulture)

Pourquoi utiliser "Double.Parse()" et pas "CDbl()"?
"CultureInfo.InvariantCulture" ne sert que pour les " . "?

Parce que CDbl c'est un vieux machin hérité de VB6 ; la seule raison pour laquelle ça existe encore, c'est pour faciliter la migration de vieux programmes en VB6. En .NET on utilise Double.Parse. En fait j'ai écrit le code en C# avant de le convertir automatiquement en VB.NET, et en C# CDbl n'existe pas...

Citation:

Envoyé par Helicoid

Et il vaut mieux comprendre ce qu'on écrit..

Voilà un bon état d'esprit :ccool:
Mais y a plein de gens qui ne semblent pas être de cet avis :aie:
11/02/2012, 17h11
Helicoid

ok!
bah merci pour toutes ces réponses!

j'ai comprends ton premier code.

je vais faire un petit tour sur le tuto. ça peut servir ce genre de chose.

Et apparemment, ça fonctionne..
que du bonheur.

merci encore.