Problème de lecture de variables stoquées sur une même ligne d'un fichierRésolu

Question

Bonsoir,
j'ai un probl&#232;me en ce qui concerne la lecture de fichiers. J'ai cr&#233;e un fichier movies.dat qui store de la mani&#232;re suivante des variables li&#233;es &#224; chacun des films:

'Creation of the file movies.dat
Open App.Path & "\movies.dat" For Append As #1
Print #1, code, title, author, actor1, actor2, actor3, year, comments
Close #1

Le probl&#232;me survient quand je dois lire les diff&#233;rentes variables de la m&#234;me ligne de la mani&#232;re suivante:

Open App.Path & "\movies.dat" For Input As #1
'Import variables from file
Input #1, code, title, author, actor1, actor2, actor3, year, comments
Close #1

Comme r&#233;sultat j'obtiens toute la ligne dans une m&#234;me textbox.
Comment est-ce que je peux importer les diff&#233;rentes variables de ma ligne ?
J'ai assi essay&#233; de s&#233;parer en lignes diff&#233;rentes mais ce n'est pas pratique pour le programme que je suis en train de faire car plusieurs film et donc plusieurs groupe de valeurs (code, title...) doivent &#234;tre stoqu&#233;es.

Merci d'avance,
Hurt 14

PCPT · Accepted Answer

salut,
je confond &#224; chaque fois, donc &#224; re-re-re-v&#233;rifier

Open App.Path & "\movies.dat" For Append As #1
Write #1, code, title, author, actor1, actor2, actor3, year, comments
Close #1

PCPT

crn_c21 · Answer

Essaye de mettre des s&#233;parateurs dans ton print

jpleroisse · Answer

Bonsoir, essaie ceci, moi je n'ai pas pu l'essayer, je n'ai aucun fichier qui correspond &#224; cel&#224;.



Private Sub Command1_Click()

Open App.Path & "\movies.dat" For Input As #1

Input #1, Code

Input #1, Title

Close #1

Text1 = Code

Text2 = Code

End Sub



jpleroisse



Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

cs_pcvesoul · Answer

Open "C:\Test.TxT" For Output As #1
        Write #1, "Test1.1", "Test1.2"
        Write #1, "Test2.1", "Test2.2"
    Close #1


    Open "C:\Test.TxT" For Input As #1
        Input #1, a1, a2
        Input #1, b1, b2
    Close #1

hurt14 · Answer

Merci pour les nombreuses r&#233;ponses. J'ai essay&#233; la m&#233;thode de PCPT et &#231;a marche parfaitement.

Seulement maintenant je me demande comment est ce que je purrais lire chauqe variable de chaque ligne puisque une ligne repr&#233;sente un film. Comment est ce que je pourrais dire au prog d'aller lire la ligne qui a pour variable Code = 12 par exemple.

Merci beacoup  les gars ;).
Hurt 14 [javascript:Insert_Emoticon('/imgs2/smile_sleepy.gif'); ]

PCPT · Answer

salut Private Sub Command1_Click() Dim codet$, titlet$, authort$, actor1t$, actor2t$, actor3t$, yeart$, commentst$ Dim FF As Integer, MonCode As Integer, Found As Boolean MonCode 12: Found False FF = FreeFile Open App.Path & "\movies.dat" For Input As #FF Do While Not EOF (FF) Input #FF, codet, titlet, authort, actor1t, actor2t, actor3t, yeart, commentst If Val(codet) = MonCode Then code = codet title = titlet author = authort actor1 = actor1t actor2 = actor2t actor3 = actor3t year = year comments = commentst Found = True Exit Do End If Loop Close #FF If Found Then MsgBox "code 12 trouvé, variables ok!", 32 End Sub Coloration syntaxique automatique [AFCK] pas testé mais çà devrait marcher.... sinon, copie ici le contenu du fichier .dat ps : évite tout de même les MP pour çà stp bonne continuation PCPT

PCPT · Answer

year = yeart
mais de toute fa&#231;on, il faut le changer, c'est un mot cl&#233;

hurt14 · Answer

Merci un max ;) PCPT.
Je veillerai &#224; pas te renvoyer des MP pour &#231;a.

Hurt 14

Problème de lecture de variables stoquées sur une même ligne d'un fichier

8 réponses

Discussions similaires