VBS pour supprimer ligne dans ficher texte

Bonjour,
je cherche un script VBS à lancer sous dos pour supprimer les 3 premières lignes d'un fichier texte.

Merci.

voir :faq:

Je suppose qu'il va te falloir passer des paramètres à ton script :
Comment utiliser les arguments en ligne de commande ?

ensuite tu commence par lire ligne à ligne les 3° lignes de ton fichier :

http://vb.developpez.com/faqvbs/?pag...#fsoLitFichier

sans fermer ton fichier et ensuite tu effectue un ReadALL pour lire et stocker le reste de ton fichier dans une variable.

tu fini par écrire cette variable dans ton nouveau fichier :

http://vb.developpez.com/faqvbs/?page=II.2.4#fsowrite

Je suis vraiment un amateur en vbscript, je sais tout juste adapter un script existant avec mes paramètres.
Avant de poster j'ai utilisé la fonction rechercher pour essayer de trouver un script tout fait mais je n'ai pas trouvé.
Suivant tes conseils j'ai essayé de me lancer comme un grand, mais lorsque je reprends tout simplement le script ici:
http://vb.developpez.com/faqvbs/?pag...#fsoLitFichier
J'obtiens l'erreur suivante:
http://img114.imageshack.us/img114/1457/erreurbl8.jpg

Voici mon script:

Code:

---

1 2 3 4 5 6 7 8 9

Const ForReading = 1, ForWriting = 2 Dim oFso, f   Set oFso = CreateObject("Scripting.FileSystemObject") Set f = oFso.OpenTextFile("C:\temp\suppression\r0.txt", ForReading) while Not f.AtEndOfStream wscript.echo f.ReadLine Wend f.Close

---

Bonsoir,


Qu'elle est ta version de windows?

Bonjour,
Windows XP SP2 en FR.
En cherchant sur Google je suis tombé dur ça, mais marche pas non plus:
http://zebland.free.fr/bdc/modules/n...c_id=8&forum=5

En ligne de commande essaye les choses suivante :

Code:

---

cscript Le_Script_VBS.vbs

---

Code:

---

wscript Le_Script_VBS.vbs

---

Le_Script_VBS.vbs -> représente ton script VBS.
Dis nous si cela fait la même chose avec les deux, et si cela fait toujours la même erreur.

Tu peux aussi essayer :

Code:

---

Set oFso = wscript.CreateObject("Scripting.FileSystemObject")

---

FileSystemObject fait partis de Windows Script Runtime et non Windows Script Host, ce qui est proposé de réinstallé dans le lien que tu as trouvé.
Si les essais précédents ne marche pas, tu peux toujours essayer de réinstaller l'ensemble des outils dont Windows Script Runtime, recgarde ici :
http://www.microsoft.com/downloads/d...displaylang=en

Bonjour et MERCI.
En suivant ta modification ça fonctionne

Code:

---

Set oFso = wscript.CreateObject("Scripting.FileSystemObject")

---

Pour info, voici le script pour supprimer les 3 première ligne d'un fichier texte.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Const ForReading = 1 Const ForWriting = 2   Set oFso = wscript.CreateObject("Scripting.FileSystemObject") Set objFile = oFSO.OpenTextFile("C:\temp\fichier_source.txt", ForReading)   strContents = objFile.ReadAll objFile.Close   arrLines = Split(strContents, vbCrLf)   Set objFile = oFSO.CreateTextFile("C:\temp\fichier_destination.txt", ForWriting)   ' i=3 pour supprimer 3 lignes For i = 3 to UBound(arrLines) - 1 objFile.WriteLine arrLines(i) Next   objFile.Close

---