Afficher la dernière occurence recherchée dans un fichier texte [Résolu]

[b.gaumard]

Bonjour,

J'ai un fichier texte dnas lequel le mot TOTO apparait sur plusieurs lignes.

TOTO;INFO1
TITI;INFO2
TOTO;INFO3
TATA;INFO4
TETE;INFO5
TOTO;INFO6
TATI;INFO7

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Recherche = "TOTO"
 
Do While FichierParcourir.AtEndOfStream <> True
 Ligne = FichierParcourir.ReadLine
 
 If instr(Ligne,Recherche) Then
 
  wscript.echo Ligne
 
 End If
 
 
Loop

Ce qui me donne :

TOTO;INFO1
TOTO;INFO3
TOTO;INFO6

Je souhaiterais afficher la dernière occurence (3eme) : TOTO;INFO6 mais je n'y arrive pas.

J'ai essayé de mettre ca dans un tableau mais ca ne fonctionne pas :

Code :

1
2
MonTableautest = Split(Ligne,vbnewline)					
wscript.echo MonTableautest(3)

Avez vous une idée svp, merci.

[ProgElecT]

Salut

Code :

wscript.echo MonTableautest(Ubound(MonTableautest))

[b.gaumard]

Ca ne Fonctionne pas

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Recherche = "TOTO"
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set FichierParcourir = objFSO.OpenTextFile("c:\test.txt") 
 
Do While FichierParcourir.AtEndOfStream <> True
 Ligne = FichierParcourir.ReadLine
 
	 If instr(Ligne,Recherche) Then
       'wscript.echo Ligne
		MonTableautest = Split(Ligne, vbnewline)
		wscript.echo MonTableautest(Ubound(MonTableautest))	
	 end If
 
Loop

ca maffiche :

TOTO
TOTO
TOTO

et non pas que le dernier ....

C'est un truc à la c#### mais je ne vois pas ...

[ProgElecT]

J'ai cà qui traine sur mon DD

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Const ForReading = 1
Dim oFso, f
Dim ContenuLgn
Set oFso = CreateObject("Scripting.FileSystemObject")
 
'Ouverture et lecture du fichier
	Set f = oFso.OpenTextFile("C:\test.txt", ForReading)
        'recuperation d'un tableau de x lignes
        ContenuLgn = split(f.ReadAll,vbnewline)
        f.close
        set f = nothing
        'lecture en commencant par la derniere ligne
        for f = ubound(ContenuLgn) to Lbound(ContenuLgn)  Step -1
                msgbox ContenuLgn(f)
        next

A toi de filtrer pour que ContenuLgn(f) ai le mot TOTO.

[b.gaumard]

merci pour l'info. Effectivement ave cun ReadAll ca fonctionne.

Mais je voudrais voir comment faire avec un ReadLine.

Je vais essayer de stocker ca dans un tableau ou un dico. merci.

[l_autodidacte]

Je vais essayer de stocker ca dans un tableau ou un dico. merci.

Dans le code proposé par ProgElecT, ContenuLgn est déjà un tableau.