Lecture d'un fichier .txt

**topor** · 15/10/2012, 20h05

Bonjour,

suite à mon précédant post, ... la réponse rapide m'a d'ailleurs permis de finir la première partie d'écriture de mon script ... Je continue de le développer.
Je butte maintenant sur la lecture d'un fichier au format TXT écrit avec le bloc note de windows !!! je doit être nul!?

Pour lire ce fichier qui ne contient qu'une date /heure (par exemple 15/10/2012 17:15:00) j'ai essayer d'utiliser les deux codes ci-dessous.

Pour le premier, qui ne laisse même pas ouvrir la sélection de répertoire (cela sert pour la suite du script) j'obtiens le message d'erreur suivant : ligne 12, caract 12, fin d'instruction attendue.

Pour le second, qui ouvre la sélection de répertoire, le message d'erreur est : ligne 12, carct 1, Argument ou appel de procédure incorrect.
Sur ces deux point je ne m'en sort pas ...

Mon script en fin d'exécution doit ré ouvrit le fichier Date.txt pour y inscrire la date et l'heure de fin d'exécution qui sera utile à son prochain lancement pour éviter le traitement de fichiers déjà passés à la moulinette.

en code 3 mon script sans histoire de date et heure, il fonctionne bien.

Merci d'avance pour vos explications et / ou votre aide.

Code 1

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
'Get Application object of the Windows shell.
Set objShell = WScript.CreateObject("Shell.Application")
 
'Ask the user to select a folder
Set obFolder = objShell.BrowseForFolder (0, "Select the folder to process", 1)
'Wscript.Echo obFolder 'réponse ok, medonne le nom du bon répertoire ....
 
Set FSO = CreateObject("Scripting.FileSystemObject")
PathFichier = FSO.GetParentFolderName(wscript.ScriptFullName) & "\"
'Wscript.echo "le chemin est :" & PathFichier 'me donne le bon chemin - la ou se trouve le Script et le fichier Date.txt...!!! OK
 
Dim intfic As Integer
Dim LastDate As String
Open "PathFichier.Date.txt" for input as intFic
Line Input #intFic, LastDate
Wscript.echo "Date lue" & LastDate
Close intFic

Code 2

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'Get Application object of the Windows shell.
Set objShell = WScript.CreateObject("Shell.Application")
 
'Ask the user to select a folder
Set obFolder = objShell.BrowseForFolder (0, "Select the folder to process", 1)
'Wscript.Echo obFolder 'réponse ok, medonne le nom du bon répertoire ....
 
Set FSO = CreateObject("Scripting.FileSystemObject")
PathFichier = FSO.GetParentFolderName(wscript.ScriptFullName) & "\"
'Wscript.echo "le chemin est :" & PathFichier 'me donne le bon chemin - la ou se trouve le Script et le fichier Date.txt...!!! OK
 
Set f = FSO.OpenTextFile("PathFichier.Date.txt", ForReading)
LasteDate = f.ReadLine
Wscript.echo "Date lue" & LastDate

Code 3 : script actuellement fonctionnel

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
'Get Application object of the Windows shell.
Set objShell = WScript.CreateObject("Shell.Application")
 
'Ask the user to select a folder
Set obFolder = objShell.BrowseForFolder (0, "Select the folder to process", 1)
'Wscript.Echo "obFolder = " & obFolder 'réponse ok, me donne le nom du bon répertoire ....
Set obFolder2 = obFolder 'y-a-t il un moyen plus élegant que d'utiliser cette ligne?!
'Wscript.Echo "obFolder2 =" & obFolder2 'idem ci dessus
 
