Expressions régulières
Résolu/Fermé
Utilisateur anonyme
-
Modifié par MicDundee le 30/10/2015 à 17:42
Utilisateur anonyme - 31 oct. 2015 à 16:08
Utilisateur anonyme - 31 oct. 2015 à 16:08
A voir également:
- Expressions régulières
- Expressions francaises - Forum Études / Formation High-Tech
- Kyocera Ecosys P3060dn, traces régulières - Forum Imprimante
- Expressions visage bitmoji ✓ - Forum Snapchat
- LaTeX - Expressions mathématiques - Astuces et Solutions
- Que veulent dire les expressions lol et mdr ? ✓ - Forum Loisirs / Divertissements
2 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
30 oct. 2015 à 17:53
30 oct. 2015 à 17:53
Bonjour
ci dessous le pattern utilisé en vba:
"(\d?\d?\d)|(,)"
peut-^tre que....
ci dessous le pattern utilisé en vba:
"(\d?\d?\d)|(,)"
peut-^tre que....
Utilisateur anonyme
Modifié par MicDundee le 31/10/2015 à 16:21
Modifié par MicDundee le 31/10/2015 à 16:21
Voilà la réponse :
Imports System.Text.RegularExpressions
Module ModuleExpReg
Public Function DigitPointDigit(ByVal Convertir As String) As Double
'Récupère que les chifrres et le point
Dim Tmp As String = Convertir.Replace(",", ".")
Dim Resultat As Match = Regex.Match(Tmp, "(\d+\.\d+|\.\d+|\d+\.|\d+)")
Return Val(Resultat.Value)
End Function
End Module
C'est un module avec toutes les possibilités :
0.12
.12
3
3.
Etc.
Imports System.Text.RegularExpressions
Module ModuleExpReg
Public Function DigitPointDigit(ByVal Convertir As String) As Double
'Récupère que les chifrres et le point
Dim Tmp As String = Convertir.Replace(",", ".")
Dim Resultat As Match = Regex.Match(Tmp, "(\d+\.\d+|\.\d+|\d+\.|\d+)")
Return Val(Resultat.Value)
End Function
End Module
C'est un module avec toutes les possibilités :
0.12
.12
3
3.
Etc.
30 oct. 2015 à 18:02
Public Function ExpRegPrix(ByVal PrixAConvertir As String) As String
'Récupère que les chifrres est le point
Dim Tmp As String = PrixAConvertir.Replace(",", ".")
Dim regex As System.Text.RegularExpressions.Regex = New Regex("\d+\.\d+")
Dim match As Match = regex.Match(Tmp)
ExpRegPrix = match.Value
End Function
30 oct. 2015 à 18:09
Déclarer :
Imports System.Text.RegularExpressions
Public Function ExpRegPrix(ByVal PrixAConvertir As String) As String
'Récupère que les chifrres est le point
Dim Tmp As String = PrixAConvertir.Replace(",", ".")
Dim Resultat As Match = Regex.Match(Tmp, "\d+\.\d+")
ExpRegPrix = Resultat.Value
End Function
30 oct. 2015 à 18:17
MERCI
Modifié par MicDundee le 30/10/2015 à 18:21
Modifié par michel_m le 30/10/2015 à 18:31
je ne vous importunerez plus ; je ne suis pas comme vous un génie méconnu qui ne lit pas et est particulièrement impoli
en Blacklist