Discussion :

[blanquettedeveau]

Bonjour à vous,
Après des heures de recherche je ne trouve toujours pas mon bonheur.

Voici mon problème:

Je dois vérifier si mes fichiers signatures respectent bien les normes de nommage mises en place (Ex de signature : svr_sep-client.12.1.4--mig_windows_2003-2008-2008r2-2012r2_n1-n3^1.0)
J'ai donc plusieurs champs séparés par des underscores "_"
La fonction Split me permet de bien récupérer chaque champ.
Je dois ensuite vérifier chaque champ mais à part le premier (qui est toujours "svr") les autres sont variables.

J'ai un problème sur le deuxième champ (sep-client.12.1.4--mig). Ce dernier se découpe de la manière suivante :
produit[-complément].version[--type d'opération]

Je n'arrive pas à écrire la recherche qui dit : commence au début de la string et va jusqu'au premier point (pour vérifier le produit avec possibilité de tirets pour les compléments) et ensuite la version qui commence de ce point jusqu'au doubles tirets (qui ne sont pas toujours là)...

Si vous avez des idées avec les expressions régulières...

Mon script jusqu'ici :

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
'Signatures test :
'svr_sysref-win-dat.vir.1.1_windows_2012r2_n1^1.0
'svr_sysref-win.spsv0_windows_2012r2_n1-n3^1.0
'svr_sep.12.1.4_windows_2003-2008-2008r2-2012r2_n1-n3^1.0
'svr_message-gen.2.0_windows_2012-2012r2_n1-n3^1.0
 
sign = inputbox("Copier la signature","Vérification des signatures","")
 
'Découpage de la signature
Dim Tab
    Tab = Split(sign, "_")
    svr =  Tab(0)
    nomproduitversion = Tab(1)
	OS =  Tab(2)
	versionOS =  Tab(3)
	secu =  Tab(4)
 
If svr="svr" then 
	msgbox "Champ svr : OK",vbInformation,svr
	else msgbox "La signature doit obligatoirement commencer par svr",vbCritical
end if

[pc75]

Bonjour,

Tu dois pouvoir t'en sortir avec la fonction InStr() qui retourne la position d'une sous-chaine dans une chaine.
Avec cette valeur, tu pourras utiliser les fonctions Left(), Right() ou Mid()

[blanquettedeveau]

Merci de ta réponse,

Avec inStr() j'arrive à récupérer une chaine "exacte" mais je ne trouve pas d'expression régulière qui me permette de récupérer une chaine qui varie...

Cordialement

[pc75]

Re,

Avec cette ligne :

Code :

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

1
2
3
 
Chaine = "sep-client.12.1.4--mig"
Pos = InStr(Chaine, ".")

Tu récupères la position du point dans la variable Chaine

Ensuite, tu fais :

Code :

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

1
2
 
Valeur = Mid(Chaine, 1, Pos - 1)

ou

Code :

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

1
2
 
Valeur = Left(Chaine, Pos - 1)

Tu obtiendra la première valeur de ta variable non ?

Ou j'ai mal compris !

[blanquettedeveau]

Oui ceci récupère bien mon champ produit comme je l'avais fait avec la fonction inStr aussi, je dois maintenant faire en sorte qu'il vérifie que la syntaxe soit bonne...
Par exemple pas de point au milieu, pas d'underscore, les compléments ajoutés par des tirets...

[pc75]

Re,

Et c'est quoi qui fait en sorte que la syntaxe soit bonne ?

[blanquettedeveau]

Par exemple, avec cette signature :

svr_sep.12.1.4_windows_2003-2008-2008r2-2012r2_n1-n3^1.0

nomproduitversion=sep.12.1.4 (d'après mon Split avec "_" comme séparateur)

Code :

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

1
2
3
4
Pos=inStr(nomproduitversion,".")
nomproduit=Mid(nomproduitversion,1,Pos -1)
msgbox nomproduit 
'ceci renvoie bien sep ==> OK

Si par exemple la signature n'est pas bonne, que mon nomproduitversion=sep.client (au lieu de sep-client) avec un "." à la place d'un -" pour un complément la position du caractère "." va donc s'arrêter au mauvais moment :

nomproduitversion=sep.client.12.1.4

Code :

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

1
2
3
4
Pos=inStr(nomproduitversion,".")
nomproduit=Mid(nomproduitversion,1,Pos -1)
msgbox nomproduit 
'ceci renvoie sep ==> KO

C'est un peur dur à expliquer comme ça...

!!!!!! EDIT !!!!!!

En fait je crois que je pourrais fourber dans la phase suivante.
Je garde le nomproduit grace à la position du point :

Code :

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

1
2
3
4
5
6
Pos=inStr(nomproduitversion,".")
nomproduit=Mid(nomproduitversion,1,Pos -1)
If nomproduit=Mid(nomproduitversion,1,Pos -1) then 
	msgbox "Champ nomproduit : OK",vbInformation,nomproduit
	else msgbox "Le nom produit n'est pas aux normes",vbCritical
end if

Mais le if ne sert pas à grand chose...

et ensuite pour vérifier la version :

Code :

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

1
2
3
4
5
6
versionproduit=Mid(nomproduitversion,Pos+1)
If versionproduit=inStr(versionproduit,"^[a-zA-Z]\.") then 
'ou alors If versionproduit="^[a-zA-Z]\." then
	msgbox "La version produit n'est pas aux normes",vbCritical
	else msgbox "Champ versionproduit : OK",vbInformation,versionproduit
end if

Mais je n'arrive pas à lui dire concrètement que si ma chaine versionproduit commence par une lettre, alors c'est pas bon...

[l_autodidacte]

Mais je n'arrive pas à lui dire concrètement que si ma chaine versionproduit commence par une lettre, alors c'est pas bon...

Un test sur la chaine "versionproduit" est possible avec cette fonction :

Code :

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

1
2
3
Function VersionValide(strVer)
    VersionValide = Asc(Left(strVer,1)) >= 48 And Asc(Left(strVer,1)) <= 57 ' limiter le premier caractère de 0 à 9
End Function