Discussion :

[Christophe.c.13]

Salut à tous,

utilisant un logiciel d'automatisation de tests se nommant TestComplete, j'utilise le VBScript comme langage de programmation.

Dans mes résultats de tests (Logs), j'ai la possibilité depuis un script de tracer dans le log la valeur d'une donnée :

Code :

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

Log.Message(Data)

et je voudrais savoir comment afficher dans ce log, une données de type "Signed 64-bit integer" ?

Je vous remercie par avance.

Christophe

[omen999]

bonjour,
petit souci, VBS ne connait qu'un type de données le type variant qui présente différents sous-types
Parmi les sous-types numériques, seuls double et currency sont des valeurs 64bits
le premier est un nombre IEEEE à virgule flottante
le second est bien un entier signé mais avec un formatage à virgule fixe (4 digits)...
alors, soit tu peux formater data sous la forme CCur(data) * 10000,
soit les auteurs de testComplete ont prévu une fonction de format du style
FormatInt64(data) capable de renvoyer la valeur sous la forme d'une chaine,
soit la conversion est auto mais ça ne doit pas être le cas sinon tu ne serais pas ici

[Christophe.c.13]

Salut à tous,

désolé mais le problème ne venait pas de l'affichage de ma donnée dans le log car la conversion est bien auto comme le dit omen999.

Lorsque je récupère la donnée data dans le log, celle ci s'affiche comme un Signed 64-bit integer et sa valeur est 12884901888.

Au final, je souhaiterai dans mon test faire :

Code :

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

1
2
3
4
5
6
7
myvar = 12884901888
 
If (data = myvar) Then
...
Else
...
End If

Le problème est que je ne sais pas comment déclarer cette variable myvar comme étant un Signed 64-bit integer donc au final mon "If ... End If" ne marche pas

une solution ?

[omen999]

et que t'affiche le code suivant ?

Code :

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

MsgBox VarType(data)

8 ?

[Christophe.c.13]

Code :

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

MsgBox VarType(data)

m'affiche 20 donc Signed 64-bit integer...


Je suis arrivé à aller un peu plus loin dans ce que je souhaite faire car maintenant j'arrive à faire mon "If...End If"

en fait, j'ai fait

Code :

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

1
2
3
4
5
6
7
myvar = 12884901888
 
If (CurrencyToStr(data) = CurrencyToStr(myvar)) Then
...
Else
...
End If

par contre mon CurrencyToStr(data) vaut 12 884 901 888,00 € donc est-il possible de le formater autrement pour qu'il s'affiche correctement dans mon log ?

[Christophe.c.13]

Salut à tous,

c'est bon, j'ai trouvé et encore merci à omen999, voilà ce que je fais :

Code :

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

1
2
3
4
5
If (CCur(data) = CCur(myvar)) Then
...
Else
...
End If

A+