Bonsoir à tous,
J'aimerais dans un fichier, repérer le mot "OBJECT" pour lire ce qui est dans les deux lignes qui suivent en dessous.
A récupérer :
- Le nom sous "OBJECT" (dans l’exemple GTY0A et JEW0A)
- Les NCS, NSD, NTN, NBS sous le mot "CS" ainsi que leurs valeurs respectives
Le code :
Merci d'avance.
J'aimerais dans un fichier, repérer le mot "OBJECT" pour lire ce qui est dans les deux lignes qui suivent en dessous.
A récupérer :
- Le nom sous "OBJECT" (dans l’exemple GTY0A et JEW0A)
- Les NCS, NSD, NTN, NBS sous le mot "CS" ainsi que leurs valeurs respectives
Le code :
Code:
'---------------------------------------------
reponse = Application.GetOpenFilename _
("All Files (*.*),*.*")
If reponse = False Then Exit Sub
Canal = FreeFile
Open reponse For Input As #Canal
Do While Not EOF(Canal)
Line Input #1, A$
B$ = Split(A$, " ")
If B$(0) = "OBJECT" Then
'ICI on doit aller vers les deux lignes en bas pour récupérer nos données
End If
Loop
Close #Canal
'-----------------------------------------------------------------Merci d'avance.
