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:
Comment est-ce que je pourrais faire pour lire la suite du fichier sans modifier cette fonction?
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
Merci d'avance pour votre aide.
Partager