L'instruction Open permet la création et la consultation de fichiers textes clairs ou de fichiers binaires. La lecture de ces fichiers se fera de manière séquentielle ou directe suivant la méthode employée.

Le tableau suivant détaille les différents mode d’utilisation de Open :

Si vous souhaitez créer un petit fichier texte pour y stocker quelques données de configuration, vous pouvez employer l’instruction Open avec les modes Input, Output et Append. Vous créez alors un fichier .txt lisible par un éditeur quelconque (NotePad, WordPad, …). La lecture dans ce fichier se fera uniquement par une boucle parcourant les lignes une à une du début vers la fin :

Création d'un fichier texte

Attention Output permet la création d’un nouveau fichier. Si le fichier existe déjà, il est écrasé.

Le numéro #1 permet d’identifier le fichier concerné par les futures commandes, si vous ouvrez plusieurs fichiers différents, veillez à gérer différents numéros.

'Ouverture

Open "c:\stage\test.txt" For Output As #1

'Ecriture

Print #1, "Ceci est ma première ligne!"

Print #1, ""

Print #1, "Et voilà la seconde!"

'Fermeture

Close #1

'Accès en lecture séquentielle sur un fichier texte avec Input

'Variable de récupération des chaînes

Dim Chaine As String

'Ouverture

Open "c:\stage\test.txt" For Input As #1

'Boucle de parcours séquentiel

Zone.Text = "" 'Vide la zone de texte

Do While Not EOF(1) 'Tant que la fin de fichier n'est pas atteinte

Input #1, Chaine

Zone.Text = Zone.Text & vbCrLf & Chaine

Loop

'Fermeture

Close #1

Si vous cherchez à stocker un tableau de valeurs s’apparentant à une table de données, vous souhaiterez certainement atteindre n’importe quelle ligne directement par un identifiant. Si l’emploi d’une vraie base de données ne vous satisfait pas, optez alors pour le mode Random, mais ATTENTION : ne ré-inventez pas la roue.

Ecriture et lecture dans un fichier binaire à accès aléatoire :

Chaque ligne de votre fichier est un enregistrement dont la structure est celle d’une variable que vous créez. Dans l’exemple ci dessous on souhaite stocker sur chaque ligne un code et un nom. On crée d’abord un type de donnée structuré avec Type … End Type. Puis dans les instructions Get on utilisera une variable de ce type pour lire les lignes.

Private Type Enreg ' Désigne le type défini par l'utilisateur.

Code As Integer

Nom As String * 20

End Type

Dim Ligne As Enreg ' Déclare la variable.

Kill "c:\stage\rando.txt"

 

'Ouverture

La syntaxe Len = Len (Ligne) permet à Open de prendre connaissance de la longueur des lignes saisies

Le fichier créé contient donc des lignes de longueurs fixes

Open "c:\stage\rando.txt" For Random As #1 Len = Len(Ligne)

Put #1, 1, "Maître corbeau"

Put #1, 2, "Sur un arbre perché"

Put #1, 3, "Tenait en son bec"

Put #1, 4, "Un fromage"

Close #1

En mode binary, les données contigues et les lectures se font séquentiellement par blocs de x octets.

Dim Ligne As Enreg ' Déclare la variable.

Kill "c:\stage\binary.txt"

 

'Ouverture

Open "c:\stage\binary.txt" For Binary As #1 Len = Len(Ligne)

Put #1, , "Maître corbeau"

Put #1, , "Sur un arbre perché"

Put #1, , "Tenait en son bec"

Put #1, , "Un fromage"

Close #1