A voir également:
- Problème en vbs
- Vbs windows - Accueil - Optimisation
- Vbs - Télécharger - Édition & Programmation
- Vbs editor - Télécharger - Édition & Programmation
- Fichier vbs ✓ - Forum Virus
- Vbs malware gen ✓ - Forum Virus
5 réponses
Bonjour,
Un truc comme ça peut être:
«Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.»
Nicolas Boileau
Un truc comme ça peut être:
Dim cpt As Integer
Dim fp As Integer
Dim str As String
fp = Freefile
Open "C:\monfichier.txt" For Input As #fp
While Not EOF(#fp)
Input #fp, str
cpt = cpt + CInt(str)
Wend
Close #fp
MsgBox cpt
«Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.»
Nicolas Boileau
Salut, merci de la réponse. Est-ce que c'es bien du vbs? J'ai tester tel quel et ça ne fonctionne pas.
J'ai ensuite adapter le code pour qu'il soit fonctionnel, mais il n'affiche rien comme résultat.
strSourceFile = "C:\monfichier.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.openTextFile(strSourceFile, 1,true)
Dim cpt
Dim fp
Dim str
fp = objTextFile.readall
While Not objTextFile.AtEndOfStream
Input fp, str
cpt = cpt + CInt(str)
Wend
objTextFile.close
MsgBox cpt
Merci encore d'y jeter un oeil.
J'ai ensuite adapter le code pour qu'il soit fonctionnel, mais il n'affiche rien comme résultat.
strSourceFile = "C:\monfichier.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.openTextFile(strSourceFile, 1,true)
Dim cpt
Dim fp
Dim str
fp = objTextFile.readall
While Not objTextFile.AtEndOfStream
Input fp, str
cpt = cpt + CInt(str)
Wend
objTextFile.close
MsgBox cpt
Merci encore d'y jeter un oeil.
C'est du VB, ça donne des pistes, et ça ouvre la possibilité de faire des recherches...
Un conseil : Type toutes tes variables.
«Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.»
Nicolas Boileau
ReadAlllit tout le fichier, ce n'est pas ce que tu cherches à faire, puisque tu veux additionner chaque ligne de ton fichier.
Dim cpt As Integer
Dim str As String
Dim strSourceFile As String
Dim objFSO As Object
Dim objTextFile As Object
'Initialisation des variables et création des objets
strSourceFile = "C:\monfichier.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.openTextFile(strSourceFile, 1)
'Boucle sur les lignes du fichier
While Not objTextFile.AtEndOfStream
str = objTextFile.ReadLine
cpt = cpt + CInt(str)
Wend
'Fermeture des objets et libération de la mémoire
objTextFile.Close
Set objFSO = Nothing
Set objTextFile = Nothing
'Echo du résultat
wscript.echo cpt
Un conseil : Type toutes tes variables.
«Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.»
Nicolas Boileau
Salut, quand tu parle de typer toutes les variables, C'est bien la portion en gras que tu parle? C'est quoi l'impact de les avoirs ou non? J'ai tenté d'exécuter ce que tu m,as mis plus haut et ça me donne un message d'erreur. Le code attend la fin des instructions, pourtant si j'enlève la partie en gras, ça marche parfaitement. Résultat donné: 80
Dim cpt As Integer
Dim str As String
Dim strSourceFile As String
Dim objFSO As Object
Dim objTextFile As Object
'Création des objets
strSourceFile = "C:\monfichier.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.openTextFile(strSourceFile, 1)
'Boucle sur les lignes du fichier
While Not objTextFile.AtEndOfStream
str = objTextFile.ReadLine
cpt = cpt + CInt(str)
Wend
'Fermeture des objets et libération de la mémoire
objTextFile.Close
Set objFSO = Nothing
Set objTextFile = Nothing
'Echo du résultat
wscript.echo cpt
Merci du coup de main. Très apprécié.
Dim cpt As Integer
Dim str As String
Dim strSourceFile As String
Dim objFSO As Object
Dim objTextFile As Object
'Création des objets
strSourceFile = "C:\monfichier.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.openTextFile(strSourceFile, 1)
'Boucle sur les lignes du fichier
While Not objTextFile.AtEndOfStream
str = objTextFile.ReadLine
cpt = cpt + CInt(str)
Wend
'Fermeture des objets et libération de la mémoire
objTextFile.Close
Set objFSO = Nothing
Set objTextFile = Nothing
'Echo du résultat
wscript.echo cpt
Merci du coup de main. Très apprécié.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question