Discussion :

[hackoofr]

Tout est dans le titre : Je cherche à faire une fonction pour extraire une partie d'un fichier texte comprise entre la ligne (n) et la ligne (m) ?
Par exemple j'ai un fichier avec cette structure :

1ère ligne à ignorer
2ème ligne à ignorer
Mes données à extraire
........................................................
........................................................
........................................................
........................................................
Mes données à extraire
Avant dernière ligne à ignorer
Dernière ligne à ignorer

Quelqu'un a une piste ?

[ProgElecT]

Salut

A première vue, ouvrir le fichier, récupérer l’entièreté (RedAll), le fermer, spliter vbNewLine, concaténer de Lbound + 2 à Ubound - 2

[hackoofr]

et pour cette idée
Moi j'ai pensé de le faire de cette façon :

Code :

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

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
Option Explicit
Dim ws,Title,LogFile
Title = "SkipLine Method"
Set ws = CreateObject("Wscript.Shell")
WriteLog(SkipLineInFile(2,2))
MsgBox SkipLineInFile(2,2),64,Title
LogFile = Left(Wscript.ScriptFullName, InstrRev(Wscript.ScriptFullName, ".")) & "log"
ws.run LogFile
'***************************************************************************************
Function SkipLineInFile(n,m)
   Const ForReading = 1, ForWriting = 2
   Dim fso,f,i,j,LireTout,MyArray,MyText
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
   f.Write "1ere Line" & vbCrLf &"2eme Line" & vbCrLf &"VBScript" & vbCrLf & "est Cool !"& vbCrLf &"6 Line" & vbCrLf &"7 Line"
   Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)
   For i = 1 To n
       f.SkipLine
   Next
   Mytext = ""
   LireTout = f.ReadAll
   MyArray = Split(LireTout,vbCrLf)
   For j = LBound(MyArray) To Ubound(MyArray) - m
       MyText = Mytext & MyArray(j) & vbCrLf
   Next
   SkipLineInFile = MyText
End Function
 
Sub WriteLog(strText)
Dim fs,ts,LogFile
Const ForAppending = 8
    LogFile = Left(Wscript.ScriptFullName, InstrRev(Wscript.ScriptFullName, ".")) & "log"
	Set fs = CreateObject("Scripting.FileSystemObject")
	if fs.FileExists(LogFile) Then
	    fs.DeleteFile LogFile
    end if
	Set ts = fs.OpenTextFile(LogFile,ForAppending,True)
	ts.WriteLine strText
	ts.Close
End Sub

Donc il me reste juste un traitement d'erreurs pour le dépassement des lignes
Une solution ?

[l_autodidacte]

Salut hackoofr;
Une suggestion si tu le permets

Si tu places ton fichier script sur le bureau par exemple ou dans un chemin contenant des espaces dans le nom, tu rencontreras une erreur du type chemin d'accès introuvable à la ligne 7
Pour palier à ce problème, tu peux ajouter la fonction

Code :

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

1
2
3
4
5
Function CheminCourt(strFile)
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set FL = fso.GetFile(strFile)
   CheminCourt = FL.ShortPath
End Function

ensuite, tu l'appelles à la ligne 7 :
LogFile = CheminCourt(Left(Wscript.ScriptFullName, InstrRev(Wscript.ScriptFullName, ".")) & "log")

[hackoofr]

et si Moncef pour cette remarque
Maintenant avez-vous une solution pour le traitement de lecture des lignes
encore une autre fois

[pitchalov]

Bonjour,

Voilà comment j'aurais vu les choses, en lisant ligne par ligne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
' Non testé
Function SkipLineInFile(strInputFilePath, intFisrtLine, intLastLine)
	Const ForReading = 1
	Set objFso = CreateObject("Scripting.FileSystemObject")
	SkipLineInFile = ""
	If NOT objFso.FileExists(strInputFilePath) Then Exit Function
	objInputFile = objFso.OpenTextFile(strInputFilePath, ForReading)
	intLineCounter = 0
	Do Until objInputFile.AtEndOfStream OR intLineCounter < intFisrtLine
		objInputFile.ReadLine
		intLineCounter = intLineCounter + 1
	Loop
	Do Until objInputFile.AtEndOfStream OR intLineCounter < intLastLine
		SkipLineInFile = SkipLineInFile & objInputFile.ReadLine & vbCrLf
		intLineCounter = intLineCounter + 1
	Loop
End Function

Qu'en penses-tu?

Bonne continuation.