Lire dans fichier texte

Signaler
Messages postés
345
Date d'inscription
lundi 15 mars 2004
Statut
Membre
Dernière intervention
13 mai 2011
-
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
-
Bonjour tout le monde :



J'aimerais savoir comment lire dans mon fichier à certains endroit. J'explique :

J'ai ceci dans le fichier txt

11:00 = Texte

12:12 = 1



Et par exemple, je souhaite afficher les infos contenues à 12:12 !!!

Merci de votre aide car je suis un peu perdu meme après avoir lu des dizaines de code différents du site !!

6 réponses

Messages postés
69
Date d'inscription
vendredi 10 septembre 2004
Statut
Membre
Dernière intervention
4 mars 2013

Sakut,

Pour lire directement dans un fichier, il faut déjà l'ouvrir en random :

Open pathname For random As #1 Len=longueur_enregistrement

afin de retrouver tes petits sur chaque enregistrement, le paramètre len te permet de définir une taille fixe d'enregistrement, donc de te positionner toujours correctement sur tes enregistrements avec :

Seek #1, position (position : numéro d'enregistrement)

ou bien directement à l'aide de l'instruction GET :

Get #1, position , variable (position : numéro d'enregistrement)

Zifnig
http://zifnig.free.fr
Messages postés
345
Date d'inscription
lundi 15 mars 2004
Statut
Membre
Dernière intervention
13 mai 2011

Mais je ne comprend pas comment je peux dire par exemple, je veux recupérer la ligne contenant la valeur 11:00 !!!

Je ne vois pas du tout ???? Merci de ton eclaircissement ! ;)
Messages postés
345
Date d'inscription
lundi 15 mars 2004
Statut
Membre
Dernière intervention
13 mai 2011

Mais je ne comprend pas comment je peux dire par exemple, je veux recupérer la ligne contenant la valeur 11:00 !!!

Je ne vois pas du tout ???? Merci de ton eclaircissement ! ;)
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
30
à condition que les enregistrements ont tous la même Longueur.



<gras>Get#1, </gras>numéro d'enregistrement , Ligne


Daniel
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
26
Bonjour,
Pour essayer ta recherche, j'ai créé un fichier avec
11:00 = Texte
12:12 = 1


Ce code récupère le 1 de 12:12 = 1

Private Sub Command2_Click()
Dim t
Open "C:\moi.txt" For Input As #1
Line Input #1, t
If Len(t) <> 0 Then
While Not EOF(1)
Line Input #1, t
Wend
End If
Text1 = InStr(t, 1)
Close #1
End Sub

jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
26
Re bonjour,
Si tu veux récupérer la valeur texte qui se trouve dans 11:00 = Texte.

Private Sub Command2_Click()
Dim t
Open "C:\moi.txt" For Input As #1
Line Input #1, t
If Len(t) <> 0 Then
While Not EOF(1) - 1
Line Input #1, t
Wend
End If
Text1 = Mid(t, 9)
Close #1
'(9 est le nbre de caractères avant texte, à adapter suivant les données, Par Exemple "tonNom = texte " donnera Mid(t,10)
End Sub

jpleroisse