Salut tout le monde

Je me confronte à une nouvelle difficulté dont je ne trouve pas de réponse sur le net.
Le but étant de pouvoir ajouter une nouvelle ligne aprés le N° d' une ligne precise.

exemple contenue du fichier texte:

netprinter...a
netprinter...b
netprinter...c

Ajout apres ligne n°2 (le contenue du fichier texte devient)

netprinter...a
netprinter...b
Nouvelle ligne ajouté
netprinter...c

Pour le moment je procede ainsi:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Const ForReading = 1, ForWriting = 2 
Dim oFso, f,insertion
Dim ts, nl
  Set oFso = CreateObject("Scripting.FileSystemObject")
  Set f = oFso.OpenTextFile("c:\testvbs\MIAP21.txt", ForReading)
  ts = f.ReadAll '-- Lit la totalité du fichier
  insertion = f.line -2
  Wscript.echo insertion
  Wscript.echo f.Line    '-- Récupère le nombre de lignes
insertion recoit donc une valeur qui correspond au numeros de la ligne aprés laquel je dois ajouter ma nouvelle ligne(dans tout les cas il s'agit de l 'avant derniere ligne du fichier)

En gros je recherche une methode pour pouvoir

Si N° de ligne en cours de lecture = insertion
Alors
Ajout à la ligne
Fsi

je bloque pour recuperé la valeur de la ligne en cours de lecture


je sais pas si j'ai était bien clair

merci à ceux qui essayerons de m 'aider