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.

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
Merci d'avance