1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53
|
'début du programme
Sub extraction()
Dim ifile As Integer
ifile = FreeFile
Dim Data As String
Dim endtext As Integer
Dim debtext As Integer
Dim admin As Integer
Dim largeur As String
Dim numfichier As Integer 'numéro de fichier en cours d'analyse.
'début réel du programme: on va aller voir les fichiers un par un.
For numfichier = nbmin To nbmax
'ouverture du fichier
Open nomfichier & numfichier For Input As #ifile
'lecture du fichier ligne par ligne
Do While Not EOF(ifile)
Line Input #ifile, Data 'Récupère la ligne
endtext = InStr(1, Data, tagfin)
debtext = InStr(1, Data, tagdeb)
admin = InStr(1, Data, tagadmin)
If endtext <> 0 Then 'on regarde si le tag de fin est présent dans la ligne
debtext = InStr(1, Data, tagdeb)
admin = InStr(1, Data, tagadmin)
'vérification si admin
If admin <> 0 Then
'admin detecté. On récupère le code couleur que l'on met dans la colonne C.
Cells(numfichier, 3) = Mid(Data, admin - 16, 4)
'on ajoute le nom de l'admin
Cells(numfichier, 2) = Mid(Data, admin + 19, endtext - admin - 19)
Else
largeur = numfichier 'la fonction LEN() ne marchant que pour des variables de type string ou object, on copie numfichier (integer) dans largeur (string)
largeur = Len(largeur)
'Ajout du nom du membre dans la colonne B.
Cells(numfichier, 2) = Mid(Data, debtext + 11 + largeur, endtext - (debtext + 11 + largeur))
End If
End If
Loop
Close #ifile 'fermeture du fichier
Next numfichier
End Sub |
Partager