récrire la deuxième ligne 2 d'un fichier

Version imprimable

Bonsoir à tous,
Je débute en vbs.
J'ai le fichier texte suivant (instmod.bat)
Code:

1 2 3 4 5 6 7 8 echo ...... Installation de Firefox ...... start /wait .\firefox\firefox.exe -ms -ira echo ...... Installation de Flash Player pour Internet Explorer ...... start /wait .\flashplayer\fplayer32ie.exe -install echo ...... Installation de Flash Player pour Firefox ...... start /wait .\flashplayer\fplayer32ff.exe -install echo ...... Installation d'Open Office ...... start /wait .\openoffice\setup.exe /qn
Ceci est un exemple et est évolutif.

Je voudrais enlever start /wait à la deuxième mais seulement à cette deuxième ligne.

Je pense que je dois mettre cela au début.
Set modinstmod2 = z.OpenTextFile("./instmod.bat", ForReading)
Set modinstmod3 = z.createTextFile("./instmod2.bat", True, ForWriting)
après je sèche
Cela reviendrait à ne modifier que la ligne n°2 de instmod.bat ainsi j'obtinadrai le résultat suivant et serait donc instmod2.bat
Code:

1 2 3 4 5 6 7 8 echo ...... Installation de Firefox ...... .\firefox\firefox.exe -ms -ira echo ...... Installation de Flash Player pour Internet Explorer ...... start /wait .\flashplayer\fplayer32ie.exe -install echo ...... Installation de Flash Player pour Firefox ...... start /wait .\flashplayer\fplayer32ff.exe -install echo ...... Installation d'Open Office ...... start /wait .\openoffice\setup.exe /qn
Quelqu'un aurait il un solution s'il vous plait.

D'avance merci et bonne soirée.

bonjour
voila un moyen :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
  const    lu    = "instmod.bat"
           ecr   = "instmod2.bat"
 Set        oFso = CreateObject("Scripting.FileSystemObject")
     if not ofso.fileexists(lu) then _
            msgbox "fichier non trouvé",, lu : wscript.quit
  Const ecrire   = 2
             ficl= oFSO.GetFile(lu).path
        Set f    = oFso.OpenTextFile(ficl)
        Set fe   = oFso.OpenTextFile(ecr,ecrire,true)
  do
        l = f.readline
           i=i+1
        if i=2 then l=replace(l,"start /wait","")
            fe.writeline (l)
  loop until  f.AtEndOfStream
  f.Close : fe.close

05/02/2013, 13h59
ml71200

Merci de votre réponse mais votre solution me ssupprime la totalité la ligne 2.
Alors que je voudrais supprimer que start /wait ou bien les 12 premiers caractère de cette ligne en tout cas merci beaucoup de votre aide
05/02/2013, 15h25
papyxy

Je ne comprends pas pourquoi la ligne 2 serait supprimée!
j'ai testé le code avant de vous le fournir et seule la partie non souhaitée est supprimée; le reste est toujours présent?!;)
05/02/2013, 15h38
ml71200

"résolu"

J'ai eu plusieurs problème.
Il fallait que mes fichiers bat soit créer en ascii.
Et pour finir relire son script.
Votre solution est parfaite et vous en remercie.
if i=2 then l=replace(l,"start /wait","") ----> mon erreur était ici j'avais saisire k au lieu de l soit ceci
if i=2 then l=replace(k,"start /wait","")

ce qui avait donc pour effet de me supprimer la deuxieme ligne.
Le problème dans notre cas c'est moi:cry:

En tout cas merci pour tout :ccool:.
05/02/2013, 17h08
papyxy

donc ça fonctionne. Content pour vous:D

(un petit point serait le bienvenu et passer en mode "résolu"):lol:
05/02/2013, 18h10
ml71200

comment passé en mode résolu ?
Et pour le point je vous l'ai fait dans ma réponse précédente non ?
Mon problème était surtout lié à la création de mes fichiers que je ne faisais pas mais je peux vous mettre mon script complet. merci encore pour votre contribution.
05/02/2013, 18h28
papyxy

Excusez moi pour le point (j'avais pas vu):oops:
Pour passer en résolu : c'est en bas de la page un peu à droite (case à cocher verte) :resolu: .:ccool:
05/02/2013, 20h19
ml71200

Ne t'excuse pas :oops: merci pour ta réactivité et ta gentillesse.