1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. VB.NET
Sujet Précédent Sujet Suivant

Probleme commande regular vb.net [Résolu]

Signaler
Messages postés
71
Date d'inscription
mercredi 3 octobre 2012
Statut
Membre
Dernière intervention
6 octobre 2019
 -
Messages postés
16032
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
13 juin 2021
 -
Bonjour,


mes amis comment ta vous j’espère tous va bien
j'ai un problème dans se chêne de caractère
chene = "ahmed 1245.23 hgk jb 1.03"
comme j'applique se code

Dim pattern As String = "\b\d+(,\d{3})*\.\d{2}\b"
Dim input As String = (strResponse)
For Each match As Match In Regex.Matches(input, pattern)
dadi23 = (match.Result("$&"))

Next

resulta ; 1.03

la question comment garder le nobre décimal la plut grande

et merci mes amis

1 réponse

Réponse 1 / 1
Messages postés
16032
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
13 juin 2021
 550
Bonsoir 

Dim strResponse As String = "ahmed 1245.23 hgk jb 1.03"
Dim pattern As String = "\b\d+(,\d{3})*\.\d{2}\b"
Dim input As String = strResponse

Dim lesValeurs As New List(Of Double)()
For Each match As Match In Regex.Matches(input, pattern)
    lesValeurs.Add(Convert.ToDouble(match.Value, CultureInfo.InvariantCulture))
Next match

Dim valeurMaxi As Double = lesValeurs.Max()


Quand j'étais petit, la mer Morte n'était que malade.
George Burns
Signaler
Messages postés
16032
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
13 juin 2021
 550
J'ai mis une culture Invariante, car mon PC utilise la virgule comme signe décimale, et la conversion ne marche pas avec un point.
Répondre Posez votre question