Bonjour,
je desire recuperer chaque nombre dans une chaine de caractere et le mettre dans un combobox
exemple si str= mimi24 est avec toto64 en compagnie de dianne9
je dois avoir dans mon combobox ceci:
<<combobox>>
24
64
9
voici mon code qui marche mais affiche ceci : 24649
Dim l As Integer
Dim ascii As Integer
Dim numerique As String = ""
For l = 1 To Len(message)
ascii = Asc(Mid(message + vbNewLine, l, 1))
If (ascii > 43 And ascii < 47) Or (ascii > 47 And ascii < 58) Then numerique = numerique & Mid(message + vbNewLine, l, 1)
Next
'coeur d'attente
If Not ComboBox1.Items.Contains(numerique) Then
ComboBox1.Items.Add(numerique)
End If
Bonjour Whismeril (bravo pour ton dernier tutoriel concernant le binding)
En ajoutant les références
Option Strict On Option Explicit On Imports System.Text.RegularExpressions
et
Dim message As String = "mimi24 est avec toto64 en compagnie de dianne9 "
Dim pattern As String = "\d+"
For Each m As Match In Regex.Matches(message, pattern)
MessageBox.Show(m.Value)
Next
Il te suffit donc de constituer ta collection.
Oubli:
Afin de faire du vb.Net et non un mix vb6 & vb.Net, dans les références du projet (espaces de noms importés), il faut décocher la référence à "Microsoft.VisualBasic".
7 mai 2018 à 15:48
Modifié le 7 mai 2018 à 18:01
Bonjour Whismeril (bravo pour ton dernier tutoriel concernant le binding)
En ajoutant les références et
Il te suffit donc de constituer ta collection.
Oubli:
Afin de faire du vb.Net et non un mix vb6 & vb.Net, dans les références du projet (espaces de noms importés), il faut décocher la référence à "Microsoft.VisualBasic".
7 mai 2018 à 18:06
@Jacob
et pourquoi je t'ai mis un lien vers un tuto?