Help: Très Facile Pour vous - Lecture/Ecriture d'un fichier TXT - INPUT / OUTPUTRésolu

Question

Salut tout le monde,


 
J'esp&#232;re que vous allez tous bien..


j'attaque la lecture des fichiers txt via VB et 
j'ai un exercice qui me pose un mega probleme. J'espere que vous pourriez 
m'aider, je vais essayer de vous resumer l'exercice :


J'ai un  1er fichier Input structur&#233; de la fa&#231;on suivante et avec les champs 
suivants:


 :A1:UNIQUE (Doit etre pr&#233;sent )

:C1:UNIQUE (Doit etre pr&#233;sent )

:Z3:UNIQUE (Doit etre pr&#233;sent )

:C1:MULTIPLE (Doit etre pr&#233;sent au moins une fois)

:T1:MULTIPLE (peut ne pas &#234;tre pr&#233;sent)

:F1:UNIQUE (Doit etre pr&#233;sent )


 


Exemple:


 :A1:Ingrid

:C1:Neerlandaise

:Z3:28ans

:C1:200

:T1:Fac

:C1:300

:T1:Hotel

:F1:Fin

:A1:Denis

:C1:Canadienne

:Z3:28ans

:C1:400

:T1:bILLET d'avion

:C1:150

:F1:Fin


 le code doit transformer ces donn&#233;es dans un autre fichier output de la 
fa&#231;on suivante:


Ingird;Neerlandaise;28ans;200;Fac;Fin

Ingird;Neerlandaise;28ans;300;Hotel;Fin

Denis;Canadienne;28ans;400;bILLET d'avion;Fin

Denis;Canadienne;28ans;150;;Fin


 


(attention &#224; la derni&#232;re ligne comme il n&#146;y a pas eu de T1 il l&#146;a laiss&#233; vide ;; )


j'ai tout essay&#233; et &#231;a marche pas je vous serai tres reconnaissante si 
vous pouvez m'aider &#224; &#233;crire ce code.


 


Merci d'avance et Kisses pour toutle monde


 Ingrid la n&#233;erlandaise

cboulas · Accepted Answer

Ay&#233; j'ai le projet que tu voulais, je te l'envoi sur ton email Hotmail, c hot hot hot !!!

C'est tirer par les cheuveux mais &#231;a marche comme tu le voulais et d'une force mais d'une force 

A l&#224; j'ai assur&#233;, trop bien bon j'arr&#234;te de me lancer des roses car &#231;a pique. 


Chris...
Web : Firstruner

cboulas · Answer

Salut Abracadabra, et ton soucis sans va :)
Bon j'arr&#234;te ma d&#233;conne, je pense qu'il faudrait recup&#233;rer les infos de tes C1, A1, etc... et les stock&#233;s dans une variable tableau style : MesDatas()
Chaque ligne, une fois tout stock&#233; dedant, il te sera super facile d'en faire ce que tu veux ;) je vais essayer de te fair eun script.


Chris...
Web : Firstruner

cboulas · Answer

Bien me revoici, alors je t'ai concoct&#233; un d&#233;but de code :

    Open "c:	oto.txt" For Input As #1   'Ouverture du fichier pour lecture et de num&#233;ro #1
        olddata = Input$(LOF(1), #1)   'Stockage du contenu
    Close #1   'Fermeture du fichier

    Dim NewDatas() As String   'Cr&#233;ation d'un tableau de string
    NewDatas() = Split(olddata, vbCr)   'On scalpe, d&#233;coupe comme tu veux, enfin on coupe &#224; chaque fois que l'on trouve un retour &#224; la ligne (VbCr) chaque ligne sera mise dans un tableau

Ensuite il te suffit de faire varier l'index de NewDatas(index) pour obtenir tes infos

Chris...
Web : Firstruner

cboulas · Answer

Tiens voici le code complet qui te permet de passer de l'un &#224; l'autre, il y a surement des am&#233;lioration &#224; faire mais c'est un d&#233;but ;)

    Dim OldData   'Cr&#233;ation de la variable qui contiendra le contenu du fichier source
    Open "c:	oto.txt" For Input As #1   'Ouverture du fichier source
        OldData = Input$(LOF(1), #1)   'Stockage du contenu dans la variable
    Close #1   'Fermeture du fichier source
    Dim NewDatas() As String   'D&#233;claration d'un tableau de String (texte) pour stocker le contenu du fichier trier
    NewDatas() = Split(OldData, vbCr)   'Triage du fichier dans le tableau : 1 info par ligne du tableau (VbCr)
    
    Dim LineInfo As String   'D&#233;claration d'une variable servant &#224; &#233;crire le texte finalis&#233;
    Open "c:\NewToto.txt" For Output As #1   'Ouverture du fichier destination en mode &#233;criture
    For Each Index In NewDatas()   'Pour chaque ligne du tableau NewDatas() (d&#233;but de la boucle)
        Dim TypeInfo As String   'D&#233;claration d'une variable Texte pour stocker le type d'info que l'on r&#233;colte &#224; parir de la ligne du tableau
        Dim PStart As Integer   'D&#233;claration d'un Entier qui nous servira plus tard dans le rep&#233;rage des Type d'info et des Donn&#233;es du type
        PStart = InStr(Index, ":") + 1   'Recherche de la position du 1er ':' &#224; partir de la ligne du tableau en cours
        TypeInfo = Mid(Index, PStart, 2)   'Recolte du Type d'info concern&#233;
        PStart = InStr(PStart, Index, ":") + 1   'Recherche du 2nd ':' &#224; partir du 1er ':'
        If Len(LineInfo) = 0 Then   'Test si LineInfo est vide (c'est &#224; dire si c'est une nouvelle ligne &#224; &#233;crire
            LineInfo = Mid(Index, PStart)   'Si oui alors stockage direct de l'info dans la variable
        Else
            LineInfo = LineInfo & ";" & Mid(Index, PStart)   'Sinon stockage de l'info &#224; la suite de celle d&#233;j&#224; contenu
        End If   'Fin de la condition
        If TypeInfo = "F1" Then   'Test si on arrive &#224; la fin d'un profil ;)
            Print #1, LineInfo   'Si oui alors on &#233;crit la ligne dans le fichier
            LineInfo = Empty   'On efface le contenu de LineInfo ce qui nous permettra de savoir que l'on d&#233;bute une nouvelle ligne
        End If   'Fin de la condition
    Next   'On passe &#224; la ligne suivante dans le tableau
    Close #1   'Le tableau &#224; &#233;t&#233; scruter, trier, etc... on ferme le fichier car c'est fini 


Chris...
Web : Firstruner

cboulas · Answer

Am&#233;lioration il faut remplacer :
   
Dim OldData   'Cr&#233;ation de la variable qui contiendra le contenu du fichier source
    Open "c:	oto.txt" For Input As #1   'Ouverture du fichier source
        OldData = Input$(LOF(1), #1)   'Stockage du contenu dans la variable
    Close #1   'Fermeture du fichier source
    Dim NewDatas() As String   'D&#233;claration d'un tableau de String (texte) pour stocker le contenu du fichier trier
    NewDatas() = Split(OldData, vbCr)

par :

    Dim NewDatas() As String
    Open "c:	oto.txt" For Input As #1
        NewDatas() = Split(Input$(LOF(1), #1), vbCr)
    Close #1

rudment plus court !


Chris...
Web : Firstruner

cs_abracadabra · Answer

Chris ch&#233;rie, :)

t adorable....je vais essayer de comprendre le code, l'executer....et je te dirai si &#231;a marche ou non...

merci 
bisous
Ingrid bauer
ingridnlfr@hotmail.com

cs_abracadabra · Answer

Ch&#233;ri,


Ton code ne marche pas parfaitement. En fait, il affiche le r&#233;sultat suivant:


 Ingrid;Neerlandaise;28ans;200;Fac;300;Hotel;Fin
Denis;Canadienne;28ans;400;bILLET d'avion;150;Fin

Alors que dans mon exemple:

je dois avoir :
Ingird;Neerlandaise;28ans;200;Fac;Fin
Ingird;Neerlandaise;28ans;300;Hotel;Fin

Denis;Canadienne;28ans;400;bILLET d'avion;Fin

Denis;Canadienne;28ans;150;;Fin

je vais essayer de le corriger , je compte sur toi si ca ne marche pas.

Et chris ne te moque pas de moi....lol..., je suis encore debutante en VB :))))))...
Merci
Ingird

cboulas · Answer

ok, je regarde de mon c&#244;t&#233; aussi, je ne me moquerais pas de toi car il faut bien se lancer un jour 


Chris...
Web : Firstruner

cboulas · Answer

Salut, j'ai un peu avancer ce matin sur ton projet t ai obtenu ceci :

Sub WriteInFile(Prof() As String, F As String, FNum As Integer)  'Fonction de sauvegarde du profil
        Print #FNum, Prof(0) & ";" & Prof(1) & ";" & Prof(2) & ";" & Prof(3) & ";" & F 'Ecriture dans le fichier
End Sub


Private Sub Form_Load()
    Dim NewDatas() As String   'D&#233;claration d'un tableau de String (texte) pour stocker le contenu du fichier trier
    Open "toto.txt" For Input As #1   'Ouverture du fichier source
        NewDatas() = Split(Input$(LOF(1), #1), vbCr)  'Stockage du contenu dans la variable avec d&#233;coupage
    Close #1   'Fermeture du fichier source


    Dim Profil(3) As String   'Cr&#233;ation d'un profil
    Open "NewToto.txt" For Output As #1   'Ouverture du fichier destination en mode &#233;criture
        For Each Index In NewDatas()   'Pour chaque ligne du tableau NewDatas() (d&#233;but de la boucle)
            Dim Info As String   'D&#233;claration d'une variable Texte pour stocker le type d'info que l'on r&#233;colte &#224; parir de la ligne du tableau
            Dim PType As Integer, PInfo As Integer   'D&#233;claration d'un Entier qui nous servira plus tard dans le rep&#233;rage des Type d'info et des Donn&#233;es du type
            PType = InStr(Index, ":") + 1   'Recherche de la position du 1er ':' &#224; partir de la ligne du tableau en cours
            PInfo = InStr(PType, Index, ":") + 1   'Recherche du 2nd ':' &#224; partir du 1er ':'
            Info = Mid(Index, PInfo)


            Select Case Mid(Index, PType, 2)   'Recolte du Type d'info concern&#233;
                Case "A1"
                    Profil(0) = Info
                Case "C1"
                    Profil(1) = Info
                Case "Z3"
                    Profil(2) = Info
                Case "T1"
                    Profil(3) = Info
                Case "F1"
                    WriteInFile Profil(), Mid(Index, PInfo), 1
            End Select
        Next   'On passe &#224; la ligne suivante dans le tableau
    Close #1   'Le tableau &#224; &#233;t&#233; scruter, trier, etc... on ferme le fichier car c'est fini
End Sub

Il faut que je fasse maintenant la gestion de plusieurs lignes mais cela devrait &#234;tre fait assez rapidement.


Chris...
Web : Firstruner