Afficher la dernière occurence recherchée dans un fichier texte

Version imprimable

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.

08/01/2013, 12h40
ProgElecT

Salut

Code:

wscript.echo MonTableautest(Ubound(MonTableautest))

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 ...

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.

08/01/2013, 14h15
snorky94

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.
08/01/2013, 17h56
l_autodidacte

Citation:

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.