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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.