Se connecter / S'enregistrer

Résolu Somme en Vbs

Solutions (9)
Tags :
  • Path
  • google
  • true
  • Programmation
|
Bonsoir,

J'essaye d'effectuer une simple somme de deux nombres contenus dans des fichiers txt puis de l'écrire dans un autre fichier txt.
Mais je n'obtiens pas la somme des deux. Le Vbs me renvoi les deux nombres l'un au dessus de l'autre dans le fichier txt.
Voici le code:
  1. 'calcul des heures
  2. Const ForReading = 1, ForWriting = 2
  3. Set fso = CreateObject("Scripting.FileSystemObject")
  4. path = fso.GetParentFolderName(wscript.ScriptFullName)
  5. Set f = fso.OpenTextFile(path & "\Chiffres\now\heures.txt", ForReading,true)
  6. htoday = f.ReadAll
  7. f.Close
  8. Set f = fso.OpenTextFile(path & "\Chiffres\27\heures27.txt", ForReading,true)
  9. h27 = f.ReadAll
  10. f.Close
  11. htotal = htoday + h27
  12. msgbox htotal
  13. Set f = fso.OpenTextFile(path & "\Chiffres\consomation\heures.txt", ForWriting,true)
  14. f.WriteLine htotal
  15. f.Close


Admettons que heures.txt et heures27.txt contiennent tous les deux: 00
J'obtiens:

00
00

A noter que les soustractions fonctionnent très bien.

Merci par avance.
Contenus similaires
Meilleure solution
partage
, Modérateur |
google => vbscript add 2 values => http://www.programmingforums.org/post152734.html

  1. num1 = CInt(document.Example2.num1.value)
  2. num2 = CInt(document.Example2.num2.value)
  3. num3 = CInt(document.Example2.num3.value)


  • Commenter cette solution |
Score
0
òh
òi
|
Ok merci à vous deux.
  • Commenter cette réponse |
Score
0
òh
òi
, Modérateur |
M4g1c1eN a dit :
Meilleure réponse sélectionnée par M4g1c1eN.

nOh, tu pouvais sélectionner celle de crazycat, il t'avait proposé CInt juste avant ;) 
n
n
crazycat@idn a dit :
A mon avis (mais je n'en suis pas sur), les soustractions fonctionnent parce que c'est une opération qui n'est valable que pour des numériques, donc les valeurs sont castées. J'imagine que cela doit aussi marcher avec les multiplications et les divisions.
nPour l'addition, vb doit interpréter ça comme une concaténation si on a une string.
n
nEt je ne pense pas qu'une page html puisse lancer quelque chose sur l'ordinateur.

n+1
  • Commenter cette réponse |
Score
0
òh
òi
|
A mon avis (mais je n'en suis pas sur), les soustractions fonctionnent parce que c'est une opération qui n'est valable que pour des numériques, donc les valeurs sont castées. J'imagine que cela doit aussi marcher avec les multiplications et les divisions.
Pour l'addition, vb doit interpréter ça comme une concaténation si on a une string.

Et je ne pense pas qu'une page html puisse lancer quelque chose sur l'ordinateur.
  • Commenter cette réponse |
Score
0
òh
òi
|
Meilleure réponse sélectionnée par M4g1c1eN.
  • Commenter cette réponse |
Score
0
òh
òi
|
Merci ça fonctionne sans problème. Mais je ne comprend toujours pas pourquoi les soustractions fonctionnent sans CInt() ?
Sinon, est-ce possible de lancer un .vbs en local à partir d'une page html ? (Je crois que ça n'est pas possible mais au cas ou ...)
Merci.
  • Commenter cette réponse |
Score
0
òh
òi
|
Essaye avec cint() alors. Mais je ne suis pas sûr :) 
  • Commenter cette réponse |
Score
0
òh
òi
|
Cela ne fonctionne pas:
Erreur: Variable indéfinie 'Val'

Merci
  • Commenter cette réponse |
Score
0
òh
òi
|
  1. htotal = Val(htoday) + Val(h27)
  • Commenter cette réponse |

Ce n'est pas ce que vous cherchiez ?

Tom's guide dans le monde
  • Allemagne
  • Italie
  • Irlande
  • Royaume Uni
  • Etats Unis
Suivre Tom's Guide
Inscrivez-vous à la Newsletter
  • ajouter à twitter
  • ajouter à facebook
  • ajouter un flux RSS