IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

ouvrir un fichier en lecture/ecriture


Sujet :

VBScript

  1. #1
    Membre régulier
    Inscrit en
    Février 2007
    Messages
    239
    Détails du profil
    Informations forums :
    Inscription : Février 2007
    Messages : 239
    Points : 70
    Points
    70
    Par défaut ouvrir un fichier en lecture/ecriture
    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 : 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
    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

  2. #2
    Membre confirmé Avatar de pitchalov
    Homme Profil pro
    Inscrit en
    Avril 2007
    Messages
    340
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 37
    Localisation : France

    Informations forums :
    Inscription : Avril 2007
    Messages : 340
    Points : 582
    Points
    582
    Par défaut
    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.

  3. #3
    Membre régulier
    Inscrit en
    Février 2007
    Messages
    239
    Détails du profil
    Informations forums :
    Inscription : Février 2007
    Messages : 239
    Points : 70
    Points
    70
    Par défaut
    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 : 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
     
     
    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

  4. #4
    Membre régulier
    Inscrit en
    Février 2007
    Messages
    239
    Détails du profil
    Informations forums :
    Inscription : Février 2007
    Messages : 239
    Points : 70
    Points
    70
    Par défaut
    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
     
    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 !!!!

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. ouvrir un fichier en lecture en mode shared
    Par andromeda dans le forum C
    Réponses: 5
    Dernier message: 11/02/2009, 15h42
  2. Ouvrir un fichier en lecture/écriture en C
    Par ali.ensi dans le forum C
    Réponses: 6
    Dernier message: 10/10/2007, 15h02
  3. Fichier en lecture / ecriture
    Par titan_33 dans le forum C#
    Réponses: 4
    Dernier message: 21/05/2007, 14h51
  4. ouvrir le fichier en lecture seule
    Par p'tite Sandrine dans le forum Access
    Réponses: 3
    Dernier message: 22/09/2006, 15h13
  5. [fichier binaire]lecture ecriture dump
    Par parsy dans le forum Langage
    Réponses: 7
    Dernier message: 10/08/2005, 19h40

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo