bbc220229
Messages postés2Date d'inscriptionvendredi 10 avril 2009StatutMembreDernière intervention 4 juillet 2009
-
4 juil. 2009 à 20:07
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 2018
-
4 juil. 2009 à 23:00
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.
bbc220229
Messages postés2Date d'inscriptionvendredi 10 avril 2009StatutMembreDernière intervention 4 juillet 2009 4 juil. 2009 à 22:37
Salut et merci pour ta réponse
Effectivement il manque un # sur la première méthode
Et tu as bien cibler le problème pour la deuxième
En ce qui concerne le language, il s'agit de VB 2005
Peut-être n'est-il pas adapté !?
Et si non, comment concaténer la valeur de ma textbox ?
Là est toute la question.
Je continue de chercher néanmoins et te remercie pour m'avoir mis sur une très bonne piste de recherche.