Discussion :

[carmella]

Bonsoir,
Pouvez vous m'aider.
Je veux récupérer la 1ère ligne d'un fichier dans une variable et commencer à parcourir le fichier à partir de la seconde ligne.
merci.

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
fich = FreeFile
'Open s2 & "FICTRANS" For Input As #fichApp.Path & "\FichEntree\
Open CheminFich For Input As #fich
 
 
'Parcours séquentiel du fichier 
Do While Not EOF(fich)
Line Input #fich, S
 
'*******traitement de la 1ere ligne
 
 
'***********trraitement à partir de la 2nde ligne******
c = Mid(S, 31, 2)
If c <> "03" Then 'on teste
    'la fonction qui écrit dans le fichier final '
    EcrireFich S
End If
 
Loop

[SfJ5Rpw8]

plusieurs solutions .. tu peu par exemple utiliser une variable booléenne en drapeau ...


pour le principe..

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
dim bLigne1 as boolean 
bLigne1 = True
Do While Not EOF(fich)
Line Input #fich, S
if bLigne1 then
  '*** Traitement ligne 1
  bLigne1 = false
else
 '** Traitement des autres lignes
 
end if

[carmella]

merci