Discussion :

[dubinc38]

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

[pitchalov]

Bonjour dubinc38.

Il faut que tu lises le fichier ligne par ligne avec la propriété ReadLine de ton fichier texte :

Code :

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

1
2
3
4
 
Do While Not f.AtEndOfStream
  f.ReadLine
Loop

ainsi tu pourras récupérer la ligne que tu veux.

Après si tu sais pas le numéro de ta ligne et que tu veux l'antépénultième, tu as plusieurs solutions.

Tu peux faire l'opération 2 fois en comptant la première fois tes lignes et la deuxième fois en récupérant ta ligne qui va bien.
Tu peux aussi stocker tes lignes dans un tableau de 3 chaines, et récupérer l'antépénultième valeur de ce que t'as écrit.
Il doit aussi y avoir d'autres méthodes, à toi de trouver celle qui te convient le mieux.

Voilà bon courage

[dubinc38]

Tu peux faire l'opération 2 fois en comptant la première fois tes lignes et la deuxième fois en récupérant ta ligne qui va bien.

Tout d'abord merci de ton aide ,

Concernant les 2 fois j ai essayer de faire sa en faisant dans un premier temps lecture complette du fichier pour avoir le nombre de ligne

Puis dans un second temps lecture ligne par ligne avec une comparaison sur la ligne en cours de lecture et la ligne apres laquelle je doit ajouter ma nouvelle ligne

et bien j'obtient une erreur du style depassement de la taille du fichier

[pc75]

Bonjour,

pitchalov t'a donné le point de départ

Code :

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

1
2
3
4
5
6
7
 
i = 0
Do While Not f.AtEndOfStream
   Redim preserve Ligne(i)  
   Ligne(i) = f.ReadLine
   i = i + 1
Loop

Avec ça tu as un tableau de tes lignes et i - 1 correspond au nombre total de lignes de ton fichier.

Donc, tu peux faire un truc comme ça après :

Code :

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

1
2
3
4
5
6
7
 
for j = 1 to i - 1
   if j = 2 then
      ajout de la ligne à insérer
   else
      ajout de Ligne(j)
next

[dubinc38]

ok merci

je vais plancher la dessus et l'adapter à mon probleme

[pitchalov]

je pense que ton problème vient du fait que tu continue à lire le fichier alors que tu es arrivé à la fin : et ouais alors là il aime pas

Si tu utilises cette méthode (je pense pas que ce soit la meilleure, car elle est lourde, j'avais juste balancé une idée), alors il faut que la première fois tu compte le nombre de ligne :

Code :

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

1
2
3
4
5
6
 
i=0
Do While Not f.AtEndOfStream
   f.ReadLine
   i = i + 1
Loop

et que tu fermes ton fichier puis le réouvres (pour le reprendre depuis le début) puis que su récupères ta ligne :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
j=0
Do While Not f.AtEndOfStream
   If j = i Then
     Wscript.echo f.ReadLine
   Else
     f.ReadLine
   End If
   j = j + 1
Loop

Sinon la technique de pc75 est encore une autre méthode, et qui doit aussi très bien fonctionner

[dubinc38]

bonjour tout le monde le newbie vous salut

je suis partit sur la solution proposé par pc75 mais j'avoue que je bloque sur cette maudite dernier ligne je rajoute toujours ma nouvelle ligne apres la derniere.
j'ai fait divers teste et je me rtetrouve soit avec une insertion qui ne se fait plus soit qui se fait à la derniere ligne

Mon code ressemble à sa :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
while Not File.AtEndOfStream 
redim tableau (i)
 Redim preserve tableau(i)  
lignes = File.Readline
tableau(i) = lignes
i = i + 1 
 
'Convertion en minuscule de la ligne avant recherche
lignes = Lcase(lignes)
'----------
' Recherche d'une chaine de caractère dans une phrase + copie du fichier dans le nouveau repertoire
'----------
msgbox i,,objfile.Path
pos=InStr(lignes,schaine)
if pos = 1 then 
      'Ajout de la ligne relative à Proclu01ps
       Set WshShell = WScript.CreateObject("WScript.Shell")
       Set fso = CreateObject("Scripting.FileSystemObject")
       Set fichier = fso.OpenTextFile(objfile.Path,8,true)
       fichier.writeline("Netprinter|\\proclu01ps\"& proclu &"|Y") 
 
   Set FSO = CreateObject("Scripting.FileSystemObject")
   'Copie du fichier
   Set Ftxt = fso.GetFile(objfile.Path)   'Fichier origine
   Ftxt.copy("chemindelacopie") 'emplacement destination
end if 
wend
File.Close
Set File = nothing
End if   
Next
End Function

Si l'un d'entre vous a une idée je suis preneur