Discussion :

[qmike]

bonjour

Peux-ton en VBscript rechercher dans une chaine de caractères alphnumériques , la postion des 4 premiers chiffres
Exemple :
prescription_1111_aaaa458.txt
ou pres3111-bbb103.txt
ou 3111pres_102aaa.txt

les 4 premiers chiffres ne sont pas toujours au même endroit

Merci pour vos réponses

[pc75]

Bonjour,

Une piste :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Chaine = "prescription_1111_aaaa458.txt"
Cpt = 0
For i = 1 To Len(Chaine)
    If Asc(Mid(Chaine, i, 1)) >= 48 And Asc(Mid(Chaine, i, 1)) <= 57 Then
       Cpt = Cpt + 1
    End If
    If Cpt = 4 Then
       MsgBox Mid(Chaine, i - 3, 4)
       Exit Sub
    End If
Next i

[qmike]

bonjour
Merci pour ta réponse
Peux-tu me dire à quoi correspondent :

>= 48
<= 57
Merci

[SLE]

48 = code ASCII de "0"
57 = code ASCIIde "9"

;^)

Maintenant, une chaine comme "Prescription_1_1111_jskldklf" va retourner une valeur "_111" avec le code ci-dessus...
S'il faut tenir compte des 4 premiers chiffres contigus, alors il faut adapter.

[pc75]

Re,

Bien vu SLE.

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
 
Chaine = "Prescription_1_1111_jskldklf"
Cpt = 0
For i = 1 To Len(Chaine)
    If Asc(Mid(Chaine, i, 1)) >= 48 And Asc(Mid(Chaine, i, 1)) <= 57 Then
        Do While Asc(Mid(Chaine, i, 1)) >= 48 And Asc(Mid(Chaine, i, 1)) <= 57
            Cpt = Cpt + 1
            i = i + 1
        Loop
    End If
    If Cpt = 4 Then
       MsgBox Mid(Chaine, i - 4, 4)
       Exit Sub
    Else
        Cpt = 0
    End If
Next i

[qmike]

Bonjour
merci pour ta réponse
J'ai en effet teste
sur les fichiers suivants :
qaxs-aa-xcxx_6460_101020110600.pdf
wpan-ss-aaaa_3311_101020110600.pdf
prescription_3311_wwww.pdf

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
For Each Fichier In FSO.GetFolder(strDirCOPIE).Files
Cpt = 0
          t1=  Fichier.Name
          For i = 1 To Len(t1)
		      L=Len(t1)
			 ' Wscript.Echo "Longueur de la chaine t1 :  "&L 
              If Asc(Mid(t1, i, 2)) >= 45 And Asc(Mid(t1, i, 2)) <= 57 Then
              Cpt = Cpt + 1
              End If
              If Cpt = 4 Then
                t3= Mid(t1, i - 3, 4)
				 WScript.Echo "UF  :  " &t3   &"Fichier :    " &t1
             End If
         Next  
next

Pour certains fichiers , je récupére bien les 4 premiers chiffres
Pour d'autres, je récupére _331 par exemple ou encore 460_
Alors qu'il n'y a pas de chiffres devant dans la chaine de caractères

Tous mes essais sont infructueux
Merci pour ton aide et tes réponses

[SLE]

Est-ce que le nom de fichier ne contiendrait pas le path complet ?
Et as-tu bien tenu compte de la dernière correction de pc75 ?

[I'm_HERE]

Salut,

une autre alternative est d'utiliser les pauvres RegExp's du moteur Vbscript

Code :

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

1
2
3
4
5
str = "Prescription_1_1111_jskldklf"
Dim rex : Set rex = New RegExp 
rex.Pattern="\d{4}"  ' matche 4 chiffre successife
set matches = rex.Execute(str)
MsgBox Matches(0) ' index 0 = première occurence

[qmike]

bonjour
Un grand merci - cela fonctionne
Effectivement je n'avais pas vu la correction
Bon Week-End à tous