1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
| Dim ListString As New List(Of String)
ListString.Add("150 00 0")
ListString.Add("150000 ")
ListString.Add("150000 £")
ListString.Add("150000 $")
ListString.Add("150000 e")
ListString.Add("150000 E")
ListString.Add("150000 à 200000")
ListString.Add("150000 a 200000")
ListString.Add("150000 A 200000")
ListString.Add("150000 de 200000")
ListString.Add("150000 DE 200000")
ListString.Add("150000 - 200000")
ListString.Add("150.000")
ListString.Add("1.500.000")
ListString.Add("1,500,000")
ListString.Add("1.500,000")
ListString.Add("150,000")
ListString.Add("150,00")
For Each strg As String In ListString
MessageBox.Show(strg & " => " & _
Regex.Match((Regex.Replace(strg, "(( )(?=\d+))|((\.|,)\d{2}$)|((\.|,)(?=\d{3}))", "")), "\d+").Value)
Next |
Partager