Discussion :

[Ted37]

Bonjour,

Est-il possible de récupérer une valeur dans un fichier texte (txt)?
Je souhaite récupérer la valeur qui est sur la 19ème ligne et qui est comprise entre les 14ème et 20ème caractère.

J'ai fais quelques recherches et j'ai trouvé les fonctions instr et find, mais celles-ci fonctionne pour excel et acces, fonctionnent-elles également pour une recherche dans un fichier texte?

D'avance merci

[ucfoutu]

Bonjour,

ouvre ton fichier avec Open ... For...

Lis-le ligne par ligne avec Line Input

(les exemples sur ce forum sont plus que foison)

Utilise ensuite (sur les lignes qui t'intéressent) la fonction Mid

[Godzestla]

Bonjour,

tu dois procéder autrement avec un fichier texte.

Ouverture du fichier texte (input_file est le nom complet de ton fichier)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
    Open Input_file For Input As #1

lecture d'un record

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
        Line Input #1, LaLigne

donc tu fais un boucle pour lire jusqu'au 19ème.

récup des pos 14-20 du record :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
valeur = mid(laligne, 14, 7)

fermeture du fichier texte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
    Close #1

Bonne chance.

[Ted37]

Ok, j'ai réussi à récupérer ma valeur, par contre, maintenant ça boucle toujours dessus!!! Une fois qu'il a trouvé la valeur je voudrais bien qu'il sorte!

Ok, j'ai résolu j'avais oublié de spécifier de sortir de la boucle!!!

Merci à vous

[ucfoutu]

Bon...

Alors voilà une autre manière, maintenant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Explicit
 
Private Sub Command1_Click()
   Dim tonfichier As String
   tonfichier = "d:\essai.txt"
   MsgBox extraire(tonfichier, 19, 14, 20) 'où 19 est ta ligne, 14 et 20 les rangs des caractères de début et de fin
End Sub
 
Private Function extraire(fichier As String, ligne As Integer, cardebut As Integer, carfin As Integer) As String
 Dim ff As Integer, strtext As String
 ff = FreeFile
 Open fichier For Input As #ff
    strtext = Input(LOF(ff), #ff)
 Close #ff
 Dim toto
 toto = Split(strtext, vbCrLf)
 extraire = Mid(toto(ligne - 1), cardebut, carfin - 1)
End Function

Amuse-toi bien...

[Ted37]

Je me suis emballé, j'ai testé en méthode pas à pas et tout fonctionne!

Mais quand je lance en automatique, j'ai un message qui me dit que "erreur type 53, fichier introuvable", alors que mon fichier existe bien???

Voici le bout de code qui pose problème

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
' pour information metadonnées = le chemin de mon fichier
Open metadonnees For Input As #1
 
Do While Not EOF(1)
 
    Line Input #1, laligne
    position_pixel = InStr(1, laligne, "Pixel Size = (", vbTextCompare)
    If position_pixel > 0 Then
    T = Mid(laligne, position_pixel + 14, 7)
    MsgBox "Zone extraite = " & T
    Exit Do
    End If
 
Loop
 
 
 
Close #1

d'avance merci

[Godzestla]

Quand tu prends un debug, que vaut

metadonnées = le chemin de mon fichier

As-tu vérifié ? (nom complet du fcihier avec chemin et extension).

[Ted37]

Bonsoir,

Metadonnees = le chemin de mon fichier.txt (avce l'extension).

Ce que je ne comprends pas c'est que le debug apparait uniquement quand je lance le "prog" en automatique alors qu'en pas à pas (F8) tout se passe nickel!

Cordialement

[Ted37]

J'ai trouvé la solution!!

Mon code s'executé un peu trop rapidement, donc j'ai fait temporiser 2 secondes entre la création de mon fichier txt et la recherche d'info dans ce même fichier est tout fonctionne!!
J'ai utilisé la méthode wait
Cordialement