lecture de lignes sur une même position
Bonjour,
je souhaite modifier mon script en démarrant la lecture de chaque ligne sur la 5 eme position.
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
|
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:
("C:\test.txt", ForReading)
