Lire dans un fichier txt...
Clonk
Messages postés
278
Date d'inscription
mardi 22 janvier 2002
Statut
Membre
Dernière intervention
29 août 2006
-
22 janv. 2002 à 17:22
Dinbougre Messages postés 48 Date d'inscription mercredi 11 octobre 2000 Statut Membre Dernière intervention 22 juin 2005 - 22 janv. 2002 à 18:12
Dinbougre Messages postés 48 Date d'inscription mercredi 11 octobre 2000 Statut Membre Dernière intervention 22 juin 2005 - 22 janv. 2002 à 18:12
1 réponse
Dinbougre
Messages postés
48
Date d'inscription
mercredi 11 octobre 2000
Statut
Membre
Dernière intervention
22 juin 2005
22 janv. 2002 à 18:12
22 janv. 2002 à 18:12
dim FilePath as string
dim Texte_Ligne as string
FilePath = Fichier_Path & Fichier_Name
'ouvre le fichier
Open FilePath For Input As #1
'met le contenu de la ligne dans Texte_Ligne
While Not EOF(1)
Line Input #1, Texte_Ligne
'mettre ici tout le traitement
...
Wend
Close #1
dans le traitement utilise la fonction
Mid(chaine,depart,longueur) pour lire le texte de la ligne et tu mets if Mid(chaine,depart,longueur) = "%" then...
dim Texte_Ligne as string
FilePath = Fichier_Path & Fichier_Name
'ouvre le fichier
Open FilePath For Input As #1
'met le contenu de la ligne dans Texte_Ligne
While Not EOF(1)
Line Input #1, Texte_Ligne
'mettre ici tout le traitement
...
Wend
Close #1
dans le traitement utilise la fonction
Mid(chaine,depart,longueur) pour lire le texte de la ligne et tu mets if Mid(chaine,depart,longueur) = "%" then...