Lire une ligne depuis un fichier txt sous access
serber38
Messages postés
28
Date d'inscription
dimanche 9 février 2003
Statut
Membre
Dernière intervention
31 juillet 2008
-
22 avril 2003 à 12:26
serber38 Messages postés 28 Date d'inscription dimanche 9 février 2003 Statut Membre Dernière intervention 31 juillet 2008 - 22 avril 2003 à 14:25
serber38 Messages postés 28 Date d'inscription dimanche 9 février 2003 Statut Membre Dernière intervention 31 juillet 2008 - 22 avril 2003 à 14:25
2 réponses
cs_STEF1
Messages postés
46
Date d'inscription
mercredi 19 mars 2003
Statut
Membre
Dernière intervention
7 juin 2003
22 avril 2003 à 13:30
22 avril 2003 à 13:30
tien voilà un exemple qui se sert de FileSearch et qui lit des fichiers txt
Dim cpt As Integer, str As String, TestLigne As String
Dim Pos As Long, Nb_Fich As Long
Dim BGM As String ' Variable où je stocke le résultat de ma recherche
Dim chem_map As String
chem_map = "CheminDeRecherche"
With Application.FileSearch
.NewSearch
.LookIn = chem_map
.SearchSubFolders = False
.FileName = "*.txt"
.EXECUTE msoSortBySize
Nb_Fich = .FoundFiles.Count
For cpt = 1 To Nb_Fich
str = ""
str = .FoundFiles(cpt)
Open str For Input As #1
Do While EOF(1) = False
Line Input #1, TestLigne ' Testligne = ligne entière du fichier txt
' recherche la position du nom de ta var
Pos = InStr(1, TestLigne, "NomDelaVariable", vbTextCompare)
If Pos > 0 Then
' pos + 11 => nom de la variable sur 11 carac et 18 car la variable à stocker fait 18 carac
BGM = Mid(TestLigne, Pos + 11, 18)
Exit Do
End If
Loop
Close #1
Next
End With
y a pas bcp de commentaire mais tu devrais t'en sortir.
Dim cpt As Integer, str As String, TestLigne As String
Dim Pos As Long, Nb_Fich As Long
Dim BGM As String ' Variable où je stocke le résultat de ma recherche
Dim chem_map As String
chem_map = "CheminDeRecherche"
With Application.FileSearch
.NewSearch
.LookIn = chem_map
.SearchSubFolders = False
.FileName = "*.txt"
.EXECUTE msoSortBySize
Nb_Fich = .FoundFiles.Count
For cpt = 1 To Nb_Fich
str = ""
str = .FoundFiles(cpt)
Open str For Input As #1
Do While EOF(1) = False
Line Input #1, TestLigne ' Testligne = ligne entière du fichier txt
' recherche la position du nom de ta var
Pos = InStr(1, TestLigne, "NomDelaVariable", vbTextCompare)
If Pos > 0 Then
' pos + 11 => nom de la variable sur 11 carac et 18 car la variable à stocker fait 18 carac
BGM = Mid(TestLigne, Pos + 11, 18)
Exit Do
End If
Loop
Close #1
Next
End With
y a pas bcp de commentaire mais tu devrais t'en sortir.
serber38
Messages postés
28
Date d'inscription
dimanche 9 février 2003
Statut
Membre
Dernière intervention
31 juillet 2008
22 avril 2003 à 14:25
22 avril 2003 à 14:25
Impecable, merci!!!!