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
14881
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
3 juin 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
14881
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
3 juin 2020
 413
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
14881
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
3 juin 2020
 413
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