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
Partager