Accueil > Forum > > > > ouvrir un fichier texte
ouvrir un fichier texte
mercredi 24 août 2005 à 18:27:17 |
ouvrir un fichier texte
|
mercredi 24 août 2005 à 18:52:29 |
Re : ouvrir un fichier texte

Gobillot
|
Open App.Path & "\" & "essai.txt" For Input As #1 MsgBox LOF(1) Close #1
Daniel
|
|
mercredi 24 août 2005 à 18:53:20 |
Re : ouvrir un fichier texte

CanisLupus
|
Salut, As-tu fait une tite recherche sur le forum et/ou dans les sources ? ------------------------------------------------- Dresseur de puces, .... normal pour un loup  !?
|
|
mercredi 24 août 2005 à 19:19:44 |
Re : ouvrir un fichier texte

petchy
|
bonsoir à vous CanisLupus j'ai fait une recherche sur le forum mais je n'ait pas trouver,j'ai peut etre mal fait la recherche  Merci Daniel pour ton code,mais il ne fonctionne pas,il m'affiche un MSGBOX petchy 
|
|
mercredi 24 août 2005 à 19:24:39 |
Re : ouvrir un fichier texte

Gobillot
|
et qu'est ce que tu voudrais faire avec ton fichier. l'ouvrir c'est une chose mais ensuite ? le lire ligne par ligne, le lire entièrement, le mettre dans une Listview, tout est possible
Daniel
|
|
mercredi 24 août 2005 à 19:26:04 |
Re : ouvrir un fichier texte
|
mercredi 24 août 2005 à 19:31:36 |
Re : ouvrir un fichier texte

Gobillot
|
Réponse acceptée !
c'est encore un peu vague. bon je te le mets dans une ListView ligne par ligne comme exemple. ListView1.ColumnHeaders.Add , , "nom" Dim Zone As String Open App.Path & "\" & "essai.txt" For Input As #1 While Not EOF(1) Line Input #1, Zone ListView1.ListItems.Add , , Zone Wend Close #1
Daniel
|
|
mercredi 24 août 2005 à 19:43:25 |
Re : ouvrir un fichier texte

EREF
|
voiçi quelque chose de plus "pédagogique" et de plus "puriste" concernant l'ouverture pour écrire ou lire un fichier texte en mode séquentiel et en mode direct: (je l'avais déjà exposé à quelqu'un sur ce site le 15/06/05.) regarde la fonction OPEN de Visual Basic. tu as généralement 3 cas : ouvrir un fichier pour le lire, ouvrir un fichier pour y écrire dedans, ( ces deux cas sont caractérisés par ce qu'on appelle le mode séquentiel); et enfin ouvrir un fichier pour lire et/ou écrire ( ceci est le mode direct).
1°) Le mode SEQUENTIEL comme son nom l'indique, on lit, ou on écrit ce fichier donnée après donnée. Pour LIRE voir la fonction VB suivante: OPEN <Ch.directeur du fichier à lire> FOR INPUT AS #1 ce qui veut dire: "ouvre le fichier XXX qu'on appelera dorénavant #1 (ou #2,#3,#4,....), pour y prendre des données les unes après les autres" INPUT #1,ENR ce qui veut dire: "prend la ligne en cours du fichier #1, et stock la dans la variable ENR" CLOSE #1 ce qui veutt dire: "ferme ce fichier , et remet le compteur des lignes à zéro
Pour ECRIRE, c'est idem mais on tape OUTPUT au lieu de INPUT pour la ligne contenant OPEN, et on utilise PRINT au lieu de INPUT pour stocker la variable ENR
ATTENTION: Tout est question du format avec lequel le fichier à été écrit à l'origine, mais généralement tout est réalisable. Si on veut intercaler une ligne dans un fichier déjà existant, il faut ouvrir le fichier à lire en #1 mode INPUT; et un nouveau fichier ,nommé différement, en écriture en #2 mode OUTPUT; il faudra lire dans #1 toutes les lignes avant, et les écrire dans #2, inscrire dans #2 la ligne à intercaler, puis lire le reste de #1 pour l'écrire dans #2.
PS : Voir aussi sous VB la fonction LINE INPUT.
2°) Le mode DIRECT est pratique mais ne fonctionne pas du tout comme les 2 modes que je t'avais expliqué . On utilise RANDOM pour ouvrir un fichier , et les instructions GET pour lire , et PUT pour écrire dedans. Comment ça marche !??!
Ex: Tu veux stocker dans un fichier ton Nom,Prénom,Adresse,et Téléphone, et surtout tu veux pouvoir y accéder directement sans être obligé de lire tout le fichier.
Ces données tu vas les stocker ligne par ligne. Tu as (en mode RANDOM) un peu plus de 32000 lignes disponibles.
Il est conseillé de passer par une variable Tampon (Ex: Dim ENR as String) Le code est le suivant:
OPEN <Ch.directeur du fichier à écrire> FOR RANDOM AS #1 ENR=Nom PUT #1,1,ENR ENR=Prénom PUT #1,2,ENR ENR=Adresse PUT #1,3,ENR ENR=Téléphone PUT #1,4,ENR CLOSE #1
On à fait quoi ?? en language humain !!!! On à écrit dans #1, à la ligne 1, la variable ENR, dans laquelle on avait stocké le Nom On à écrit dans #1, à la ligne 2, la variable ENR, dans laquelle on avait stocké le Prénom Etc,Etc,..........
Tu as compris ???
Maintenant, si tu veut ressortir ton N° de Téléphone, tu sais qu'il est stocké à la ligne 4, donc le code est le suivant:
OPEN <Ch.directeur du fichier à lire> FOR RANDOM AS #1 GET #1,4,ENR CLOSE #1
A toi de faire les liens avec les textbox, listbox, combo, label..de tes Form. Tu peux faire des boucles, et remplacer le N° de ligne par une variable, de manière à incrémenter automatiquement tes lignes.
PS: Si tu ouvres avec WordPad ou Notepad, Etc.. ce fichier, il sera bizarre à l'écran, ne le modifie surtout pas, tu ne pourrait plus l'ouvrir avec l'instruction OPEN comme on vient de faire.
2ème PS: Je ne peux pour le moment consulter ce site uniquement les Mercredis.
Salut !!!!
|
|
mercredi 24 août 2005 à 19:50:16 |
Re : ouvrir un fichier texte

