Discussion :

[julien0000]

bonjour,

je dois extraire des données situées au mileu d'un fichier texte (file.txt)

existe-t-il des méthodes pr arriver à mes fins?

j'avais par exemple pensé à des sortes de coordonnées : la position du caractère sur une certaine ligne...

je ne sais pas si c'est possible,

pour info voici à quoi ressemble mon fichier texte

Code xml :

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

1
2
3
4
5
6
7
8
9
10
11
<!DOCTYPE ECUD PUBLIC "-//pppppp//DTD ecud//ppp">
<Ecud Author="Fréd XXX" Responsible="roger XX " Createdate="17/09/2008">
                <HardwareNiveaDev>
                       <DSWDownload Speed="8952">
                       <HardwareNivea Protocol="ENGSAE" MaxMsgLen="5623                                     <HardwareContent FieldNbr="542" Restricted="N">
                                     <HardwareContent FieldNbr="535" Restricted="N">
                                     <HardwareContent FieldNbr="543" Restricted="N">
                                     <HardwareContent FieldNbr="544" Restricted="N">
                        </HardwareNivea>
                </HardwareNiveaDev>
</Ecud>

(je dois extraire les 4 numeros (542,535,543,544))
merci

[J.Michel]

Comme ça sans approfondir, peut être quelque chose dans ce style là:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim Tampon as String
 
Open MonFichier for Input as #1
do until eof(1)
   input #1, Tampon
   If Left(Tampon,26) = "<HardwareContent FieldNbr=" then
      Recupération du texte par un Mid par ex
   End If
Loop
Close #1

[Godzestla]

J'ai testé ceci et ca marche, en supposant que ce que tu cherche est précédé par

FieldNbr="

.

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
20
21
22
23
24
 
Sub Analyse_txt()
Dim LaLigne         As String, tablo As Variant
Dim Field_pos       As Long
Dim Lazone          As String
Dim Input_file      As String
 
 
    Input_file = "c:\data\example.txt"
    Open Input_file For Input As #1
    Do While Not EOF(1)
        Line Input #1, LaLigne
        Field_pos = InStr(1, LaLigne, "FieldNbr", vbTextCompare)
        If Field_pos > 0 Then
           Lazone = Mid(LaLigne, Field_pos + 10, 3)
           MsgBox "Zone extraite = " & Lazone
        End If
 
    Loop
    Close #1
 
 
 
End Sub

[julien0000]

oui bravo

la 2ème solution marche parfaitement!!

merci

a+