Discussion :

[Blazar_Hunter]

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 :

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

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 :

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

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

[omen999]

bonjour,

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 :

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

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"

[Blazar_Hunter]

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
Il y a sûrement quelque chose que je saisis mal.

Code :

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

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

[ProgElecT]

Salut Blazar_Hunter, bienvenue sur DVP,

Dans un style rapproché d'omen999

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

[omen999]

rien à ajouter mon cher ProgElecT et mes meilleurs voeux