Page en cours de chargement

Donnez votre avis..
Que pensez-vous de gambaslinux.fr?
 
Interessant
Il manque des rubriques
excellent site
Résultats
INTERFACE GAMBAS
LOGICIELS GAMBAS 3
TUTORIELS
=Bibliothèque
Utiliser les fichiers - Les Fichiers texte
UTILISER LES FICHIERS TEXTE

bonjour,
aujourd'hui nous allons manipuler un fichier texte avec les fonctions usuelles :
ouvrir, fermer,rechercher, copier, coller.


OUVERTURE D'UN FICHIER TEXTE
ouvrir un fichier est très simple.
Il vous suffit de définir deux variables
monfichier as FILE
maligne as string

ensuite il vous suffit d'ouvrir le fichier et de le lire jusquà la fin avec un test pour voir si nous sommes en fin de fichier avec la boucle :

WHILE NOT eof
WEND

ce qui nous donne en résumé :

DIM monfichier AS File
DIM maligne AS String
monfichier = OPEN "/chemindufichier/" FOR INPUT
WHILE NOT eof(monfichier)
LINE INPUT #monfichier, maligne
print maligne
WEND



dans cet exemple nous envoyons tous les caracteres vers la console par l'instruction PRINT maligne. Nous aurions pu l'envoyer vers une textarea par la commande textarea1.insert(maligne).


FERMER UN FICHIER

N'oublions pas que nous devons fermer le fichier par la commande  :

CLOSE #monfichier

Remarque : Meme sans fermer le fichier votre logiciel fonctionnera quand même, mais il vaut mieux le faire par "rigueur du programmeur" :)



RECHERCHER UNE OCCURENCE

Il suffit d'utiliser l'instruction InStr qui cherche dans une chaine de caracteres et vous retourne la position.

exemple :
numero =  Instr(maligne , "toto")

veut dire dans la chaine de caractere importée du fichier texte mmonfichier, cherche la chaine de caractères "toto" puis renvoi moi la position ou se situe le début de la chaine
 
si l chaine maligne est : "bonjour toto tu vas bien?", numero aura pour valeur 9



COMPTER LE NOMBRE DE LIGNE

il suffit d'insérer dans la boucle WHIlE NOT WEND une variable nommée numeroligne et de l'incrémenter à chaque passage par exemple :

DIM monfichier AS File
DIM maligne AS String
DIM numeroligne AS Integer
numeroligne = 0
monfichier = OPEN "/chemindufichier/" FOR INPUT
WHILE NOT eof(monfichier)
LINE INPUT #monfichier, maligne
print maligne
inc numeroligne
WEND

Voilà pour aujourd'hui.


Date de création : 03/10/2009 @ 16:25
Dernière modification : 27/01/2012 @ 21:36
Catégorie : Utiliser les fichiers
Page lue 6220 fois

Imprimer l'article Imprimer l'article


react.gifRéactions à cet article


Réaction n°2 

 par jackGab le 10/03/2011 @ 18:52

Merci pour ce tuto Très bien mais
Il manque aussi l'exemple en écriture que j'ai eu du mal a trouver.

'On ouvre le fichier en écriture
fichier = OPEN" /home/../fichier.txt "FOR APPEND
            'on écrit dans le fichier           
            PRINT #fichier, TextBoxNom.Text
            PRINT #fichier, TextBoxPass.Text
            CLOSE #fichier

ACCES RAPIDE

doc.png DOCUMENTATION
forum.png   FORUM GAMBAS
logiciel.png LOGICIELS GB
 gb3logo.png  GAMBASFORGE
 mailing.png  MAILING LIST
 bugtracker.png  Gambas Bug Tracker

RECHERCHE




LES INSTRUCTIONS
Divers
INSTRUCTIONS
Où ça, qui ça?
actualite et medias
compteur gratuit
VISITES

   visiteurs

   visiteurs en ligne

ARCHIVES GAMBAS 1/2
^ Haut ^