Ouvrir un TXT

Question

Bonjour,

J'ai cr&#233;&#233; un exe avec des TextBox, &#224; la fin de mes saisies j'enregistre celle-ci en utilisant
"MonFic.WriteLine" cela me permet d'avoir un fichier TXT nomm&#233; d'un Nom + Ann&#233;e 
qui comprend des donn&#233;es fixes et les valeurs des TextBox. Jusqu'ici &#231;a marche.

Maintenant je voudrais pouvoir s&#233;lectionner et ouvrir un fichier TXT (je peux en avoir 
plusieurs) le lire et reporter les donn&#233;es de mes TextBox &#224; leur place.

Merci de votre aide.

ndsaerith · Answer

Pour ouvrir un fichier on utilise la synthaxe : open for

cs_ITALIA · Answer

Utilise un composant Common Dialog :
Projet...Composant...coches Microsoft Common Dialog Control 6.0

tu poses un de ces composant sur ta form et dans un bouton tu mets le code :

CommonDialog1.CancelError = True
On Error GoTo ErrHANDler


' D&#233;finit le titre de la fen&#234;tre
CommonDialog1.DialogTitle = "Emplacement du Fichier"
' D&#233;finit la propri&#233;t&#233; Flags
CommonDialog1.Flags = cdlOFNHideReadOnly
' Chemin Initial
CommonDialog1.InitDir = "C:"
' D&#233;finit les filtres
CommonDialog1.Filter = "Fichier Texte (*.txt)|*.txt"
' D&#233;finit le filtre par d&#233;faut
CommonDialog1.FilterIndex = 2
' Affiche la bo&#238;te de dialogue Ouverture
CommonDialog1.ShowOpen
'  Chemin du Fichier 
Chemin=CommonDialog1.FileName


Exit Sub
ErrHANDler:
  'L'utilisateur a cliqu&#233; sur Annuler
Exit Sub

It@li@

lcastell · Answer

Pour t'expliquer, au d&#233;but je voulais enregistrer mes TextBox et on m'a conseill&#233; de saisir mes champs :

   If ExistFile(App.Path & "" & Nom + " " + An + ".txt") Then ' Si le Fichier Nom.txt Existe
       Kill (App.Path & "" & Nom + " " + An + ".txt") ' Je le Supprime
  End If
 
Set FSys = CreateObject("Scripting.FileSystemObject") ' ReCr&#233;ation du Fichier Nom.txt
Set MonFic = FSys.CreateTextFile(App.Path & "" & Nom + " " + An + ".txt")

' Ecriture des Lignes
   MonFic.WriteLine "D&#233;claration des Revenus de : " & An 
   MonFic.WriteLine "Famille :                    " & Nom 
   MonFic.WriteLine "Nombre de Parts :            " & Part 

            Etc...

Et maintenant je veux utiliser mes lignes pour remplir mon executable.

Merci

ndsaerith · Answer

tu fait un open en lecture (comme je t dit au dessus), pi tu fait une boucle qui lit ligne par ligna tant que ton fichier est pas fini :

'ouverture du fichier en lecture

open <mon_fichier.txt> for input as #1
met la ligne en cour (ici la première) dans une var qui s'appelle ma_ligne

line input #1, ma_ligne

'tant que ce n'est pas la fin du fichier
while not <monfichier>.eof
'tufais ton traitement de ta ligne
call mon_traitement
'puis tu prend la ligne suivante
line input #1, ma_ligne
'refaire
loop

voila voila

BIz

 · Answer

CommonDialog1.CancelError = True
On Error GoTo ErrHANDler
' D&#233;finit le titre de la fen&#234;tre
CommonDialog1.DialogTitle = "Emplacement du Fichier"
' D&#233;finit la propri&#233;t&#233; Flags
CommonDialog1.Flags = cdlOFNHideReadOnly
' Chemin Initial
CommonDialog1.InitDir = "C:"
' D&#233;finit les filtres
CommonDialog1.Filter = "Fichier Texte (*.txt)|*.txt"
' D&#233;finit le filtre par d&#233;faut
CommonDialog1.FilterIndex = 2
' Affiche la bo&#238;te de dialogue Ouverture
CommonDialog1.ShowOpen
' Chemin du Fichier 

Open CommonDialog1.FileName For Input As #1
    Do Until EOF(1)
        Line Input #1, Ligne
        if instr(1,Ligne,"D&#233;claration des Revenus de : 
")<>0 then 
           pos=instr(1,Ligne,":")
           Text1=mid(Ligne,pos+1,10)
        end if    
    Loop
Close #1

Exit Sub
ErrHANDler:
  'L'utilisateur a cliqu&#233; sur Annuler
Exit Sub

It@li@

Ouvrir un TXT

5 réponses

Discussions similaires