1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. VB.NET

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
14883
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
21 octobre 2020
 -
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
Afficher la suite

1 réponse

Réponse 1 / 1
Messages postés
14883
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
21 octobre 2020
 446
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
14883
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
21 octobre 2020
 446
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