Discussion :

[jobar38]

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)

[pitchalov]

Salut.

En utilisant des fonctions de traitement de chaînes, ça devrait marcher :

Code :

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

1
2
3
4
...
ligne = f1.ReadLine
ligne = Right(ligne, Len(ligne) - 5)
...

[jobar38]

Non, message d'erreur!

affectation de propriété incorrects: 'Right'

[omen999]

bonjour,

Non, message d'erreur!

vbscript couine quand l'argument length de la fonction Right est inférieur à 0
donc :

Code :

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

If Len(ligne)>4 Then ligne = Right(ligne, Len(ligne) - 5)

[jobar38]

Merci!