ouvrir un fichier en lecture/ecriture

Version imprimable

Bonjour,

Je reviens un peu sur mon ancienne discution , je voudrais savoir si avec du vbscript il été possible douvrire un fichier en lecture ecriture.
car dans mon code je dois l'ouvrir en lecture pour récupéré des info et ensuite ecrire dedans.

je vous remercie

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
34
35
36
37
38
39
40
41
Option Explicit	
Dim oApp,oConn,Chemin_Excel,Chemin_Access,Valeur1,Valeur_Site,Valeur_CRB,Valeur_ETS,Valeur_CRB_A,Valeur_Split,Valeur_SITE_A,Valeur_Ligne,moteur,rs,adOpenKeyset , adLockOptimistic, requete,cpt,f,fso,ts,fileObj
Chemin_Excel = InputBox ("Saisir le chemin du fichier :" )
Chemin_Access=InputBox (" Saisir le chemin de la base de donnée :")
moteur="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
adOpenKeyset=3
adLockOptimistic=3
Set oConn = CreateObject("ADODB.Connection")
oConn.Open moteur & Chemin_Access
Set rs = CreateObject("ADODB.Recordset")
rs.Open "TRANSCO", oConn, adOpenKeyset, adLockOptimistic
Const ForReading = 1,ForWriting = 2,TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Set fso = CreateObject("Scripting.FileSystemObject") 
set fileObj = fso.GetFile(Chemin_Excel)
set f = fileObj.OpenAsTextStream(ForReading, TristateUseDefault)
while Not f.AtEndOfStream 
Valeur_Ligne=f.ReadLine 
Valeur_Split=Split(Valeur_Ligne,";")
Valeur1=Valeur_Split(0)
Valeur_CRB=Valeur_Split(2)
Valeur_SITE=MID(Valeur1,2,6)
'WScript.Echo(Valeur1)

do while not rs.eof
	Valeur_CRB_A= rs("CRB")
	Valeur_Site_A=rs("SITE")
	If (Valeur_Site = Valeur_Site_A) And (Valeur_CRB = Valeur_CRB_A)  then
		Valeur_ETS=rs("ETS")
		'WScript.Echo(Valeur_ETS & "," & Valeur_Ligne)
		 f.WriteLine Valeur_ETS & ";" & Valeur_Ligne
		'f.writeline("imane")
	End if 
	rs.movenext
loop
Wend 
WScript.Echo("Fini")
'fso.close()
'
f.Close()
rs.close

26/01/2010, 14h10
pitchalov

Bonjour,

Beaucoup de questions de ce type ont déjà été posées et résolues sur ce forum.
De plus la FAQ Vbscript est très bien faite pour t'aider à trouver les différentes informations pour faire cela.

Le principe à suivre est :
Ouvrir ton fichier en lecture, et en créer un autre pour l'écriture, ou tu écris dans ton fichier les différentes modifs que tu voulais faire dans le fichier d'origine.
Puis tu fermes tes fichiers et tu remplace l'ancien par le nouveau.

Une 2ème solution serait de stocker toutes tes modifications dans une variable string pour réécrire totalement ton fichier après l'avoir lu.

Bonne continuation.

Je ne suis surment pas tombé dessus alors :?

En tout cas merci pour ta réponse. J''avais plus ou moins essayer de faire ce que tu as décris sans le replacement de fichier mais carement utiliser un autre fichier en ecriture pour les réponse que je veux .

le soucis c'est que je n'arrive pas a ouvrire le fichier une fois le script terminer l'erreur "impossible de lire votre fichier " s'affiche.

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
34
35
36
37
38
39
40
41
42
43
44
45
46
 
 
Option Explicit	
Dim oApp,oConn,Chemin_Excel,Chemin_Access,fsoN,Chemin_Excel_New,Valeur1, fileObjN,Valeur_Site,Valeur_CRB,fs,Valeur_ETS,Valeur_CRB_A,Valeur_Split,Valeur_SITE_A,Valeur_Ligne,moteur,rs,adOpenKeyset , adLockOptimistic, requete,cpt,f,fso,ts,fileObj
 
