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

**snorky94** · 08/01/2013, 12h24

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Avez vous une idée svp, merci.

**ProgElecT** · 08/01/2013, 12h40

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

wscript.echo MonTableautest(Ubound(MonTableautest))

**snorky94** · 08/01/2013, 12h49

Ca ne Fonctionne pas

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
 
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** · 08/01/2013, 13h14

J'ai cà qui traine sur mon DD

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

**snorky94** · 08/01/2013, 14h15

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.