If NOT obFolder IS Nothing Then
 
	'Start WellCAD
	Set WCAD = CreateObject("WellCAD.Application")
	WCAD.ShowWindow()
 
	'Get access to input folder and process it
	'file saveAs avec ajout de _xx à la fin du nom
	Set FSO = CreateObject("Scripting.FileSystemObject")
 
	'SaveAs les ancien fichier avec _XX à la fin
	ProcessFolder WCAD, FSO, obFolder.self.Path
 
	'Suprime les anciens fichiers sans _XX à la fin
	Set obFolder = obFolder2
	'Wscript.Echo "obFolder =" & obFolder 'me donne le bon chemin de départ
	DeleteOldFiles FSO, obFolder.self.Path
 
	'Renomme les fichiers _XX et les effaces
	Set obFolder = obFolder2
	'Wscript.Echo "obFolder =" & obFolder 'me donne le bon chemin de départ
	Renomme_XX FSO, obFolder.self.Path
 
 
	MsgBox "Finished"
 
Else
 
	MsgBox "Canceled"
 
End If
 
 
Sub ProcessFolder(WCAD, FSO, FolderPath) 'supression de PATH
 
	'Get access to the folder
	Set obFolder = FSO.GetFolder(FolderPath)
	'Wscript.Echo obFolder 'me retourne différent path :
	'retourne l'arboresence, travail dans chaque rep ou il faut
	'puis retourne le rep suivant
	'et ainsi de suite
	'
	'Loop on all the files and process each of them
	For Each obFile In obFolder.Files
 
		'Check if it is a WCL file containing diagraphie in its name
		If (StrComp(Right(obFile.Name, 3), "wcl", 1) = 0) AND _
			(InStr(1, obFile.Name, "_xx", 1) = 0) THEN
 
			Set obBHDoc = WCAD.OpenBorehole(obFile.Path)
 
			'SaveAs the WCL file
			obBHDoc.SaveAs Left(obFile.Path, Len(obFile.Path) - 4) & "_xx" & Right(obFile.Path, 4)
 
 
			Set obBHDoc = Nothing
			WCAD.CloseBorehole FALSE
 
		End If
 
	Next
 
	'Loop on all the subfolders and process each of them
	For Each obSubFolder In obFolder.SubFolders
		ProcessFolder WCAD, FSO, obSubFolder.Path 'supression de PATH
	Next
 
End Sub
 
'Suprime les anciens fichiers sans _XX à la fin
Sub DeleteOldFiles (FSO, FolderPath)
 
'Get access to the folder
	Set obFolder = FSO.GetFolder(FolderPath)
 
	'Loop on all the files and process each of them
	For Each obFile In obFolder.Files
 
		If (StrComp(Right(obFile.Name, 3), "wcl", 1) = 0) AND _
		   (InStr(1, obFile.Name, "_xx", 1) = 0) Then
		    'Wscript.echo obFile.name 'donne le bon nom de fichier
			'Wscript.echo obFolder 'donne le bon chemin mais sans le \ à la fin
 
 
		FSO.Deletefile(obfile.path)
 
		End If
 
	Next
 
	'Loop on all the subfolders and process each of them
	For Each obSubFolder In obFolder.SubFolders
		DeleteOldfiles FSO, obSubFolder.Path
	Next
 
End Sub
 
'Renomme les anciens fichiers sans _XX à la fin et suprime les orriginaux
Sub Renomme_XX (FSO, FolderPath)
 
'Get access to the folder
	Set obFolder = FSO.GetFolder(FolderPath)
 
	'Loop on all the files and process each of them
	For Each obFile In obFolder.Files
 
		If (StrComp(Right(obFile.Name, 3), "wcl", 1) = 0) AND _
		   (InStr(1, obFile.Name, "_xx", 1)) Then
		    'Wscript.echo obFile.name 'donne le bon nom de fichier
			'Wscript.echo obFolder 'donne le bon chemin mais sans le \ à la fin
			'Wscript.Echo obfile.path 'donne le bon chemin
		'Wscript.echo (Len(obfile.path) - 7)
		'FileName = (Len(obfile.path) - 7) & Right(obfile.path, 4)
		'Wscript.echo "nom fichier = " & FileName
		'Wscript.echo obfile.Path
		FSO.CopyFile obFile.Path, Left(obFile.Path, Len(obFile.Path) - 7) & Right(obFile.Path, 4)
		'Wscript.echo "fichier à effacer : " & obfile.Path
		FSO.Deletefile(obfile.path)
 
		End If
 
	Next
 
	'Loop on all the subfolders and process each of them
	For Each obSubFolder In obFolder.SubFolders
		Renomme_XX FSO, obSubFolder.Path
	Next
 
