Lire la fin d'un fichier texte à partir d'une ligne précise
Bonjour à tous,
J'avais déjà demandé de l'aide sur ce forum il y un mois, et le problème avait été résolu. Cependant j'en ai un autre :?.
J'ai un fichier texte de la forme suivante:
from:machin
to:machin
subject:machin
blablablabla
blablabla
Le script que j'ai, arrive à récupérer les 3 premières infos, c'est à dire seulement les 3 "machin". Ce que je cherche à faire maintenant c'est de lire TOUT ce qui se trouve à partir de la ligne 4.
Mon problème est que la fonction qui me permet de récupérer les 3 variables, fonctionne sous forme de tableau et récupère une variable après chaque ":" comme ceci:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
| Function ReadData(sRep)
Dim oFiles,oFile,oTFile,i,k,aBuffer
Set oFiles = oFso.GetFolder(sRep).Files
ReDim aData(oFiles.Count - 1,3)
i = 0
For Each oFile In oFiles
Set oTFile = oFso.OpenTextFile(oFile.Path, ForReading)
For k = 0 to 3
aBuffer = Split(oTFile.ReadLine, ":")
aData(i,k) = aBuffer(1)
Next
i = i + 1
Next
End Function |
Comment est-ce que je pourrais faire pour lire la suite du fichier sans modifier cette fonction?
Merci d'avance pour votre aide.
