Accueil > > > AIDE SUR LA FONCTION OPEN
AIDE SUR LA FONCTION OPEN
Information sur la source
Description
Voici quelque ligne de progrmammation de vb6 sur l'instruction pour ouvrir les fichiers en vb6
Source
- 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 :
-
-
-
- Mode
- Utilisation
- Type d'accès
-
- Output Ecrire dans un nouveau fichier séquentiel au format texte. Attention, ne permet pas d'ajouter du texte à un fichier existant mais écrase une version précédente. Séquentiel, une ligne après l'autre.
- Append Ajouter du texte dans un fichier texte séquentiel existant. Séquentiel, une ligne après l'autre.
- Input Lire du texte par accès séquentiel dans un fichier texte. Séquentiel, une ligne après l'autre.
- Random Lit et ajoute des données dans un fichier à accès aléatoire par numéro de ligne. Format binaire non lisible Aléatoire en précisant un numéro de ligne.
- Binary Lit et ajoute des données au format binaire. Pas de notion de ligne, les données sont contigues. Séquentiel par blocs d'octets
-
-
-
-
-
- Création et lecture d'un fichier texte (Modes Output, Input, Append):
-
- 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
-
-
-
- Lecture dans un fichier texte
-
- '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
-
-
-
- Ajout dans un fichier texte :
-
- 'Ajout à un fichier existant
-
- Il est nécessaire que le fichier existe déjà. L'ajout se fait à la suite du texte existant.
-
- 'Ouverture
-
- Open "c:\stage\test.txt" For Append As #1
-
- 'Ecriture
-
- Print #1, "Ceci est une ligne ajoutée!"
-
- Print #1, ""
-
- Print #1, "Et en voilà une autre!"
-
- 'Fermeture
-
- Close #1
-
-
-
- Création de fichiers à accès aléatoire (Mode Random):
-
- 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.
-
-
-
- Création d'un type de données (notre enregistrement)
-
- Private Type Enreg ' Désigne le type défini par l'utilisateur.
-
- Code As Integer
-
- Nom As String * 20
-
- End Type
-
-
-
- Création d'un fichier à accès aléatoire
-
- 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
-
-
-
- Lecture d'un fichier à accès aléatoire
-
- Dim Ligne As String * 15 ' Déclare la variable.
-
- Zone.Text = ""
-
- 'Ouverture
-
- Open "c:\stage\binary.txt" For Binary As #1 Len = Len(Ligne)
-
- Do While Not EOF(1)
-
- Get #1, , Ligne
-
- Zone.Text = Zone.Text & vbCrLf & Ligne
-
- Loop
-
- Close #1
-
-
-
- Création et lecture de fichiers binaires (Mode Binary)
-
- En mode binary, les données contigues et les lectures se font séquentiellement par blocs de x octets.
-
-
-
- Création d'un fichier binaire à accès séquentiel
-
- 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
-
-
-
-
-
- Lecture d'un fichier binaire à accès séquentiel :
-
- Dim Ligne As String * 15 ' Déclare la variable de longueur fixe. La longueur représente la taille du bloc d'octets lus par chaque instruction GET.
-
- Zone.Text = ""
-
- 'Ouverture
-
- Open "c:\stage\binary.txt" For Binary As #1 Len = Len(Ligne)
-
- Do While Not EOF(1)
-
- Get #1, , Ligne
-
- Zone.Text = Zone.Text & vbCrLf & Ligne
-
- Loop
-
- Close #1
-
- hack@lex
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 :
Mode
Utilisation
Type d'accès
Output Ecrire dans un nouveau fichier séquentiel au format texte. Attention, ne permet pas d'ajouter du texte à un fichier existant mais écrase une version précédente. Séquentiel, une ligne après l'autre.
Append Ajouter du texte dans un fichier texte séquentiel existant. Séquentiel, une ligne après l'autre.
Input Lire du texte par accès séquentiel dans un fichier texte. Séquentiel, une ligne après l'autre.
Random Lit et ajoute des données dans un fichier à accès aléatoire par numéro de ligne. Format binaire non lisible Aléatoire en précisant un numéro de ligne.
Binary Lit et ajoute des données au format binaire. Pas de notion de ligne, les données sont contigues. Séquentiel par blocs d'octets
Création et lecture d'un fichier texte (Modes Output, Input, Append):
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
Lecture dans un fichier texte
'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
Ajout dans un fichier texte :
'Ajout à un fichier existant
Il est nécessaire que le fichier existe déjà. L'ajout se fait à la suite du texte existant.
'Ouverture
Open "c:\stage\test.txt" For Append As #1
'Ecriture
Print #1, "Ceci est une ligne ajoutée!"
Print #1, ""
Print #1, "Et en voilà une autre!"
'Fermeture
Close #1
Création de fichiers à accès aléatoire (Mode Random):
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.
Création d'un type de données (notre enregistrement)
Private Type Enreg ' Désigne le type défini par l'utilisateur.
Code As Integer
Nom As String * 20
End Type
Création d'un fichier à accès aléatoire
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
Lecture d'un fichier à accès aléatoire
Dim Ligne As String * 15 ' Déclare la variable.
Zone.Text = ""
'Ouverture
Open "c:\stage\binary.txt" For Binary As #1 Len = Len(Ligne)
Do While Not EOF(1)
Get #1, , Ligne
Zone.Text = Zone.Text & vbCrLf & Ligne
Loop
Close #1
Création et lecture de fichiers binaires (Mode Binary)
En mode binary, les données contigues et les lectures se font séquentiellement par blocs de x octets.
Création d'un fichier binaire à accès séquentiel
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
Lecture d'un fichier binaire à accès séquentiel :
Dim Ligne As String * 15 ' Déclare la variable de longueur fixe. La longueur représente la taille du bloc d'octets lus par chaque instruction GET.
Zone.Text = ""
'Ouverture
Open "c:\stage\binary.txt" For Binary As #1 Len = Len(Ligne)
Do While Not EOF(1)
Get #1, , Ligne
Zone.Text = Zone.Text & vbCrLf & Ligne
Loop
Close #1
hack@lex
Conclusion
Faites gaffe en ouvrant ou en ecrivant certain fichier !!!
Un probleme , envoyer moi un m@il en tapant "aide-open" sur la 1°ere ligne
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Problème avec la fonction workbooks.open lorsque j'ouvre un classeur Excel [ par energizer956956 ]
Bonjour,alors voila j'ai un problème lorsque j'ouvre un fichier excel contenant des dates au format jj-mmm-aa avec la formule Workbooks.open ("C:
Fonction Open...For Binary pour visual basic 2005 [ par PHILOUVB ]
Sous VB6 , j'utilisais la fonction Open...Binary As pour générer des fichiersJe me servais de la fonction Put #... aussiCes fonctions
appeler une fonction dans Private Sub Workbook_Open() [ par fanjomtl ]
Bonjour à tous, je découvre le VBA avec excel en ce moment..J'ai une fonction "initialisation" qui est définie dans Feuil1 comme suit :Public Sub init
Fonction Workbooks.Open problème de date [ par energizer956956 ]
Bonjour, voila j'ai un petit problème avec la fonction Workbooks.open lorsque je l'applique à un classeur excel qui contient des dates. Quan
ouverture fichier texte [ par xeo44 ]
voila, dans mon programme, j'utilise la fonction "open" pour ouvrir un fichier texte (résidant sur mon pc) et tout marche tres bien.J'ai mis ce f
Fonction BitBlt [ par liban123 ]
Salut a tous!Je débute en VB et je suis bolqué...Je suis entrain de modifier un programme, je m'explique:avant le programme avait pour
Bloquage macro auto open lancé par barre d'outils perso [ par Christophe38 ]
Bonjour,J'ai un bug lorsque j'ouvre depuis ma barre d'outils perso un fichier contenant une macro auto-open, en faite le fichier s'ouvre, le
Fonction SetRect [ par liban123 ]
Bonjour à tous!j'aurai grandement besoin d'utiliserla fonction " Function SetRect(...)" mais je ne sais pas comment faire... ayriez vous un
Besoin d'aide avec l'instruction Open ( DÉBUTANT ) [ par Constant93 ]
J'aimerais bien que quelqu'un m'explique l'instruction Open car j'ai toujours des problèmes!Ex.: Je corrige, et il y a une autre erreur !!! (En p
ca me lourde...fonction TransferSpreadsheet [ par 1gazelle ]
Tout d'abord merci a ceux qui me lise et qui me repondront.Tout d'abord, je suis sous excel, VBA et je dois faire une fonction qui prend un fichier .c
|
Derniers Blogs
UNE JOLIE-HORLOGE ET PAS QU'UN PEU !UNE JOLIE-HORLOGE ET PAS QU'UN PEU ! par neodante
Pour les possesseurs d'iPhone, ça y est Bijin Tokei - qui se traduit littéralement en Français par " Jolie Horloge " - est arrivé et GRATUITEMENT s'il vous plaît ! Après la version Tokyo, Hokkaido, night club, racing, Gal, "pour les mademoiselles'", . voi...
Cliquez pour lire la suite de l'article par neodante TECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICESTECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICES par ROMELARD Fabrice
Animé par: Gaetan Bouveret et Julien Chomarat Business Connectivity Services (BCS) est dans SharePoint 2010 la version 2 de Business Data Catalog (BDC dans SharePoint 2007). Il s'agit de la solution permettant de visualiser des données provenan...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE[DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE par orion
Comme de nombreux geek, je suis un grand amateur de série TV et je rate régulièrement des épisodes de mes séries préférés. Une solution s'offre à vous avec ce merveilleux site : Tv Gorge - www.tvgorge.com Moteur de recherche à l'appui, vous pouvez ...
Cliquez pour lire la suite de l'article par orion TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Vincent Bellet et Baptiste Giraudier La BI dans SharePoint 2010, Les nouveaux services d'application dans SP2010 et SQL Server Reporting services 2008 R2. La BI dans SharePoint est généralisée pour tous afin de permettre à tous les coll...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Logiciels
DB-MAIN (9.1.0)DB-MAIN (9.1.0)DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal... Cliquez pour télécharger DB-MAIN Xilisoft DPG Convertisseur (5.1.37.0120)XILISOFT DPG CONVERTISSEUR (5.1.37.0120)Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé... Cliquez pour télécharger Xilisoft DPG Convertisseur GraphicsGale (2.01.01)GRAPHICSGALE (2.01.01)GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ... Cliquez pour télécharger GraphicsGale Architecte 3D (Platinum 2010)ARCHITECTE 3D (PLATINUM 2010)Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é... Cliquez pour télécharger Architecte 3D TeamViewer 5 (TeamViewer 5)TEAMVIEWER 5 (TEAMVIEWER 5)Dépanner un ami,expliquer une manipulation devient un jeu d'enfant.
Prise en main d'un autre ord... Cliquez pour télécharger TeamViewer 5
|