Bonjour ,

Voilà je débute en VBScript et je galère depuis quelques jours.
J'ai un fichier texte qui contient des valeurs
Exemple : 758.456, 5123, 128.475, 85 ..... etc
J'ai besoin d'additionner toute ces valeurs contenues dans ce texte et l'afficher à l'écran mais je n'y arrive pas.
Voici le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Dim FSO, MonFichier, FR, textCont
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Monfichier = FSO.GetFile("d:\contenu.txt")
Set FR = Monfichier.OpenAsTextStream( 1,0)
textCont = FR.ReadAll 'on l'a pas encore étudié, je sais !
WScript.Echo "Contenu du fichier: " & textCont
result =  textCont
 
Function Addition1()
 Addition1=result
End Function
MsgBox Addition1()
FR.Close
Pourquoi j'ai besoin de ça ? Certains vont peut etre rire, c'est pour le boulot :
- J'ai un répertoire qui contient plusieurs fichiers
- Dans chaque fichier il y a une valeur que je dois prendre
- Je dois faire le total de ces valeurs et l'afficher

JE GALERE SEVERE !

SVP qui pourrait m'aider ? Je vous remercie d'avance
MERCI MERCI MERCI...