[AC-2003] Capturer des caractères dans une chaine string [Résolu]

[electrosat03]

Salut,

Je ne me souvient pas de la syntaxe exacte pour capturer les chiffres à partir de la droite jusqu'au caractère E dans la donnée d'un champ.

OU : ne prendre que les chiffres d'un numéro de tva Belge quelque soit sa forme;
123456789; 123.456.789; BE123456789; BE123.456.789; BE0......; etc...

Il faut donc parcourir le numéro et quand il y a un . je passe au chiffre suivant.

Merci pour votre aide.
A+

[LedZeppII]

Bonjour,

un truc dans ce genre ?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function ExtrChiffresDroite(v As Variant, Optional sArret As String = "") As String
Dim s As String, r As String, c As String, i As Integer
If IsNull(v) Or IsEmpty(v) Then v = ""
s = CStr(v)
For i = Len(s) To 1 Step -1
    c = Mid(s, i, 1)
    If (c >= "0") And (c <= "9") Then
        r = c & r
    ElseIf c = sArret Then
        Exit For
    End If
Next
ExtrChiffresDroite = r
End Function

A+

[electrosat03]

Salut,

Merci LedZepII, c'est exactement ça.

Encore merci
A+