End Sub

**pc75** · 16/10/2012, 11h23

Bonjour,

Code 1 :
En vbs, les variables ne sont pas typées.

Code :

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

1
2
 
Dim intfic

Code 2 :

Code :

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

1
2
3
 
PathFichier = FSO.GetParentFolderName(wscript.ScriptFullName) & "\"
Set f = FSO.OpenTextFile(PathFichier & "Date.txt", ForReading)

**topor** · 16/10/2012, 11h35

Bonjour pc75,

Et merci pour la réponse.

Je vais regarder cela dès que j'ai un peu de temps.
Il me semble tout de même que dans le code 1, la variable intFic est typée en ligne 12 :

Code :

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

1
2
3
 
 
Dim intFic AS Integer

Je vais voir ce qu'il en est pour le code 2

Bonne journée

**topor** · 16/10/2012, 11h47

Mauvaise lecture de ma part .... ok, on ne type pas!!!
Mais cela ne fonctionne toujours pas!
Je test le 2 et reviens
Merci

**topor** · 16/10/2012, 12h19

J'ai pris 5 minutes!!!

pour le code 1:

Si ligne 12 et 13 les deux variables ne sont pas typées (les AS inactivés par '), je reçois alors : ligne 14, car 29, fin d'instruction attendue
Pouvez vous m'en dire un peu plus sur ce point????

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
'Get Application object of the Windows shell.
Set objShell = WScript.CreateObject("Shell.Application")
 
'Ask the user to select a folder
Set obFolder = objShell.BrowseForFolder (0, "Select the folder to process", 1)
'Wscript.Echo obFolder 'réponse ok, medonne le nom du bon répertoire ....
 
Set FSO = CreateObject("Scripting.FileSystemObject")
PathFichier = FSO.GetParentFolderName(wscript.ScriptFullName) & "\"
'Wscript.echo "le chemin est :" & PathFichier 'me donne le bon chemin - la ou se trouve le Script et le fichier Date.txt...!!! OK
 
Dim intfic 'As Integer
Dim LastDate 'As String
Open "PathFichier.Date.txt" for input as intFic
Line Input #intFic, LastDate
Wscript.echo "Date lue" & LastDate
Close intFic

pour le code 2:

Il faut en plus déclarer les constantes ...
le code suivant fonctionne donc bien, merci, et je vais essayer d'avancer avec cela.

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
'Get Application object of the Windows shell.
Set objShell = WScript.CreateObject("Shell.Application")
 
'Ask the user to select a folder
Set obFolder = objShell.BrowseForFolder (0, "Select the folder to process", 1)
'Wscript.Echo obFolder 'réponse ok, medonne le nom du bon répertoire ....
 
Set FSO = CreateObject("Scripting.FileSystemObject")
PathFichier = FSO.GetParentFolderName(wscript.ScriptFullName) & "\"
'Wscript.echo "le chemin est :" & PathFichier 'me donne le bon chemin - la ou se trouve le Script et le fichier Date.txt...!!! OK
 
'Déclaration des constantes (ici valable pour ForReading)
Const ForWriting = 2
Const ForReading = 1
Const ForAppending = 8
 
Set f = FSO.OpenTextFile(PathFichier & "Date.txt", ForReading, True)
LasteDate = f.ReadLine
Wscript.echo "Date lue" & Len(LasteDate) 'me retourne 19 c'est bien le nb de caractère de ma date + heure

Merci pour l'aide

**pc75** · 16/10/2012, 12h59

Re,

Code :

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

1
2
3
4
5
 
Dim intfic 'As Integer
Dim LastDate 'As String
intFic = FreeFile
Open "PathFichier.Date.txt" for input as #intFic

Lecture d'un fichier .txt

VBScript

Vue hybride

Discussions similaires

Partager

Partager