Accueil
Rechercher:
sur developpez.com sur les forums
Forums | Tutoriels | F.A.Q's | Participez | Hébergement | Contacts
Club Emploi Blogs   TV   Dév. Web PHP XML Python Autres 2D-3D-Jeux Sécurité Windows Linux PC Mac
Accueil Conception Java DotNET Visual Basic  C  C++ Delphi MS-Office SQL & SGBD Oracle  4D  Business Intelligence
FORUM VB FAQs VB TUTORIELS VB OUTILS VB SOURCES VB LIVRES VB
Tutoriel Basic

octobre 2000

Par Bodman

manipulation de fichier

Déjà les mots clés utilisés pour la suppression et création de fichier et de repertoire :


KILL "fichier à supprimer"
MKDIR "dossier à créé"
RMDIR "dossier à supprimer"



Pour les utiliser par exemple on peut faire ceci :

Cls
Input " quel fichier voulez vous supprimer " ;fichier$
Input " êtes vous sur de vouloir le supprimer (oui ou non)" ;reponse$
If reponse$ = " oui" then
Kill fichier$
Print " le fichier à été supprimer"
End

Ensuite nous allons apprendre à ouvrir, lire et modifier un fichier :

OPEN

Alors déjà une chose, il existe 2 types d’acces de manipulation de fichier, l’acces sequenciel et l’acces binaire mais pour l’instant on va se panche sur le séquenciel car le binaire à beau etre plus rapide il demande plus de connaissances.


L’acces sequenciel

Avec cette methode on ne peut pas ecrire et lire à la fois, il y a plusieur mot cle qui indiquerons l’operaion voulu .
La commande se presente de cette maniere :

Pour ouvrir

OPEN "chemin du fichier à lire" FOR INPUT AS #X

Pour ecrire

OPEN "nom du fichier à modifier" FOR OUTPUT AS #X
OPEN " nom du fichier à modifier " FORAPPEND AS #X

X designe le chiffre qu’asignera le programme au fichier

La difference entre output et append est que output suprimera le fichier et le crera à nouveau pour qu’il soit vide alors que append lui reprendra à la fin de ce fichier.


LECTURE


Bien maintenant nous allons voir la lecture de plus pres. Pour lire un fichier vous aurez besoin de l’ouvrir avec input de cette maniere :

OPEN "bod.txt" FOR INPUT AS #2

On ouvre le fichier bod.txt et on lui assigne le chiffre 2.
Puis pour l’afficher à l’ecran plusieur methode.
Pour afficher la premiere ligne il suffit de faire ceci :

LINE INPUT #2, li$
PRINT Li$

Mais on va pas s’arreter a une ligne.

10 LINE INPUT #2, Li$
PRINT Li$
IF EOF(2) <> 1 THEN 10

Comme ça on affichera tout le texte car si on repete line ce sera automatiquement la seconde ligne qui sera pris en compte et pour allez jusque à la fin alors on utilise EOF lorsque sa valeur est egal à 1 c’est qu’il est à la fin du text alors tant qu’il ne le sera pas on reexecutera line.
Mais on peut aussi faire plus preceis, si vous voulez lire des variables il vous suffira de faire de cette maniere
Si on a un fichier test.txt qui contint ceci :

" dupond " , 45
" henri ",65
" chevalier ",32
"volaide ",23

on peut ouvrir ce fichier de cette maniere :

OPEN "test.txt" FOR INPUT AS #1
10 INPUT #1, nom$, age%
PRINT nom$ + " à "; age%; " ans "
IF EOF(1) <> 1 THEN 10
END

Alors le programme affichera tout les nom et les ages presents sur le fichier.


ENREGISTREMENT

Je rappelle que open + append et open + output on la même fonction mais que l’un ajoute du texte et que l’autre supprime tout text present pour le remplir ensuite.
De la meme maniere que pour la lecture vous pouver sauver des ligne ou des variables.
Et de la même maniere aussi si l’on repete une modification ou une lecture sur un fichier une fois mis sous cette forme’ #chiffre‘ on passe obligatoirement à la ligne suivante.

Write : Pour des variable :

OPEN "test.txt" FOR APPEND AS #1
FOR i = 1 TO 10
INPUT " quel est sont nom "; nom$
INPUT " quel est sont age "; age%
WRITE #1, nom$, age%
PRINT "personne "; i; " stocké"
NEXT i
END

Print : Pour des lignes :

OPEN "test.txt" FOR APPEND AS #6
INPUT " tapez un truc "; truc$
Prinr #6, truc$
PRINT "le truc est sauver dans test.txt"
END

-precedent- -sommaire- -Suivant-

Responsables bénévoles de la rubrique Visual Basic : Thierry Adriaenssens et Philippe Baquer - Contacter par EMail :
Vos questions techniques : forum d'entraide Visual Basic - Publiez vos articles, tutoriels et cours
et rejoignez-nous dans l'équipe de rédaction du club d'entraide des développeurs francophones
Nous contacter - Copyright © 2000-2008 www.developpez.com - Legal informations.