Addition de plusieurs valeurs
Bonjour
Je débute en VBS et j'ai un cas qui pour certains risque de paraître assez simple.
Je m'explique :
J'ai un fichier dans lequel j'ai plusieurs valeur du type :
3.000
5.000
8.652
.....
Je souhaiterais simplement faire la somme de toutes ces valeurs.
J'arrive déjà à toute les récupérées dans un tableau mais lorsque je les additionne, j'obtiens par exemple : 3.0005.0008.652....
Voici mon code (surement pas bon et pas optimisé ;) !!) dans lequel je fais juste le test avec deux valeurs :
Code:
1 2 3 4 5 6 7 8 9
|
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFichier_in = objFSO.openTextFile(nom_fichier_in).ReadAll
arrlignes = split(objFichier_in,vbcrlf)
compteur = UBound(arrlignes)
Capacity = arrlignes(0)+arrlignes(1)
msgbox Capacity |
Merci d'avance pour vos idées et vos réponses.
Cordialement