Problème lors de la lecture d'un fichier avec Input...
Bonjour tout le monde... Enfin bonsoir, vu que j'écris alors qu'il fait nuit.
Débutant sous Visual Basic, j'ai presque tout appris de la programmation grâce à vous et plus précisément à GilMir (le reste me viens de DarkBasic) donc tout d'abord MERCI!!!!!!!!! (oui ca me tennais à coeur...)
Pour en venir à mon probleme, je veux ouvrir un fichier texte que j'ai créé avec le bloc-note. Le voici:
Code:
1 2 3 4 5
| "Far Cry","http://redlabo.guildesonline.com"
"Unreal Tournament 2004","http://redlabo.guildesonline.com"
"Still Life","http://redlabo.guildesonline.com"
"World of Warcraft","http://redlabo.guildesonline.com"
"Warcraft III","http://redlabo.guildesonline.com/" |
j'ai respecté les délimiteur (,) et ("), voulu pour la lecture en séquentiel.
Voilà maintenant mon code:
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| 'suppression du fichier liste jeu si déja existant
If Dir(GetTempDir$ & "Optimiseur.txt", vbHidden) <> "" Then
Kill GetTempDir$ & "Optimiseur.txt"
End If
'Téléchargement fichier liste jeu
FileCopy "d:\Mes documents\Mes écrits\Optimiseur.txt", GetTempDir$ & "Optimiseur.txt"
'Chargement liste logiciel depuis fichier temporaire
Open GetTempDir$ & "Optimiseur.txt" For Input As #1
Do While Not EOF(1)
Input #1, jeu, url
OptimiserTexteListe.AddItem jeu
Loop
Close #1 |
Je voudrais que les noms des jeux apparaissent dans ma ListeBox.
Mais lors de l'execution, Visual Basic m'annonce une erreur :
"l'entrée depasse la fin de fichier."
Y a-t-il quelqu'un qui pourrais m'aider???
Merci d'avance (et excusez moi si la réponse coule de source mais moi je sèche).