NykoKurapika
Messages postés37Date d'inscriptionjeudi 10 février 2005StatutMembreDernière intervention10 janvier 2008
-
27 juin 2005 à 08:50
NykoKurapika
Messages postés37Date d'inscriptionjeudi 10 février 2005StatutMembreDernière intervention10 janvier 2008
-
28 juin 2005 à 08:29
Bonjours, je débute en programmation et j'ai décider de me faire un
annuaire en séquentiel seulement je suis un peut long a la détente et
j'ai eu beau lire les différents Tuto fac ... je comprend un peut le
fonctionnement mais je n'arrive tjrs pas à faire quelque chose qui
fonctionne.
Je voudrais simplement savoir précisément comment ouvrir un fichier
Texte, et enregistré dedant des infos correspondant à un numéro et
ensuite affiché ces donnés celon le numero sélectionné (en gros !)
Donc voili voilou je remercie par avance toute personne succeptible de
pouvoir me donner plus d'information et un coup de main afin de
maitriser cette méthode.
Nyko
A voir également:
Débute en Programmation. Problème avec le Séquentiel
econs
Messages postés4030Date d'inscriptionmardi 13 mai 2003StatutMembreDernière intervention23 décembre 200824 27 juin 2005 à 10:00
ECRITURE DE L'ANNUAIRE
Dim numFile As Long
numFile= FreeFile
Open "C:\annuaire.txt" For Output As #numFile
Print #numFile,"Babar"
Print #numFile,"23 ans"
Print #numFile,"Céleste"
Print #numFile,"22 ans"
Print #numFile,"Zéphir"
Print #numFile,"18 ans"
Close #numFile
Si tu ouvres ton fichier texte avec Notepad, il se présente comme ceci :
Babar
23 ans
Céleste
22 ans
Zéphir
18 ans
LECTURE DE L'ANNUAIRE
Dim numFile As Long
Dim sPersonne As String
Dim sAge As String
numFile =FreeFile
Open "C:\annuaire.txt" For Input As #numFile
While not EOF(numFile) ' on parcours tout le fichier
Line Input #numFile,sPersonne
Line Input #numFile,sAge
MsgBox sPersonne & " a " & sAge & "ans."
Wend
Close #numFile
RECHERCHER UN CONTACT
Dim numFile As Long
Dim sPersonneRecherchee As String
Dim sPersonne As String
Dim sAge As String
sPersonneRecherchee = "Céleste"
numFile=FreeFile
Open "C:\annuaire.txt" For Input As #numFile
While not EOF(numFile) ' on parcours tout le fichier
Line Input #numFile,sPersonne
Line Input #numFile,sAge
If sPersonne = sPersonneRecherchee Then
MsgBox sPersonne & " a " & sAge & "ans."
End If
Wend
Close #numFile
RAJOUTER UN CONTACT DANS L'ANNUAIRE
Dim numFile As Long
numFile =FreeFile
Open "C:\annuaire.txt" For Append As #numFile
Print #numFile,"Superman"
Print #numFile,"32 ans"
Close #numFile
Manu -------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
econs
Messages postés4030Date d'inscriptionmardi 13 mai 2003StatutMembreDernière intervention23 décembre 200824 27 juin 2005 à 09:11
Oups, dans les deux derniers exemples, le Wend est en trop. (copier coller hasardeux)
Wend, c'est l'instruction qui permet de délimiter une instruction While.
While maConditionEstBonne
'Je boucle
Wend
FreeFile te donne un numéro de fichier valide. Si tu ouvres plusieurs
fichiers en même temps, tu ne peux pas leur assigner de doublon pour
les numéros de fichier.
FreeFile gère seul ces numéros, en te fournissant toujours quelque chose de valide.
======================================
LECTURE
Dim numFile As Long
numFile=FreeFile
Open "C:\annuaire.txt" For Input As #numFile
While not EOF(numFile)
Line Input #numFile,sTemp
MsgBox sTemp
Wend
Close #numFile
ECRITURE D'UN NOUVEAU FICHIER
Dim numFile As Long
Dim sTemp as String
sTemp = "une ligne"
numFile=FreeFile
Open "C:\annuaire.txt" For
Output As #numFile
Print #numFile,sTemp
Close #numFile
ECRITURE A LA FIN D'UN FICHIER EXISTANT
Dim numFile As Long
Dim sTemp as String
sTemp = "une autre ligne"
numFile=FreeFile
Open "C:\annuaire.txt" For Append As #numFile
Print #numFile,sTemp
Close #numFile
Manu -------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
Vous n’avez pas trouvé la réponse que vous recherchez ?
NykoKurapika
Messages postés37Date d'inscriptionjeudi 10 février 2005StatutMembreDernière intervention10 janvier 2008 27 juin 2005 à 09:22
Je commance à comprendre ! lol
Juste que le FreeFile prendra automatiquement une nouvelle valeure a chaque enregistrement ???
Et si en remplacant FreeFile par un Chiffre (1,2,3...) et en
modifiant 2, 3 truc, est ce qu'en mode lecture on a accet au
données correspondant a ce chifre
Dim numFile As Long
numFile= 5
Open "C:\annuaire.txt" For Input As #numFile
While not EOF(numFile)
Line Input #numFile,sTemp
MsgBox sTemp
Wend
Close #numFile
econs
Messages postés4030Date d'inscriptionmardi 13 mai 2003StatutMembreDernière intervention23 décembre 200824 27 juin 2005 à 09:35
> Juste que le FreeFile prendra automatiquement une nouvelle valeure
OUI.
> a chaque enregistrement ???
Non, à chaque ouverture de fichier. Un numéro est valable pour un seul
fichier, tant que celui-ci reste ouvert. Ce numero n'est plus valable
dès que tu as fait Close #numero
Tu peux remplacer numFile par un nombre. Pas de problème. Mais si tu
ouvres plusieurs fichiers et que tu te mélanges dans les nombres, çà
risque de bien planter.
C'est pour çà que l'utilisation d'une variable contenant FreeFile rend les choses plus lisibles.
Manu -------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.