Bonjour,
J'aimerais savoir comment lire les trois dernières lignes d'un fichier texte. Car j'ai essayé ce code, mais il tourne en boucle on dirait.
Merci d'avance
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
25
26
27 adresse_ip = Request.ServerVariables("REMOTE_ADDR") 'création du fichier avec comme nom l'adresse IP du poste de la personne Set FSO = Server.CreateObject("Scripting.FileSystemObject") chemin_fichier = Server.MapPath("sauvegarde_facture/" &adresse_ip & ".fac") set fichier = FSO.OpenTextFile(chemin_fichier) Do while not fichier.atEndOfStream nombre_ligne = nombre_ligne + 1 loop For compteur = 1 to nombre_ligne - 1 fichier.Skipline Next sous_total = fichier.Readline fichier.Skipline tva = fichier.Readline fichier.Skipline total = fichier.Readline fichier.Close 'remise de la variable a "" text_ligne = "" tableau_ligne = "" Set fichier = Nothing Set FSO = Nothing
Partager