Bonjour,

je souhaite modifier mon script en démarrant la lecture de chaque ligne sur la 5 eme position.


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
 
Const ForReading = 1, ForWriting = 2, ForAppending = 8 
Dim fso, f , f1, f2
Dim st ,st1
Set objDictionary = CreateObject("Scripting.Dictionary")
Set fso = CreateObject("Scripting.FileSystemObject")
 
'test.txt est le fichier avec la totalité des ecritures
Set f = fso.OpenTextFile("C:\test.txt", ForReading)
 
'test1.txt est le fichier incomplet
Set f1 = fso.OpenTextFile("C:\test1.txt", ForReading)
 
'creation de test2.txt qui sera la difference des 2 fichiers
Set f2 = fso.CreateTextFile("c:\test2.txt") 
f2.Close
 
' je charge l'ensemble des lignes du fichier f1 dans une librairie
Do Until f1.AtEndOfStream
	ligne = f1.ReadLine
	objDictionary.Add ligne, ligne
Loop
Set f2 = fso.OpenTextFile("c:\test2.txt", ForWriting)
Do Until f.AtEndOfStream
    ligne = f.ReadLine
'si je ne trouve pas les lignes de f dans la librairie je les copie dans f2 ainsi que les lignes de f1 non reconnues 
	If Not objDictionary.Exists(ligne) Then
		f2.WriteLine ligne
	End If
Loop
f.Close
f1.Close
f2.Close
Est-ce que je peux indiquer la position lorsque je lis la totalité de mon fichier?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
("C:\test.txt", ForReading)