Script VBS existant : comparer valeurs

Version imprimable

Bonjour à tous:)

Je suis actuellement en train de reprendre plusieurs scripts assez anciens réalisés en .vbs

Je bute sur l'un d'entre eux en particulier, lors de la comparaison de versions.

Il s'agit d'un fichier qui liste les versions de logiciels.

2 variables sont définies (version actuelle et version obsolète).
Code:

1 2 3 versionAct="1.7" versionObs="1.6"
Et plus loin dans le code une vérification est réalisée afin de coloriser les différentes versions selon 3 cas de figure :
- obsolète.
- ancienne.
- actuelle.

Le code qui vérifie la version est le suivant :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Function SetColor(Version) If Version = "1.11.0" Then SetHeadColor = "#40FF00" Elseif Version < "10" and Version > versionAct Then SetHeadColor = "#40FF00" Elseif Version < versionAct and Version > versionObs Then SetHeadColor = "#F7FE2E" Elseif Version < versionObs Then SetHeadColor = "#DF0101" End If End Function
En fait, tout fonctionnait bien jusqu'à la version 1.9, mais la 1.10 est considérée comme inférieure à la 1.9 (logique me direz-vous).
J'avais pensé convertir le format de la variable, mais cela ne semble pas exister en vbs.
Voyez-vous une solution simple à ce problème ?
Merci de m'avoir lu :D

bonjour,

Citation:

J'avais pensé convertir le format de la variable, mais cela ne semble pas exister en vbs.

si bien sûr mais ça ne changera rien au problème rencontré
la solution n'est pas dans le transtypage des variables mais dans la logique
en réalité la version contient deux numérotations distinctes qui doivent être comparées séparément
ce n'est pas par hasard si beaucoup de programmes renvoient leur version sous la forme "major"/"minor"/"build"
une solution parmi une infinité :
Code:

1 2 3 4 5 6 7 8 VOld = "1.9" VNew = "1.10" If vNew > VOld Then MsgBox "normal" Else Msgbox "Pas normal" aVOld = Split(VOld,".") ' renvoie le tableau des items séparés par un point aVNew = Split(VNew,".") If aVOld(1) > aVNew(1) Then MsgBox "normal" Else Msgbox "Pas normal"

Citation:

Envoyé par omen999

bonjour,

si bien sûr mais ça ne changera rien au problème rencontré
la solution n'est pas dans le transtypage des variables mais dans la logique
en réalité la version contient deux numérotations distinctes qui doivent être comparées séparément
ce n'est pas par hasard si beaucoup de programmes renvoient leur version sous la forme "major"/"minor"/"build"
une solution parmi une infinité :

Merci pour l'explication et ta solution :)
J'ai tenté de l'implémenter, en fait aucune msgbox ne doit être affichée, cela sert juste à colorer un tableau.
Mais je pense avoir oublié quelque chose, il n'y a pas d'erreur mais aucune couleur :ptdr:
Il y a sûrement quelque chose que je saisis mal. :calim2:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 If versionAct > versionObs then aversionObs = split(versionObs,".") aversionAct = split(versionAct,".") Elseif Version > versionN Then SetHeadColor = "#40FF00" Elseif Version < aversionN and sersion > aversionO Then SetHeadColor = "#F7FE2E" Elseif Version < aversionO Then SetHeadColor = "#DF0101" End If End Function

Salut Blazar_Hunter, bienvenue sur DVP,

Dans un style rapproché d'omen999 :coucou:

Code:

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
Function Format2(Soumis)
Dim TblTemp
TblTemp = Split(Soumis, ".")
If Len(TblTemp(1)) < 2 Then Soumis = TblTemp(0) & ".0" & TblTemp(1)
Format2 = Soumis
End Function
 
 
 
Dim versionAct, versionObs
'pour faire des essais
'versionObs = CStr("1.9"): versionAct = CStr("1.10")
'versionObs = CStr("1.5"): versionAct = CStr("1.5")
'versionObs = CStr("1.15"): versionAct = CStr("1.14")
'versionObs = CStr("1.15"): versionAct = CStr("1.14")
 versionObs = CStr("1.9"): versionAct = CStr("1.7")
 
versionAct = Format2(versionAct)
versionObs = Format2(versionObs)
'MsgBox "versionAct:" & versionAct & "   versionObs:" & versionObs, vbInformation
 
'Exemples d'utilisation
If versionAct > versionObs Then  MsgBox "versionAct: " & versionAct & " est plus grand que versionObs: " & versionObs, vbInformation
If versionAct < versionObs Then MsgBox "versionAct: " & versionAct & " est plus petit que versionObs: " & versionObs, vbInformation
If versionAct = versionObs Then MsgBox "versionAct: " & versionAct & " est egal à versionObs: " & versionObs, vbInformation

09/01/2017, 21h09
omen999

rien à ajouter mon cher ProgElecT :coucou: et mes meilleurs voeux