Discussion :

[Touny]

Bonjour,

Je cherche depuis un moment comment lire un fichier txt en commençant par la fin ?

De plus, je récupère des valeurs d'un fichier texte (ça fonctionne très bien) et je voudrais arrêter le traitement dès que ma valeurs est récupéré (même si la même valeur ce trouve plus loin dans le fichier).

Merci pour vos pistes et votre aide,

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Const ForReading = 1, ForWriting = 2 
Dim oFso, f
Dim lectureLigne, sansEspace
Dim caNet, nbArticle, nbTicketCA
Set oFso = CreateObject("Scripting.FileSystemObject")
 
'Ouverture et lecture du fichier
	Set f = oFso.OpenTextFile("P:\Scripts\test.txt", ForReading)
 
		do while f.AtEndOfStream = false
 
			lectureLigne = f.readLine
			caNet = left(lectureLigne,8)
			nbArticle = left(lectureLigne,19)
			nbTicketCA = left(lectureLigne,29)
 
			if caNet = "C.A. net" Then
 
				sansEspace=replace(lectureLigne," ","")
				Deb = Instr(sansEspace,"C")+7
				Fin = Instr(sansEspace,"E")
				msgbox Mid(sansEspace,Deb,Fin-Deb)
 
 
			End If
 
			if nbArticle = "Nombre d'articles  " Then
 
				sansEspace=replace(lectureLigne," ","")
				test = replace(sansEspace,"Nombred'articles","")
				msgbox test
 
			End If
 
			if nbTicketCA = "Nombre de tickets (avec C.A.)" Then
 
				sansEspace=replace(lectureLigne," ","")
				test2 = replace(sansEspace,"Nombredetickets(avecC.A.)","")
				msgbox test2
 
			End If
 
		loop	
	f.close

Voici le contenu de mon fichier test.txt :

========================================================

========================================================
RAZ NUMERO
--------------------------------------------------------
Boutique :
Caisse :
Caissier :
En date :
Heure :
========================================================
--------------------------------------------------------
Ventes (brut) 0,00 E
Remises caisse 0,00 E
--------------------------------------------------------
Retours 0,00 E
C.A. net 0,00 E
--------------------------------------------------------
Taxes sur chiffre d'affaires
--------------------------------------------------------
--------------------------------------------------------
Règlements
--------------------------------------------------------
--------------------------------------------------------
--------------------------------------------------------
Sorties de caisse 0,00 E
Dont dépenses 0,00 E
--------------------------------------------------------
Entrées de caisse 0,00 E
Dont retouches 0,00 E
--------------------------------------------------------
Nombre d'articles 0,00
Nombre d'articles cadeau 0,00
Nombre de tickets (avec C.A.) 0
Indice de vente 0,00
Panier moyen 0,00 E
========================================================
*** FIN BANDE RAZ ***

========================================================

========================================================
RAZ NUMERO
--------------------------------------------------------
Boutique :
Caisse :
Caissier :
En date :
Heure :
========================================================
--------------------------------------------------------
Ventes (brut) 0,00 E
Remises caisse 0,00 E
--------------------------------------------------------
Retours 0,00 E
C.A. net 2574,50 E
--------------------------------------------------------
Taxes sur chiffre d'affaires
--------------------------------------------------------
--------------------------------------------------------
Règlements
--------------------------------------------------------
--------------------------------------------------------
--------------------------------------------------------
Sorties de caisse 0,00 E
Dont dépenses 0,00 E
--------------------------------------------------------
Entrées de caisse 0,00 E
Dont retouches 0,00 E
--------------------------------------------------------
Nombre d'articles 53,00
Nombre d'articles cadeau 0,00
Nombre de tickets (avec C.A.) 33
Indice de vente 0,00
Panier moyen 0,00 E
========================================================
*** FIN BANDE RAZ ***

Je voudrais donc commencer par la fin pour récupérer les valeurs qui ne sont pas à zéro et dès qu'il trouve, il s'arrête (et n'affiche pas celle à 0 plus haut)

Merci

[ProgElecT]

Bonjour,

Je cherche depuis un moment comment lire un fichier txt en commençant par la fin ?
.....
je voudrais arrêter le traitement dès que ma valeurs est récupéré (même si la même valeur ce trouve plus loin dans le fichier).

- en commençant par la fin: peut être comme cela, mais couteux en mémoire quand ton fichier sera de quelque Mega/Giga.

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
Const ForReading = 1, ForWriting = 2
Dim oFso, f, t
Dim lectureLigne, sansEspace, ContenuLgn
Dim caNet, nbArticle, nbTicketCA
Set oFso = CreateObject("Scripting.FileSystemObject")
 
'Ouverture et lecture du fichier
	Set f = oFso.OpenTextFile("P:\Scripts\test.txt", ForReading)
        'récupération d'un tableau de x lignes totalité du fichier
        ContenuLgn = split(f.ReadAll,vbnewline)
        f.close
        set f = nothing
        'lecture des 10 dernières lignes en commençant par la dernière ligne
        for t = ubound(ContenuLgn) to ubound(ContenuLgn)-9  Step -1
                msgbox ContenuLgn(t)
        next

- arrêter le traitement dès que ma valeurs est récupéré: Ben comme tu sais que ta valeurs est récupérer, tu fais un Exit Do

[Touny]

Merci beaucoup c'est exactement ce que je cherchais