importer une partie d'un fichier texteRésolu

Question

Bonjour &#224; tous,
voila j'ai un dossier contenant des centaines de fichiers .txt , dans chacun d'eux il y a une ligne nomm&#233;e "id_menu=quelque chose"  (sans les guillemets)
Donc "id_menu" est toujours le m&#234;me pour chaque fichier .txt et le "quelque chose " change a chaque fois, je d&#233;sire donc automatiser en VBA l'import de cette ligne dans une table ACCESS avec :
champ1 : le nom du fichier .txt 
champ2 : le "quelque chose"

j'ai pas mal cherch&#233; les imports des fichiers mais ceci :

Sub import()
Dim Fic As String
Fic = Dir("C:\66\*.txt")
Do While Fic <> ""
    DoCmd.TransferText acImportDelim, "spec", "ma_table", "C:\66" & Fic    
    Fic = Dir
Loop
End Sub

(dans spec j'indique la specification d'import de s&#233;parateur de champ par: =)

renvoie tout le contenu de tous les fichiers (dieu que c long), j'ai bien un resultat apres a l'aide d'une requ&#232;te sur ma table de tous les champs nomm&#233;s "id_menu" mais je voudrais appliquer le filtre d&#232;s l'import.

Merci pour votre coup de main.
Nico

PCPT · Accepted Answer

salut, je fais pas de VBA donc voici l'exemple en VB6 (fonctionnel). peut-être que ton code est bon aussi (j'ai un doute quand même ^^) mais la plus grande erreur est l'écriture dans le fichier #2. tu fais un OutPut, donc une écriture, alors qu'il faut faire un Append. Option Explicit ' Private Sub Command1_Click() Call Import End Sub ' ' Private Sub Import() Dim Fic As String, texte As String Fic = Dir ("C:\66\*.txt") Do While Fic <> "" Open "C:\66" & Fic For Input As #1 Do While Not EOF(1) Line Input #1, texte If Left$(texte, 12) = "ID_MENUNAME= " Then Open "C:\liste.txt" For Append As #2 Print #2, texte Debug.Print Fic & " -> " & Trim$(Right$(texte, Len (texte) - 12)) Close #2 Exit Do End If Loop Close #1 Fic = Dir Loop End Sub Coloration syntaxique automatique [AFCK] ++ PCPT [AFCK]

cs_Jack · Answer

Salut
"le filtre d&#232;s l'import" : je vois pas trop
Et il y a quoi dans ta DoCmd.TranferText ?
S'il faut gagner du temps, c'est dans cette fonction .... mais en l'absence d'info ...
- Ouvrir le fichier
- Lire chaque ligne du fichier jusqu'&#224; trouver la ligne qui t'int&#233;resse
- Ensuite, d&#233;couper la ligne pour en extraire tes deux champs
- Abandonner la lecture de la fin du fichier (si une seule ligne "id_menu" par fichier)
- Fermer le fichier
- Ins&#233;rer ces donn&#233;es dans la table

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

7nico7 · Answer

salut,
alors merci de me donner une piste, la structure :

- Ouvrir le fichier
- Lire chaque ligne du fichier jusqu'&#224; trouver la ligne qui t'int&#233;resse
- Ensuite, d&#233;couper la ligne pour en extraire tes deux champs
- Abandonner la lecture de la fin du fichier (si une seule ligne "id_menu" par fichier)
- Fermer le fichier
- Ins&#233;rer ces donn&#233;es dans la table

me semble bonne a part qu'il existe plusieurs instances de "id_menu" par fichier.
je vais trouver la traduction de ceci en code 
(si vous y arrivez plus vite que moi n'h&#233;sitez pas  )
merci 
Nico

7nico7 · Answer

Alors voila j'ai trouv&#233; une petite variante , j'extrait d'abord tout ce qui m'interesse (id_menuname) de mes fichiers texte dans un seul autre fichier texte (liste.txt) dont j'importerai les donn&#233;es par la suite manuellement :

Sub import()
Fic = Dir("C:\66\*.txt")
Do While Fic <> ""
    Open "C:\66" & Fic For Input As #1
    Fic = Dir  
While Not EOF(1)
   Line Input #1, texte
   If Left$(texte, 12) = "ID_MENUNAME=" Then
   Open "C:\liste.txt" For Output As #2
        Print #2, texte
        Close #2
End If
Wend
Close #1
Loop
End Sub
et voici le contenu de 2 fichiers texte differents situ&#233;s dans C:\66\
Absc.txt :
ID_CLARK=For the Single Text
ID_CODENAME=ATC 3
ID_LOCATION=Facilities
ID_MENUNAME=Hypernation         >>>>>>>>>> &#224; extraire
ID_NEWSWIRE=For the Single Text
et Decal.txt :
ID_CLARK=Nothing Important
ID_CODENAME=99 Complex
ID_DATETIME=By [99]-RedBeta
ID_LOCATION=
ID_MENUNAME=Complex          >>>>>>>>>> &#224; extraire
ID_MISSION_ORDER=For the Single Text
etc
mais dans mon liste.txt &#231;a ne renvoie que le id_menuname du Decal.txt et pas le reste.
de plus j'aimerais avoir le nom du fichier dont la donn&#233;e est extraite :
liste.txt :
Absc.txt=ID_MENUNAME=Hypernation
Decal.txt=ID_MENUNAME=Complex
etc..
J'esp&#232;re que c clair et que j'en demande pas trop.
Nico ( VBnovice)

7nico7 · Answer

Meci pcpt,
ton code marche tr&#232;s bien , seulement il n'ajoute pas le nom du fichier au d&#233;but mais ce doit &#234;tre une erreur de syntaxe.
Merci &#224; tous pour votre aide.
Nico

7nico7 · Answer

Voici le code corrig&#233; :

Private Sub Import()
    Dim Fic As String, texte As String
    Fic = Dir("C:\66\*.txt")


    Do While Fic <> ""
        Open "C:\66" & Fic For Input As #1
            Do While Not EOF(1)
                Line Input #1, texte
                If Left$(texte, 12) = "ID_MENUNAME=" Then
                    Open "C:\liste.txt" For Append As #2
                        Print #2, Fic + "=" + texte
                      Close #2
                    Exit Do
                End If
            Loop
        Close #1
        Fic = Dir
    Loop
End Sub

Importer une partie d'un fichier texte

6 réponses

Discussions similaires