Retirer une information dans un fichier text
herminak
Messages postés
1
Date d'inscription
vendredi 24 novembre 2000
Statut
Membre
Dernière intervention
2 septembre 2005
-
2 sept. 2005 à 14:54
crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 - 2 sept. 2005 à 16:58
crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 - 2 sept. 2005 à 16:58
A voir également:
- Retirer une information dans un fichier text
- Vba écrire dans un fichier texte - Conseils pratiques -Visual Basic / VB.NET
- Fichier .ini - Conseils pratiques -Visual Basic / VB.NET
- Fichier json - Conseils pratiques -Javascript
- Appeler un fichier javascript dans une page html - Conseils pratiques -Javascript
- Javascript écrire dans un fichier - Forum Javascript / DHTML
2 réponses
linasteph
Messages postés
153
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
22 juillet 2009
1
2 sept. 2005 à 15:12
2 sept. 2005 à 15:12
pour récupérer les numéros:
dim lfile as long
dim sline as string
lfile = freefile
open monfichier.txt for input as #lfile
line input #lfile, sline
do while not eof(lfile)
'traitement à effectuer
' envoi sms à partir du numéro lu et stocké dans sline
line input #lfile, sline
loop
close #lfile
Par contre pour envoyer des sms je ne vois pas très bien comment faire (pour l'instant)
dim lfile as long
dim sline as string
lfile = freefile
open monfichier.txt for input as #lfile
line input #lfile, sline
do while not eof(lfile)
'traitement à effectuer
' envoi sms à partir du numéro lu et stocké dans sline
line input #lfile, sline
loop
close #lfile
Par contre pour envoyer des sms je ne vois pas très bien comment faire (pour l'instant)
crenaud76
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
28
2 sept. 2005 à 16:58
2 sept. 2005 à 16:58
Linasteph < Petite correction sur ton code qui risque de planter si le fichier est vide ...
dim lfile as long
dim sline as string
lfile = freefile
open monfichier.txt for input as #lfile
while not eof(lfile)
line input #lfile, sline
'traitement à effectuer
' envoi sms à partir du numéro lu et stocké dans sline
Wend
close #lfile
dim lfile as long
dim sline as string
lfile = freefile
open monfichier.txt for input as #lfile
while not eof(lfile)
line input #lfile, sline
'traitement à effectuer
' envoi sms à partir du numéro lu et stocké dans sline
Wend
close #lfile
