Chercher une expression dans une chaine de caractères qui change

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:

---

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

---

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()

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

Re,

Avec cette ligne :

Code:

---

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:

---

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

---

ou

Code:

---

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

---

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

Ou j'ai mal compris !

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...

Re,

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

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:

---

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:

---

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:

---

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:

---

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...

Citation:

---

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:

---

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

---