Bonjour à toutes et à tous, c'est la première fois que je poste et j'espère que quelqu'un ou quelqu'une saura éclairer ma terne lanterne !
Mon pb est relativement simple, je veux charger un fichier (*.txt) dans un textbox.
J'ai codé toutes les syntaxes possibles mais j'ai encore et toujours le même résultat, à savoir :
Soit je reçois un message du type " input past eof " avec le code suivant :
( qui fonctionne très bien avec la majorité des fichiers de très petite taille )
...
...
SelectedFile = OpenFile.lpstrFileTitle
a = FreeFile()
Open SelectedFile For Input As #a
Text1.Text = Input(LOF(a), a)
Close #a
...
...
Soit mon code ne me charge que la dernière ligne du fichier
( même avec les fichiers de petite taille )
...
...
selectedfile = Openfile.lpstrFileTitle
a = FreeFile()
Open selectedfile For Input As #a
Do While Not EOF(a)
Line Input #a, temp
Text1.Text = temp
Loop
Close #a
...
...
J'ai beau combiner les différentes syntaxes et procédures trouvées sur le forum,
je suis au point mort.
D'avance merci pour toute l'aide que vous pourrez m'apporter.