VB
jeremy4920
Messages postés
28
Date d'inscription
lundi 17 mai 2004
Statut
Membre
Dernière intervention
22 juin 2004
-
17 mai 2004 à 11:00
blissdumpweed Messages postés 79 Date d'inscription jeudi 15 avril 2004 Statut Membre Dernière intervention 8 juin 2004 - 17 mai 2004 à 11:09
blissdumpweed Messages postés 79 Date d'inscription jeudi 15 avril 2004 Statut Membre Dernière intervention 8 juin 2004 - 17 mai 2004 à 11:09
2 réponses
econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Membre
Dernière intervention
23 décembre 2008
25
17 mai 2004 à 11:07
17 mai 2004 à 11:07
Dim ligne As String
Open "c:\mon_fichier.txt" For Input As #1
While not eof(1)
Line Input #1,ligne
MsgBox ligne
Wend
Close #1
Pour l'extraction de certaines données, il faut que tu précises le format de ces données ( chiffres, lettres, combinaisons des deux, ... )
On ne peut extraire une donnée que si on sait à quoi elle ressemble.
Manu
Open "c:\mon_fichier.txt" For Input As #1
While not eof(1)
Line Input #1,ligne
MsgBox ligne
Wend
Close #1
Pour l'extraction de certaines données, il faut que tu précises le format de ces données ( chiffres, lettres, combinaisons des deux, ... )
On ne peut extraire une donnée que si on sait à quoi elle ressemble.
Manu
blissdumpweed
Messages postés
79
Date d'inscription
jeudi 15 avril 2004
Statut
Membre
Dernière intervention
8 juin 2004
17 mai 2004 à 11:09
17 mai 2004 à 11:09
tu fais :
dim Caractere as string
Open "Ton fichier" For Input As #1
Do While Not EOF(1)
Line Input #1, Ligne
Caractere = InStr(Ligne,"Ce que tu recherches")
'Caractere renvoit la position de tes caractères dans le fichier, si il n'y est pas, Caractere renvoit 0
Loop
Close #1
dim Caractere as string
Open "Ton fichier" For Input As #1
Do While Not EOF(1)
Line Input #1, Ligne
Caractere = InStr(Ligne,"Ce que tu recherches")
'Caractere renvoit la position de tes caractères dans le fichier, si il n'y est pas, Caractere renvoit 0
Loop
Close #1
