créer un fichier ouvrirRésolu

Question

Voil&#224; comment j'ai fait (VB6) : 
donc j'ai &#233;t&#233; chercher la un controle comment dialogue que j'ai nomm&#233; dlgText1.
Voil&#224; le code :  

Private Sub cmdChargerTableau_Click()
    On Error GoTo OuvrirGestErr                             'active le gestionnaire d'erreurs
    dlgouvrir.CancelError = True                                'traite le bouton Annuler comme une erreur
    dlgouvrir.Flags = cdlOFNFileMustExist                'accepte seulement un nom de fichier existant
    dlgouvrir.Filter = "Data (*.dat)|*.dat"                    'affiche seulement les fichiers se terminant par .dat
    dlgouvrir.FileName = ""                                        'efface le nom de fichier de la bo&#238;te de dialogue
    dlgouvrir.ShowOpen                                            'affiche la boite de dialogue Ouvrir
    Close #1
    Open dlgouvrir.FileName For Random As #1 
    
    For num&#233;rolotto = 0 To 72
        Text1(num&#233;rolotto).Visible = True                     'affiche la place dans la feuille
        Get #1, num&#233;rolotto + 1, tabl(1, num&#233;rolotto)     
    Next num&#233;rolotto
    Exit Sub                                                                'emp&#234;che le passage au Gestionnaire d'erreurs
                                                                                 'si aucune erreur ne se produit
OuvrirGestErr:

AfficheEnregistrementActuelNUMLOTTO (num&#233;rolotto)

End Sub

donc chaque nombre ce trouvant dans le fichier .dat que j'ai charger est sous la forme : tabl(num&#233;rolotto, 1), tabl(num&#233;rolotto, 2), ... et pour l'afficher dans les cases se nommant 'Text1(0, ....). C'est le r&#244;le de AfficheEnregistrementActuelNUMLOTTO (num&#233;rolotto).

Alors la boite de dialogue ouvrir s'ouvre bien mais je n'arrive pas &#224; traiter les donn&#233;es ? Est ce que je fais quelque chose qu'il ne faut pas ? Je crois que c'est la fonction Get#1 que je n'utilise pas bien ?

Merci d'avance pour l'aide que vous m'octroy&#233;.

Luca62.

Gobillot · Accepted Answer

Le On Error sert justement &#224; intercepter les erreurs.

Au lieu de mettre 2 On Error tu peut tester un num&#233;ro d'erreur particulier.

pour le FreeFile voir les exemples ci dessus  --> variable = FreeFile

si tu veux r&#233;ouvrir le m&#234;me fichier ou un autre il faut utiliser un
num&#233;ro disponible, #1 est libre puisqu'il a &#233;t&#233; ferm&#233;, et FreeFile te
renverra 1 dans ce cas.



    On Error GoTo Cancelled

    dlgouvrir.CancelError = True

    dlgouvrir.Flags = cdlOFNFileMustExist

    dlgouvrir.Filter = "Data (*.dat)|*.dat"

    dlgouvrir.ShowOpen

     - - - - - - - - - -

     - - - - - - - - - - 

     - - - - - - - - - - 

    Exit Sub



Cancelled:

    If Err = 32755 Then

       MsgBox "Op&#233;ration Annul&#233;e"

       Exit Sub

       End If

    MsgBox Err.Description & " (" & Err & ")", vbExclamation, "Open Erreur"

   

Daniel

Gobillot · Answer

il manque une Longueur pour ton fichier en Random

t'es s&#251;r que les enregistrements ont tous la m&#234;me longueur ?







Open dlgouvrir.FileName For Random As #1 Len = ???



d'autre part pour lire en s&#233;quence, inutile de mettre le num&#233;ro

Get #1, , tabl(1, num&#233;rolotto) 


Daniel

Renfield · Answer

J'ai du mal a saisir la logiue de l'algoritme... voici ce que je proposerai ..

Private Sub cmdChargerTableau_Click() Dim iFile as Byte Dim numerolotto As Integer dlgouvrir.CancelError = True dlgouvrir.Flags = cdlOFNFileMustExist dlgouvrir.Filter = "Data (*.dat)|*.dat" On Error GoTo Cancelled dlgouvrir.ShowOpen On Error Goto OuvrirGestErr iFile = FreeFile Open dlgouvrir.FileName For Random As #iFile For numerolotto = 0 To Text1.Count -1 Text1(numerolotto ).Visible = True Get #iFile, , tabl(1, Text1(numerolotto ).Text Next numerolotto Close #iFile Exit Sub OuvrirGestErr: '# Vérifies la nature de l'erreur (Err.Description) AfficheEnregistrementActuelNUMLOTTO (numerolotto ) Close #iFile Cancelled: End Sub

Amusez-vous ! Renfield - thomas_reynald@msn.com Admin CodeS-SourceS - MVP Visual Basic

Gobillot · Answer

Erreur n&#176;59 : Longueur d'enregistrement incorrecte


Daniel

luca62 · Answer

Je pense que vous avez bien compris ce que je voulais faire cependant, j'ai toujours le m&#234;me probl&#232;me, est ce que vous pouvez m'expliquer la phas&#233;ologie de la fonction get ? Ce qu'on doit mettre apr&#232;s ??


Je pense aussi que le faite que je n'ai pas ferm&#233; l'ancier fichier avant d'ouvir un nouveau, cela aurait comme cons&#233;quence que le programme s'embrouille ? C'est possible ?


Merci,

Gobillot · Answer

vaut mieux fermer ses fichiers quand on en a plus besoin.

en utilisant #1 si le fichier est d&#233;j&#224; ouvert &#231;a va planter.

avec la m&#233;thode FreeFile comme indiqu&#233; par Renfield il n'y a pas d'embrouille.



Le probl&#232;me est qu'il faut indiquer une Longueur quand tu vas lire un num&#233;ro de Lotto.

donc question les num&#233;ros de lotto font combien de longueur ?

les fichiers .dat ont ils toujours la m&#234;me structure ?

pas s&#251;r que tu retombes sur un fichier de structure et de longueur compatible,

faudrait peut &#234;tre v&#233;rifier la validit&#233; du fichier .dat et comme il n'y
a pas de test de fin de fichier &#224; la lecture, tu risques aussi d'avoir
des surprises.

Daniel

luca62 · Answer

Les num&#233;ro de lotto on tous une longueur de 6 nombres fois 12 combinaison. Et chaque fichier contient un nom.
Donc &#231;a me fait 73 enregistrement par formulaire (=>0 to 72).
Et m&#234;me si on ne remplit pas toute les cases, il inscrira des blancs. ==> les fichiers dat on tous la m&#234;me stucure, un multiple de 73...

Mais avant d'ouvir un fichier, est ce qu'il ne sera pas judicieux de fermer celui en cour ?
il suffit de mettre close#1 ?? Ou quand on ouvre un nouveau fichier, il &#233;crase le pr&#233;c&#233;dent ?

Luca62

Gobillot · Answer

pour fermer un fichier, quand on a fini de le lire ou de l'&#233;crire, il
suffit de mettre Close #numfichier ou Close tout seul pour fermer tous
les fichiers, ou Reset.



le fait d'ouvrir un fichier ne l'efface pas forc&#233;ment, pour cela il
faut l'ouvrir en Output, ou &#233;crire dessus. en Binary ou Random on ne
peut pas supprimer, seulement &#233;crire par dessus.



tu dis que chaque fichier contient un nom, o&#249; se trouve ce nom ?

peut on utiliser ce nom pour v&#233;rifier la validit&#233; du fichier .dat ?





    Dim numero As String * 6

     iFile = FreeFile

    Open dlgouvrir.FileName For Random As #iFile Len=6

    For numerolotto = 0 To Text1.Count -1

          Get #iFile, , numero

          Text1(numerolotto ).Visible = True

          Text1(numerolotto ).Text = numero

          Next numerolotto 

    Close #iFile


Daniel

Renfield · Answer

Tu ouvres, tu lit, tu ferme

pas besoin de laisser ouvert les fichiers inutilement

pour tes enregistrements, il est possible de faire une structure :

Type LottoType
      Titre As String * 25
      Nombre(72) As String *6
End Type 
(a toi de r&#233;gler les tailles)

ensuite 

Dim Lotto as LottoType
Open dlgouvrir.FileName For Random As #iFile Len = len ( Lotto )
Get #iFile, , Lotto
Close #iFile

Amusez-vous ! 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

luca62 · Answer

Voil&#224; comment j'ai fais, cela fonctionne : 

    dlgouvrir.CancelError = True
    dlgouvrir.Flags = cdlOFNFileMustExist
    dlgouvrir.Filter = "Data (*.dat)|*.dat"
    'On Error GoTo Cancelled
    dlgouvrir.ShowOpen
 
    'On Error GoTo OuvrirGestErr
    '1 = FreeFile
    Open dlgouvrir.FileName For Input As #1
           
        Do While Not EOF(1)
            num&#233;rolotto = num&#233;rolotto + 1
            Line Input #1, tabl(num&#233;rolotto, 1)
            Line Input #1, tabl(num&#233;rolotto, 2)
            Line Input #1, tabl(num&#233;rolotto, 3)

etc jusqu'a 72 = > car 72 num &#224; mettre dans 72 cases diff&#233;rentes.

            Loop
           Close #1

Le seul probl&#232;me c'est quand il m'ouvre la fen&#234;tre ouvrir, le bouton annuler me fait une erreur, et quand le met les lignes en rouges, jai aussi une erreur ?
Comment cela ce fait-il ?
Maintenant pour enregistrer sur le fichier.dat que j'ai ouvert je fait comme si il se nommait #1 c'est &#231;a ?

Luca62.

luca62 · Answer

Ok &#231;a fonctionne correctement .... J'ai compris !! Enfin ... C'est pas toujours facile quand on ne connait pas la fonction.....

Enfin, dans cette continuit&#233;, est ce que quelqu'un me montrer un exemple d'un code pour faire le enregistrer sous ? Lors d'une nouvelle fiche et que l'on veut enregistrer sous un nouveau nom ?

ENCORE MERCI POUR VOTRE AIDE !!!!!

Luca62.

Gobillot · Answer

c'est presque la m&#234;me chose.









Private Sub Sauver()

    dlgsauve.InitDir = "c:\windows"

    dlgsauve.Filter = "Data (*.dat)|*.dat

    dlgsauve.FilterIndex = 1

    dlgsauve.CancelError = True

    dlgsauve.Flags = cdlOFNOverwritePrompt + cdlOFNNoReadOnlyReturn

    On Error GoTo Error

    dlgsauve.ShowSave

    Open dlgsauve.FileName For Binary As #1

    Put #1, , Buffer

    Close #1

    Exit Sub

Error:

    If Err = 32755 Then Exit Sub

    MsgBox Err.Description & " (" & Err & ")", vbExclamation, "Save Erreur"

End Sub


Daniel

Renfield · Answer

Attention Daniel a ne pas confondre  '+' et 'Or'

dlgsauve.Flags = cdlOFNOverwritePrompt + cdlOFNNoReadOnlyReturn
ne signifie pas la m&#234;me chose que dlgsauve.Flags = cdlOFNOverwritePrompt Or cdlOFNNoReadOnlyReturn
je rappelle que 3 + 1  >  4     et    3 Or 1  >  3

bien sur, vues les valeurs des flags incrimin&#233;s, il n'y a pas de superposition des valeurs, mais autant prendre le pli...

Amusez-vous ! 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

luca62 · Answer

J'ai pas compris la diff&#233;rence entre le prompt et le return dans l'expression ci-dessus, mais j'ai donc mis un Or au lieu du + et tout fonctionne correctement.

J'aimerais &#233;galement savoir si il existe un fonction qui me permetterai de retourner &#224; une page d'accueil en ayant les m&#234;mes caract&#233;risques que lorsqu'on d&#233;mare le programme.

> comme si on quittait et r&#233;ex&#233;cutait le programme ? > fermer tout ce qui &#233;tait en cours et r&#233;initialiser le programme ?

J'aimerais aussi savoir comme on affiche une image ou icone &#224; c&#244;t&#233; des noms dans les menus :  dans fichier => ouvrir
                                                                                                                                                                 => enregistrer sous

Merci. Luca62.

luca62 · Answer

En plus de la question ci-dessus, j'ai encore un petit probl&#232;me avec le SAVE AS, 
Voici comment j'ai &#233;crit le code : 

Private Sub Mnu_Saveas_Click()
    
    If Flg_AjoutNewFile Then   ' Enregistrement d'une nouvelle fiche
                      
        tabl(num&#233;rolotto, 1) = Text1(0).Text
        tabl(num&#233;rolotto, 2) = Text1(1).Text
        tabl(num&#233;rolotto, 3) = Text1(2).Text
        .......................................................
        tabl(num&#233;rolotto, 72) = Text1(71).Text
        tabl(num&#233;rolotto, 73) = Text1(72).Text
    End If
    
    dlgsauver.InitDir = "C:\Documents and Settings\Francois\Mes documents\F R A N C O I S\Lotto\Mon Lotto"
    dlgsauver.Filter = "Data (*.dat)|*.dat"
    dlgsauver.FilterIndex = 1
    dlgsauver.CancelError = True
    dlgsauver.Flags = cdlOFNOverwritePrompt + cdlOFNNoReadOnlyReturn
    On Error GoTo Error
    dlgsauver.ShowSave
    
    Open dlgsauver.FileName For Binary As #1
        For i = 1 To num&#233;rolotto
        Print #1, tabl(i, 1)
        Print #1, tabl(i, 2)
        Print #1, tabl(i, 3)
        ..........................
        Print #1, tabl(i, 72)
        Print #1, tabl(i, 73)

    Next
    Close #1
    Exit Sub


Error:
    If Err = 32755 Then Exit Sub
    MsgBox Err.Description & " (" & Err & ")", vbExclamation, "Save Erreur"
    mYMESS = MsgBox("Le fichier &#224; &#233;t&#233; corectement sauvegard&#233;", 0)
    txtB&#233;n&#233;fice_Perte.Visible = True
    num&#233;rolotto = 1
    AfficheEnregistrementActuelNUMLOTTO (num&#233;rolotto)
End Sub

Le probl&#232;me est qu'il me cr&#233; bien un nouveau fichier portant le nom que je lui ai demander, mais je n'y retrouve pas les nombres, aucuns.
j'ai cependant avec le mYMESS, un message d'erreur que voici : Bad file mode (54 ) ?????

Est ce que vous savez ce que j'ai mal &#233;crit ?

Merci. Fr.

Gobillot · Answer

Open dlgsauver.FileName For Output As #1

Daniel

luca62 · Answer

Logique, j'avais m&#234;me pas fait tilt ! J'ai pas encore une logique parfaite VB.....

J'aimerais &#233;galement savoir si il existe un fonction qui me permetterai de retourner &#224; une page d'accueil en ayant les m&#234;mes caract&#233;risques que lorsqu'on d&#233;mare le programme.

> comme si on quittait et r&#233;ex&#233;cutait le programme ? > fermer tout ce qui &#233;tait en cours et r&#233;initialiser le programme ?

J'aimerais aussi savoir comme on affiche une image ou icone &#224; c&#244;t&#233; des noms dans les menus :  dans fichier => ouvrir
                                                                                                                                                                 => enregistrer sous

Encore merci pour l'attention que vous me portez !!!

Luca62.

Renfield · Answer

Pose ces questions s&#233;parement sur l Forum. Merci
pour les icones dans les menus, tu dois pouvoir trouver ca sur le site...

pour le cot&#233; redemarrage de l'appli, il te suffit de d&#233;charger (Unload) tes Forms ouvertes, et de rouvrir celle que tu veux..

Amusez-vous ! 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

luca62 · Answer

Ok, merci pour tout ces conseils....

Luca62.

Créer un fichier ouvrir

19 réponses

Discussions similaires