petchy
|
merci EREF pour ses informations,qui sont forte intéressante Daniel,j'ai tester ça n'a pas l'air mal,en fait j'ai créer un fichier d'aide en .txt et c'est pour que les personnes puissent le lire. encore merci à vous bonne soirée petchy

|
|
mercredi 24 août 2005 à 20:08:13 |
Re : ouvrir un fichier texte

Gobillot
|
ce n'était qu'un exemple. avec un TextBox en Multilignes et Scrollbar vertical, tu peux lire tout le fichier d'un coup. Open App.Path & "\" & "essai.txt" For Input As #1 Text1.Text = Input(LOF(1), #1) Close #1
Daniel
|
|
Cette discussion est classée dans : fichier, ouvrir, texte
Répondre à ce message
Sujets en rapport avec ce message
Ouvrir un fichier texte dans un RichTextBox [ par Fyerrblad ]
J'ai besoin d'aide pour créer un programme qui ouvre un fichier texte dans un richtextbox. mercisvp: envoyer le code.- Fyerrblad -
ouvric avec... [ par armata ]
bonsoir,Je suis à la recherche d'une méthode pour ouvrir un fichier (txt par exemple) avec l'une de mes applications en vb.Pour le moment je lance mon
Ouvrir fichier texte dans un onglet [ par faucheuse ]
Bien le (re)bonjour amis programmeurs et programmeuzes, j'aimerais pouvoir mettres les données d'un fichier texte dans une feuille de mon classeur sa
enregistrer/ouvrir plusieurs listbox dans un seul fichier texte [ par maxpruv ]
Bonjour, je suis nouveaux sur le forum et très "novice" en programmation,excusez ma question qui paraitra peut-être trop facile pour certain...Comme
ouvrir un fichier texte avec Excel [ par darthotof ]
Bonjour,je cherche à ouvrir un fichier texte avec Excel en VBScript.Ce fichier texte est une liste d'informations, sur des utilisateurs, séparées par
ouvrir un fichier text sans avoir l'assistant de conversion de texte [ par TIBO1603 ]
Salut a tous ,Voila mon problème je n'arrive pas a m'affranchir de l'assistant de conversion de texte, voici le code que j'utilise :feuilleouverte = A
Ouvrir un fichier texte & tabulations avec Data [ par ceyquem ]
Comment ouvrir un fichier texte & tabs ou texte et point virgules à l'aide d'un contrôle Data (*.txt ou *.csv)En effet, je reçois cette erreur lorsque
Ouvrir *.txt dans une TextBox [ par deneration ]
Comment ouvrir un fichier texte dans une TextBox, à partir d'un CommDialog, de manière à ce que l'utiliqateur puisse choisir le fichier texte à ouvrir
Ouvrir *.txt dans une TextBox [ par deneration ]
Comment ouvrir un fichier texte dans une TextBox, à partir d'un CommDialog, de manière à ce que l'utiliqateur puisse choisir le fichier texte à ouvrir
ouvrir un fichier texte en prenant un mot au hazard a linterieur [ par LaMoUcHe2002 ]
Bonjour,, je suis debutant,, et je n'arrive pas du tt à faire cela,,,j'ai tt essayé :(donc,,dans un fichier textej'ai par exemplemangerboiredormirje v
Livres en rapport
|
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
|