lire une ligne précise dans un txt et un text box

pour le txt, j'ai une manière mais j'aimerais savoir si sa ce fait + court:

Hasard = 5 'Example
Open AP & "gameplay\n1\cn1.qdh" For Input As #1
i = 0
Do Until EOF(1)
Line Input #1, Texte
i = i + 1
If i = hasard Then c.Caption = Texte: Close: Exit Do
Loop

-------------------------------
Réponse au message :
-------------------------------

pour le txt, j'ai une manière mais j'aimerais savoir si sa ce fait + court:

Hasard = 5 'Example
Open AP & "gameplay\n1\cn1.qdh" For Input As #1
i = 0
Do Until EOF(1)
Line Input #1, Texte
i = i + 1
If i = hasard Then c.Caption = Texte: Close: Exit Do
<---- La tu as droit a un mechant plantage ! ---->
Loop

oui

'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
open "nom du fichier" for input as #1
do
input #1, text$
if text$ = ligne$ then exit do
loop until eof(1)
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

'rendu ici tu a la ligne désirée dans la variable "text$"

Mais je voit pas d'autre facon pour aller a une ligne précise

ça me rappelle qqchose ce code... et il fonctionne ok n'est-ce pas ? pour faire plus court, j'ai pas d'idée.


-------------------------------
Réponse au message :
-------------------------------

pour le txt, j'ai une manière mais j'aimerais savoir si sa ce fait + court:

Hasard = 5 'Example
Open AP & "gameplay\n1\cn1.qdh" For Input As #1
i = 0
Do Until EOF(1)
Line Input #1, Texte
i = i + 1
If i = hasard Then c.Caption = Texte: Close: Exit Do
Loop

Je ne c'est pas pourquoi ut dit que sa plante car sa fonctionne très bien!
-------------------------------
Réponse au message :
-------------------------------





-------------------------------
Réponse au message :
-------------------------------

pour le txt, j'ai une manière mais j'aimerais savoir si sa ce fait + court:

Hasard = 5 'Example
Open AP & "gameplay\n1\cn1.qdh" For Input As #1
i = 0
Do Until EOF(1)
Line Input #1, Texte
i = i + 1
If i = hasard Then c.Caption = Texte: Close: Exit Do
<---- La tu as droit a un mechant plantage ! ---->
Loop

oui

'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
open "nom du fichier" for input as #1
do
input #1, text$
if text$ = ligne$ then exit do
loop until eof(1)
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

'rendu ici tu a la ligne désirée dans la variable "text$"

Mais je voit pas d'autre facon pour aller a une ligne précise

Salut

Il y a quelque temps j'ai mis un code sur le site qui pourra peut-être répondre à ton attente

Il se trouve dans la catégorie texte à la page 10
"Transférer une ligne déterminée d'un textbox vers un label"

a+



-------------------------------
Réponse au message :
-------------------------------

Je ne c'est pas pourquoi ut dit que sa plante car sa fonctionne très bien!
-------------------------------
Réponse au message :
-------------------------------





-------------------------------
Réponse au message :
-------------------------------

pour le txt, j'ai une manière mais j'aimerais savoir si sa ce fait + court:

Hasard = 5 'Example
Open AP & "gameplay\n1\cn1.qdh" For Input As #1
i = 0
Do Until EOF(1)
Line Input #1, Texte
i = i + 1
If i = hasard Then c.Caption = Texte: Close: Exit Do
<---- La tu as droit a un mechant plantage ! ---->
Loop

oui

'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
open "nom du fichier" for input as #1
do
input #1, text$
if text$ = ligne$ then exit do
loop until eof(1)
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

'rendu ici tu a la ligne désirée dans la variable "text$"

Mais je voit pas d'autre facon pour aller a une ligne précise