Discussion :

[jane2002]

bonjour,

J'aimerai savoir s'il existe une fonction permettant d'extraire des chiffres dans une chaine de cracteres

exemple : dans une base de données ACCESS. j'ai une colonne capital avec des données de ce genre 198 000 856 euros

Question: Existe t-il une fonction permettant d'avoir dans une colonne 198 000 856 et dans une autre euros?

[Demco]

Ce sujet a ete aborde la semaine passee, tu tomberas dessus en utilisant la fonction rechercher du foum si ce n'est pas deja fait.

Plusieurs fonctions avaient ete proposees.

En esperant que ca t'aide.

[podz]

Salut
C'est ici
Podz

[pc75]

Bonjour,

Tu boucles sur la longueur de ta chaine et tu testes chaque caractère

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Chaine = "198000 euros"
For i = 1 to Len(Chaine)
   if IsNumeric(Mid(Chaine, i, 1)) then
      ChaineNum = ChaineNum & Mid(Chaine, i, 1)
   else
      ChaineCar = ChaineCar & Mid(Chaine, i, 1)
   end if
Next

[cafeine]

une fonction rapide avec les regexp

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function GetNumericOnly(ByVal strExpr As String) As Double
 
Dim reg As New VBScript_RegExp_55.regexp
 
reg.Pattern = "(\D)"
reg.IgnoreCase = True
reg.Global = True
 
strExpr = reg.Replace(strExpr, "")
 
GetNumericOnly = CDbl(strExpr)
 
Set reg = Nothing
 
End Function

pour plus d'infos sur les regexp
http://cafeine.developpez.com/access/tutoriel/regexp/