Lire fichier texte à partir d'une ligne spécifique

Version imprimable

Bonjour,

Je cherche en vain comment lire un fichier texte à partir d'une ligne spécifique, et ensuite récupérer son contenu dans une variable.

J'ai mon fichier texte de la forme:
Code:

1 2 3 4 5 6 7 8 From:adresse@domaine To:adresse@domaine Subject:Test Bonjour, Test. Cordialement.
Donc ce que je veux récupérer dans une variable, se trouve à partir de la ligne 4, c'est à dire le message du mail.

J'ai déjà un code qui me récupère ce qu'il y a sur les 3 premières lignes:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 Dim sRep sRep = "C:\Users\Test\" Const ForReading = 1 Dim aData() Set oFso = CreateObject("Scripting.FileSystemObject") 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 ReadData(sRep) For j = 0 to UBound(aData) vExpediteur = aData(j,0) vDest = aData(j,1) vSujet = aData(j,2) Next
Merci d'avance pour votre aide.

07/07/2011, 09h47
Msxty
J'ai trouvé une solution sur un autre forum mais je suis un peu dans le brouillard:
Code:

1 2 3 4 5 6 7 8 Just add a loop after you open the file and throw away the first five lines. 'Assuming your file stream is called oFileIn... Dim i For i = 1 To 5 oFileIn.ReadLine Next
J'ai compris qu'il saute les 5 premières, il lit la ligne suivante et il retourne une chaine. Mais comment je récupère cette chaîne?

Si tu veux récupérer le contenu du fichier à partir de la ligne 4, tu peux faire :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
set fso=CreateObject("Scripting.FileSystemObject")
set oFich=fso.OpenTextFile("Monfichier",1,True)
tx=oFich.ReadAll
oFich.Close    ' On ferme le fichier après en avoir lu le contenu
tb=Split(tx,VbNewline)
For i=3 To Ubound(tb) ' On commence à 3 qui correspond à la 4ème ligne  
                      ' puisque le premier index du tableau (tb) est 0(zéro)
  S=S+tb(i)+Vbnewline
Next
'Affichage du résultat
MsgBox s
' Nettoyage 
Set oFich = Nothing
Set fso = Nothing

Citation:
Envoyé par l_autodidacte
Si tu veux récupérer le contenu du fichier à partir de la ligne 4, tu peux faire :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 set fso=CreateObject("Scripting.FileSystemObject") set oFich=fso.OpenTextFile("Monfichier",1,True) tx=oFich.ReadAll oFich.Close ' On ferme le fichier après en avoir lu le contenu tb=Split(tx,VbNewline) For i=3 To Ubound(tb) ' On commence à 3 qui correspond à la 4ème ligne ' puisque le premier index du tableau (tb) est 0(zéro) S=S+tb(i)+Vbnewline Next 'Affichage du résultat MsgBox s ' Nettoyage Set oFich = Nothing Set fso = Nothing
Merci pour ton aide, ça marche bien. J'ai juste un petit problème, j'ai intégré ton code dans la boucle de ma fonction "ReadData" afin de récupérer le message de chaque mail qui se trouve dans le répertoire "sRep".

Le problème, c'est qu'au final les messages que j'ai récupéré de chaque fichier se réunissent et donc dans chaque mail envoyé se trouve tous les messages.

Donc je suppose qu'il faut je sépare ton code de ma fonction "ReadData" et que je crée une autre boucle afin de lire chaque fichier se trouvant dans le répertoire. Je ne sais pas si c'est compréhensible ^^.

08/07/2011, 05h25
l_autodidacte

Il suffit de mettre

Code:

s = ""

juste au début de chaque itération.

Citation:

Envoyé par l_autodidacte

Il suffit de mettre

Code:

s = ""

juste au début de chaque itération.

Merci beaucoup, je récupère bien mes messages. Je tenais à vous précisez que je débute sur le VBS, c'est pour quoi je suis ici :).

J'ai un dernier problème. J'utilise 2 tableaux : UBound(aData) pour les 3 premières valeurs et UBound(tb) pour les valeurs à partir de la ligne 4.

Je récupère bien mes valeurs, le problème qui se pose c'est que pour envoyer les mails j'utilise une boucle For avec le tableau UBound(aData) comme ceci:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 Function ReadData(sRep) Dim oFiles,oFile,oTFile,i,k,aBuffer Set oFiles = oFso.GetFolder(sRep).Files ReDim aData(oFiles.Count - 1,4) i = 0 For Each oFile In oFiles Set oTFile = oFso.OpenTextFile(oFile.Path, ForReading) s = "" For k = 0 to 2 aBuffer = Split(oTFile.ReadLine, ":") aData(i,k) = aBuffer(1) Next i = i + 1 Set fso = CreateObject("Scripting.FileSystemObject") Set oFich = fso.OpenTextFile(oFile.Path, 1,True) tx = oFich.ReadAll oFich.Close ' On ferme le fichier après en avoir lu le contenu tb = Split(tx,VbNewline) For h = 3 To UBound(tb) ' On commence à 3 qui correspond à la 4ème ligne ' puisque le premier index du tableau (tb) est 0(zéro) S = S+tb(h)+Vbnewline Next ' Affichage du résultat MsgBox s vMsg = s ' Nettoyage Set oFich = Nothing Set fso = Nothing Next End Function ReadData(sRep) For j = 0 to UBound(aData) ' MsgBox aData(j,0) & " " & aData(j,1) & " " & aData(j,2) & " " & aData(j,3) ' Assignation des variables vExpediteur = aData(j,0) vDest = aData(j,1) vSujet = aData(j,2) ....
Et ce que je fait ensuite cest de mettre : vMsg = s
Mais bien entendu ceci me donne la dernière valeur récupérée, donc est-il possible de fusionner les deux tableaux ou vu que que le MsgBox me récupère bien chaque message est-il possible de les réutiliser dans mon tableau UBound(aData)?

Sinon je pensais mettre la variable tb en tant que tableau dynamique de la même façon que "aData" mais je ne sais pas comment modifier cette ligne :

Code:

s = s+bBuffer(h)+VbNewline

Voici ce que je fais ... j'espère ne pas trop confondre les variables :?:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Set fso = CreateObject("Scripting.FileSystemObject")
		Set oFich = fso.OpenTextFile(oFile.Path, 1,True)
		tx = oFich.ReadAll
		ReDim tb(oFiles.Count - 1,4)
		oFich.Close    ' On ferme le fichier après en avoir lu le contenu
		bBuffer = Split(tx,VbNewline)
		For h = 3 To UBound(tb) ' On commence à 3 qui correspond à la 4ème ligne  
								' puisque le premier index du tableau (tb) est 0(zéro)
 
			s = s+bBuffer(h)+VbNewline
			tb(i,h) = bBuffer(1)
			vMsg = tb(i,0)
		Next
 
		' Affichage du résultat
		MsgBox s
 
		' Nettoyage 
		Set oFich = Nothing
		Set fso = Nothing

15/07/2011, 15h42
Msxty

Citation:

Envoyé par l_autodidacte

Il suffit de mettre

Code:

s = ""

juste au début de chaque itération.

Est ce que tu aurais une idée afin que je puisse mettre la variable "s" dans un tableau dynamique?