Discussion :

[Furius]

Bonjour à tous

Je voudrai créer un vbs qui agisse sur un fichier.txt pour en supprimer les 5 première ligne, puis supprimer la chaîne Lien interne sur toute les ligne qui suivent, quelqu’un pourrait-il m’aider ?

[DarkVader]

Les régles d'utilisation des forum : les forums sont fait pour poser des questions précises -
pour ce genre de question, il y a les tutoriels : http://vb.developpez.com/cours/#fichiers_bd

[méphistopheles]

à mon avis, il faut que tu copie le texte à partir de la ligne 6 puis que tu le réécrive.

pour écrire dans un txt , regarde dans la faq à output et binary.

salut

[Furius]

Bonjour et merci

Donc je vois qu'il faut dabord que j'ouvre le fichier, j'ai trouver ceci:

Code :

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

1
2
3
4
5
6
Const ForReading = 1, ForWriting = 8 
  Set FichierTXT = WScript.CreateObject("WScript.Shell") 
   Dim fso, f 
   Set fso = CreateObject("Scripting.FileSystemObject") 
   Set f = fso.OpenTextFile("downloads.txt", ForWriting,true) 
   FichierTXT=Replace(curfile,"Lien interne", "")

Pensser vous que s'est un bon debut ?

[DarkVader]

Comme quoi quand on fait l'effort de chercher par soi-même on peut trouver.
Ne reste plus qu'à avoir un peu de persévérance pour tester le code
afin de savoir par toi-même si «c'est un bon début».

[Furius]

Bonjour DarkVader

Je viens de tester mais cela ne fonctionne pas.