Chemin_Excel = InputBox ("Saisir le chemin du fichier Excel d'extraction :" )
Chemin_Excel_New = InputBox ("Saisir le chemin du fichier Excel de reception :" )
Chemin_Access=InputBox (" Saisir le chemin de la base de donnée :")
 
Const ForReading = 1,ForWriting = 2,TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0, moteur="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
adOpenKeyset=3
adLockOptimistic=3
 
Set oConn = CreateObject("ADODB.Connection")
oConn.Open moteur & Chemin_Access
Set rs = CreateObject("ADODB.Recordset")
rs.Open "TRANSCO", oConn, adOpenKeyset, adLockOptimistic
 
Set fso = CreateObject("Scripting.FileSystemObject") 
set fileObj = fso.GetFile(Chemin_Excel)
set f = fileObj.OpenAsTextStream(ForReading, TristateUseDefault)
 
' Set fsoN = CreateObject("Scripting.FileSystemObject") 
set fs = fsoN.OpenTextFile(Chemin_Excel_New, ForWriting,True)
 
while Not f.AtEndOfStream 
	Valeur_Ligne=f.ReadLine 
	Valeur_Split=Split(Valeur_Ligne,";")
	Valeur1=Valeur_Split(0)
	Valeur_CRB=Valeur_Split(2)
	Valeur_SITE=MID(Valeur1,2,6)
		do while not rs.eof
			Valeur_CRB_A= rs("CRB")
			Valeur_Site_A=rs("SITE")
			If (Valeur_Site = Valeur_Site_A) And (Valeur_CRB = Valeur_CRB_A)  then
				Valeur_ETS=rs("ETS")
				fs.WriteLine (Valeur_ETS & ";" & Valeur_Ligne)
			End if 
		rs.movenext
		loop
Wend 
WScript.Echo("Fini") 
fs.Close
f.Close
rs.close
WScript.Quit

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
Option Explicit	
Dim oApp,oConn,Chemin_Excel,Chemin_Access,fsoN,Chemin_Excel_New,Valeur1,Valeur2, fileObjN,Valeur_Site,Valeur_CRB,fs,Valeur_ETS,Valeur_CRB_A,Valeur_Split,Valeur_SITE_A,Valeur_Ligne,moteur,rs,adOpenKeyset , adLockOptimistic, requete,cpt,f,fso,ts,fileObj
Chemin_Excel = InputBox ("Saisir le chemin du fichier Excel d'extraction :" )
Chemin_Excel_New = InputBox ("Saisir le chemin du fichier Excel de reception :" )
Chemin_Access=InputBox (" Saisir le chemin de la base de donnée :")
 
moteur="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
adOpenKeyset=3
adLockOptimistic=3
Set oConn = CreateObject("ADODB.Connection")
oConn.Open moteur & Chemin_Access
Set rs = CreateObject("ADODB.Recordset")
rs.Open "TRANSCO", oConn, adOpenKeyset, adLockOptimistic
Const ForReading = 1,ForWriting = 2,TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
 
Set fso = CreateObject("Scripting.FileSystemObject") 
set fileObj = fso.GetFile(Chemin_Excel)
set f = fileObj.OpenAsTextStream(ForReading, TristateUseDefault)
set fs = fso.OpenTextFile(Chemin_Excel_New, ForWriting,True)
 
 
while Not f.AtEndOfStream 
Valeur_Ligne=f.ReadLine 
Valeur_Split=Split(Valeur_Ligne,";")
Valeur1=Valeur_Split(0)
Valeur2=Valeur_Split(2)
Valeur_Site=MID(Valeur1,2,6)
Valeur_CRB=MID(Valeur2,3,4)
 
rs.moveFirst
do while not rs.eof
	Valeur_CRB_A= rs("CRB")
	Valeur_Site_A=rs("SITE")
	If (Valeur_Site = Valeur_Site_A) And (Valeur_CRB = Valeur_CRB_A)  then
		Valeur_ETS=rs("ETS")
		'WScript.Echo(Valeur_ETS & ";" & Valeur_Ligne)
		 fs.WriteLine (Valeur_ETS & ";" & Valeur_Ligne)
	End if 
	rs.movenext
loop
Wend 
 
WScript.Echo("Fini") 
fs.Close
f.Close
rs.close
WScript.Quit

Merci pour votre aide voici le code sans erreur si sa peux aider qqun !!!!