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()
25 mai 2016 à 22:13