Discussion :

[ml71200]

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

Code :

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

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 :

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

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.

[papyxy]

bonjour
voila un moyen :

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
  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

[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

[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?!

[ml71200]

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

En tout cas merci pour tout .

[papyxy]

donc ça fonctionne. Content pour vous

(un petit point serait le bienvenu et passer en mode "résolu")