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

cs_LeRoux Messages postés 27 Date d'inscription vendredi 22 février 2002 Statut Membre Dernière intervention 4 septembre 2002 - 6 mars 2002 à 01:45
ZTPdiffusion Messages postés 46 Date d'inscription lundi 16 avril 2001 Statut Membre Dernière intervention 7 mars 2002 - 7 mars 2002 à 14:46
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 + 1If i hasard Then c.Caption Texte: Close: Exit Do
Loop

4 réponses

neojoce Messages postés 134 Date d'inscription jeudi 7 février 2002 Statut Membre Dernière intervention 16 juin 2002
6 mars 2002 à 06:23
-------------------------------
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 + 1If 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
0
cs_oliver68 Messages postés 117 Date d'inscription lundi 17 décembre 2001 Statut Membre Dernière intervention 10 mars 2003
6 mars 2002 à 12:29
ça me rappelle qqchose ce code... et il fonctionne ok n'est-ce pas ? pour faire plus court, j'ai pas d'idée.
0
cs_LeRoux Messages postés 27 Date d'inscription vendredi 22 février 2002 Statut Membre Dernière intervention 4 septembre 2002
6 mars 2002 à 16:00
Je ne c'est pas pourquoi ut dit que sa plante car sa fonctionne très bien!
0
ZTPdiffusion Messages postés 46 Date d'inscription lundi 16 avril 2001 Statut Membre Dernière intervention 7 mars 2002
7 mars 2002 à 14:46
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+
0
Rejoignez-nous