Discussion :

[zephirsoul]

Bonjour a tous
Voici mon problème du jour, je dois extraire une série de 5 chiffres dans une chaine mais je ne sais absolument pas comment m'y prendre.
Dans ma base, je possède un champs 'Commentaire' (format Texte) qui se présente ainsi :

Code :

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

lvd216;39002;VOCO6;VOLR2;1AFF2;RPA6;PCT7

Le problème est que cette chaine est de longueur variable est les élement sont placé aléatoirement(toutes la chaine est en formate texte)....
Cette chaine peut etre beaucoup plus longues , ou beaucoup plus courte, il peut y avoir des points virgule en séparateur ou des virgules...
Bref et je voudrai récupérer, juste dans mon exemple 39002... En gros, un élément de 5 chiffres concecutifs placé aléatoirement dans une chaine texte (sachant que ces chiffres sont au format texte...) J'ai essayé un peu tout les right left, extract chaine et transformation de type m'est j'arrive a rien...
Des idées.?
Merci d'avance !!
Zephir

[pc75]

Bonjour,

As-tu essayé la fonction inStr() ?

[seb92400]

Quelques pistes à première lecture...

Fonction 'Split' pour séparer en fonction des ';' ou des ','
Ensuite, tu récupères chaque split et tu analyses la longueur : Fonction 'Len'
Si la longueur est de 5, tu analyses chaque caractère et si tous les caractèrees sont des chiffres, tu as ce que tu cherches...

Voilà... Tout ça est à dépatouillatationner...

[helas]

Utiliser cette petite fonction

Code :

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

1
2
 
 Debug.Print ExtractionValeur("lvd216;39002;VOCO6;VOLR2;1AFF2;RPA6;PCT7")

qui donne bien 39002

Le séparateur qui n'est pas connu est tout ce qui n'est pas chiffre ou lettre

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
16
17
18
19
20
21
22
23
24
25
26
 
Function ExtractionValeur(s As String) As Variant
 Dim i As Long, v As String, ok As Boolean
 
 ok = True
 For i = 1 To Len(s)
  c = Mid$(s, i, 1)
  Select Case c
  Case "a" To "z", "A" To "Z"   'contient des lettres
   ok = False                   'donc pas bon
   v = ""
  Case "0" To "9"
   If ok Then v = v & c
  Case Else                     'séparateur quelconque
   If v <> "" Then Exit For     'v ne contient que des chiffres
   ok = True
  End Select
 
 Next i
 
 If v = "" Then
  ExtractionValeur = Null
 Else
  ExtractionValeur = Val(v)
 EndIf
End Function

on peut ajouter les lettre accentuées si la chaine en contient

Code :

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

1
2
 
Case "a" To "z", "A" To "Z", "é", "è", "à", "ù"

[philben]

bonjour,

Bon, une idée supplémentaire pour mieux vous embrouiller
si vous recherchez qu'un entier de 5 chiffres, je ferai un split comme noawsen puis un like.

La fonction retourne un entier long, a modifier selon votre convenance.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Public Function GetMyNumber(ByVal s As String) As Long
   Dim i As Integer, v As Variant
   v = Split(s, ";")
   For i = 0 To UBound(v)
      If v(i) Like "#####" Then
         GetMyNumber = v(i)
         Exit For
      End If
   Next i
End Function

cordialement,

philippe

[helas]

pour le split le séparateur doit être connu, ici ; mais sinon ?

[philben]

bonjour Helas,

t'as raison avec un peu de chance, c'est le cas ici...
sinon on peut faire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Function GetMyNumberII(ByVal s As String) As Long
   Dim i As Integer
   For i = 5 To Len(s)
   'Debug.Print Mid$(s, i - 4, 5)
      If Mid$(s, i - 4, 5) Like "#####" Then
         GetMyNumberII = Mid$(s, i - 4, 5)
         Exit For
      End If
   Next i
End Function

A+

Philippe