Discussion :

[dadaapocalypse]

Bonjour,
Je suis débutante en VBScript et je souhaite modifier le code ci-dessous afin de se positionner sur la fin du fichier texte et remonter à partir de la dernière ligne pour afficher les dix derniers lignes au lieu de lire ligne par ligne.

Voilà Code qui permet de lire ligne par ligne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim aryline, lngTail, strFileName
lngTail = 10
set objFs = Wscript.CreateObject("Scripting.FilesSystemObject")
if objFs.FileExists(strFileName) Then
set objFile=objFs.OpenTextFile(strFileName,ForReading)
reDim aryline(lngTail)
i=0
Do until objFile.AtEndOfSteam
i=(i+1) Mod lngTail
aryline(i)=objFile.ReadLine
Loop

// J'ai une petite idée :
récupérer le nombre de ligne par : la propriété Line

seulement ça me donne un nombre que je ne sais pas quoi faire avec. J'aimerais bien récupérer un pointeur sur la dernière ligne et puis déplacer le pointeur en haut pour récupérer les derniers lignes.

Merci de me proposer une solution.

dadaapocalypse

[spantemonium]

Salut dadaapocalypse.


En fait il n'y a pas de pointeurs, avec le numéro de ligne, tu peux eventuellement lire avec readLine pour récupérer les informations dont tu as besoin, mais il faut recommencer la lecture du début.


Dans ton cas, tu compte les lignes et remplis une variable totalLignes, et tu copie les infos a partir de totalLignes - 10 jusqu'à totalLignes.

[dadaapocalypse]

Bonjour,
Je vous remercie pour la réponse.
seulement, il n'existe pas une propriété qui indique nombre total de lignes
donc si je fais

Code :

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

1
2
3
4
5
6
total_Lignes=objFs.Line
i=total_Lignes
do until total_Lignes - 10
i=i-1
aryLine(i)=objFile.ReadLine
Loop

ça ne marchera pas car total_Lignes n'est pas une propriété de l'objet FSO.

merci de me montrer clairement où est le problème.

dadaapocalypse

[spantemonium]

exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Const ForReading = 1, ForWriting = 2 
Dim oFso, f
Dim ts, nl
Dim total_Lignes
Set oFso = CreateObject("Scripting.FileSystemObject")
Set f = oFso.OpenTextFile("c:\test1.txt", ForReading)
ts = f.ReadAll '-- Lit la totalité du fichier
total_Lignes = f.Line    '-- Récupère le nombre de lignes
f.Close
 
'Suite du code...