Discussion :

[pantere]

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

[ced600]

As tu entendu parler des conversions ?

Quand tu récupères les éléments de ton fichier, c'est du texte, des strings.
Tu ne peut additionner que des int, des long, etc...

Utilises les balises de code pour ton code (# dans le menu d'édition)
D'où est ce qu'il sort ton résult, même pas déclaré.
La telle qu'elle est, ta fonction Addition1 te sert à rien

Bon première chose, récupère le contenu de ton fichier ligne par ligne et non entierement.
Ensuite découpe la ligne à l'aide de split (voir la FAQ), en utilisant comme caractère de séparation celui qui sépare tes chiffres. Tu stock tout cela dans un tableau et tu l'envois dans une fonction Addition. Ensuite tu récupère la valeur que te renvois la fonction et tu l'ajoute à ta variable résultat final.
Tu répète l'opération jusqu'à ce que tu est parcourus tout le fichier.
Pour la fonction Addition, un simple parcours du tableau, une converstion de chacune des valeurs en int, long, ou autre ... Tu sommes le tout, et tu renvois la valeur.

Tout ce qu'il faut savoir pour réaliser cela se trouve dans la FAQ, pour le reste à toi de jouer

[pantere]

Tout d'abord merci CED pour ta réponse !
A vrai dire je nage complètement. Disons que créer un programme c'est difficile mais le décortiquer c'est plus simple...
Pourrais tu me donner un exemple de code STP ?
Merci encore !

[ced600]

Je ne pense pas que tu puisses vraiment comprendre les choses en lisant du code. Le mieux est de le créer sois même.
Je crois que j'ai bien maché l'algorithmie de ce script, alors tu devrais pouvoir t'en sortir.
Pour chaque étape, tu as des exemples de code dans la FAQ.
Essayes de le faire par toi même et reviens poster ce que tu as fait si tu bloques à certains endroits.

[pantere]

Oui tu as raison j'aimerais m'investir bcp plus mais j'ai une contrainte de temps... C'est pour ça. Si tu pouvais me donner un exemple de code je pourrais tester et l'adapter. Qd je bloquerai je viendrai poster...

[pantere]

J'ai suivi ce que tu m'as dit jeune Padawan :

première chose, récupère le contenu de ton fichier ligne par ligne et non entierement.
Ensuite découpe la ligne à l'aide de split (voir la FAQ), en utilisant comme caractère de séparation celui qui sépare tes chiffres. Tu stock tout cela dans un tableau :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim tb 'Tableau
Dim i 
Const ForReading = 1
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("d:\contenu6.txt")  
 
textCont = objFile.ReadAll 
 
tb = split (textCont,"|")
for i = 0 to ubound(tb)
  msgbox tb(i)

Ce simple test m'affiche les valeurs une à une que je récupère du fichier texte ( les valeurs sont séparées par un "|" ici.

Maintenant j'aimerais additionner toutes ces valeurs ??? Peux tu m'aider avec du code stp ??? MERCI d'avance