[FSO] Effacer une ligne dans un fichier

Existe-t-il une commande permettant cela ? S'il n'y en a pas, je pense récupérer le contenu de mon fichier dans un tableau (décomposition en ligne) puis réécrire ce fichier sans la ligne en question... mais c'est pas très élégant :(

Voyez vous une meilleure méthode ?

Salut,

Ce n'est malheureusement pas possible. Tu es obligé de récupérer tout le texte et de le traiter. Ta méthode est plutôt élégante je trouve!
Mon ASP commence à ce se faire vieux mais je suis quasi certain de ce que j'avance.

ok, merci ! Tu as sans doute raison.

:merci:

Voici la fonction que j'ai écrite afin d'effacer une ligne donnée d'un fichier.
- On récupère les lignes dans un tableau
- 1ère boucle: on efface les lignes du tableau concernées et on compte les lignes effacées
- On créé un 2ème tableau à la bonne taille (grace au compteur de lignes effacées)
- 2ème boucle: on recopie les valeurs du 1er tableau dans le 2ème tableau avec 2 incrémentations de variables différentes
- 3ème boucle: on recopie les lignes du 2ème tableau dans le fichier

Code:

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
33
34
35
36
37
38
39
40
41
42
'	*** DeleteLine ***
'	Paramètres: pointeur vers le fichier, contenu de la ligne à effacer
'	Valeur retournée: aucune
'	Rôle de la fonction: effacer une ou plusieurs lignes du fichier
Function DeleteLine (file,line)
	Dim data : data = GetFileContent (file)
	Dim data2
	Dim i,j,cpt : cpt = 0 : j = 0
	For i=0 To UBound(data)-1
		If data(i)=line Then
			data(i)=""
			cpt = cpt + 1
		End If
	Next
	Redim data2(UBound(data)-cpt)
	For i=0 To UBound(data)-1
		If data(i)<>"" Then
			data2(j)=data(i)
			j = j+1
		End If			
	Next
	Dim selectionFile : Set selectionFile = fso.OpenTextFile(file,2,False)
	For i=0 To UBound(data2)-1
		selectionFile.writeLine data2(i)
	Next
	selectionFile.close
	Set selectionFile = nothing
End Function
 
'	*** GetFileContent ***
'	Paramètre: pointeur vers le fichier à lire
'	Valeur retournée: tableau contenant les lignes du fichiers
'	Rôle de la fonction: obtenir le contenu du fichier dans un tableau
Function GetFileContent (file)
	Dim fso : Set fso = Server.CreateObject("Scripting.FileSystemObject")
	Dim innerStream : set innerStream = fso.OpenTextFile(file,1,false)
	If Not innerStream.atEndOfStream Then
		Dim dataList : dataList = Split (innerStream.readAll,VbCrLf)
	End If
	Set fso = nothing
	GetFileContent = dataList
End Function

N'hésitez pas à apporter vos remarques/critiques.

Le problème est si ton fichier est volumineux...

Je te conseil de lire les lignes une à une, si la ligne t'interrese, tu la copie dans un fichier tmp, sinon tu ne fait rien. A la fin tu suprime le 1er fuichier et tu renome le tmp...

Si tu trouve LA solution pour éviter un algo de recopie ça m'interrese !

++Floanne.