Discussion :

[benhsaien]

Bonjour les amis,

Comment faire pour supprimer la dernier ligne dans un fichier .txt.(supprimer la ligne définitivement pas seulement le contenu de la ligne)

Car je fait l'enregistrement des donner dans un fichier .txt et automatiquement il ajoute une ligne vide a la fin du fichier.

(sinon si il y'a une possibilité de comparer 2 fichier .txt et ignorer les ligne vide qui ce trouve a la fin du fichier)

Merci.

[hackoofr]

Est-ce-que vous pouvez nous poster votre code et

[benhsaien]

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
Sub IgnoreTxtTag(LineNumber,TagNumber,OutFilePath,RefFilePathName)
'	============================Read Line In New file txt
	LineNumbers=CLng(LineNumber)
	wait 1
 
	FilePath=OutFilePath&Environment("FileNameTXT")
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objTxtFile = objFSO.OpenTextFile(FilePath)
 
    i=0
	Do
		sContent = objTxtFile.ReadLine
		i = i+1
	Loop While i<LineNumbers
'	============================Get Value
	MonTableau = Split(sContent,"|")
	ValueTag= MonTableau(CLng(TagNumber)-1)
'	============================Replace value In Reference File .txt 1.read line refrence 2.replace value  
	FilePath=RefFilePathName
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objTxtFile = objFSO.OpenTextFile(FilePath)
    i=0
	Do
		sContent_Ref = objTxtFile.ReadLine
		i = i+1
	Loop While i<LineNumbers
'	============================traitement sur la ligne substring
	MonTableau = Split(sContent_Ref,"|")
	strNewLine= Replace(sContent_Ref ,MonTableau((CLng(TagNumber))-1),ValueTag)
	'	============================Update Ligne In reference File
	set objWS = CreateObject("Wscript.Shell") 
	Set fsob=CreateObject("Scripting.FileSystemObject")
 
	strFileName = RefFilePathName
	Set objFS = CreateObject("Scripting.FileSystemObject") 
	Set objTS = objFS.OpenTextFile(strFileName, 1) 
	strContents = objTS.ReadAll 
 
	'CountLine= objTS.Line
	'CountLastLine=2
 
	objTS.Close 
 
	arrLines = Split(strContents, vbNewLine)
	Set objTS = objFS.OpenTextFile(strFileName, 2) 
 
	For Each strLine In arrLines
 
	If strline = arrLines((CLng(LineNumber))-1) then
 
	objTS.WriteLine strNewLine
	else
	objTS.WriteLine strLine
	'If  CountLastLine<CountLine  Then
	'objTS.WriteLine strLine
	'End If
 
End If
	'CountLastLine=CountLastLine+1
	Next
	'remove last ligne ??
	wait 1
	End Sub

[benhsaien]

le problème ces que lors de l'enregistrement il ajoute une ligne vide a la fin du fichier .txt

la solution ces de comparer 2 fichier .txt sans compter les ligne vide(ligne vide ignoer)

exemple :

Fichier 1 :

Code :

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

1
2
3
4
5
 
TEXT1
TEXT2
TEXT3
TEXT4

Fichier 2 :

Code :

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

1
2
3
4
5
6
7
 
TEXT1
TEXT2
TEXT3
TEXT4
(ligne vide)
(ligne vide)

une suggestion ?

[tsuji]

Si vous permettez, je voudrais répondre avec une solution à la façon que j'ai posté dans une autre postage du même op:
http://www.developpez.net/forums/d13...e/#post7508895
en utilisant les même conventions. Il suffit de change le pattern de regexp et la ligne fonctionel de rx.replace() comme ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
set rx=new regexp
with rx
    .pattern="^([\s\S]*)(\r\n.*)$"
    '.multiline=false    'pas absolument nécessaire
end with
 
if rx.test(s) then
    t=rx.replace(s, "$1")
else
    t=s	'ne faites rien comme le fichier pourrait être vide
end if

Et c'est fait.

Ce qui est intéressant c'est que vous pouvez poser les deux questions ainsi que les deux fonctionalités recherchées en même temps et avoir la solution tombée dans le même esprit.

Dites, on veut remplacer certaine ligne et en même temps faire disparaître la dernière lign d'un fichier. Une condition naturelle devrait imposer: c'est que la ligne qui va être remplacer ne devrait être pas la dernière ligne, sinon, on ne sait quoi faire sans précision supplémentaire.

Voilà comment c'est fait avec les notions utilisées dans l'autre question le hyperlien a indiquée

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
line_number=3
replacement_line="xyz"
 
set rx=new regexp
with rx
    .pattern="^((.*\r\n){" & (line_number-1) & "})((.*)(\r\n))(([\s\S]*)(\r\n))?(.*)$"
    '.multiline=false    'pas absolument nécessaire
end with
 
if rx.test(s) then
    t=rx.replace(s, "$1" & replacement_line & "$5$7")    'avec $5$7$8$9 la dernière ligne est restorée
else
    t=s    'ne rien faire comme la fonctionalité est ambigue
end if

Et c'est fait.

[benhsaien]

Merci, mais le mieux ces de trouver un traitement pour supprimer la dernier ligne (je peux boucler jusqu’à la dernier ligne mais il me faut une fonction du genre RemoveLigne

[ProgElecT]

Salut

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
Const ForReading = 1, ForWriting = 2
Dim oFso, f
Dim ContenuLgn
Set oFso = CreateObject("Scripting.FileSystemObject")
 
'Ouverture et lecture du fichier
	Set f = oFso.OpenTextFile("C:\PersoFrancis\test.txt", ForReading)
        'recuperation d'un tableau de x lignes
        ContenuLgn = Split(f.ReadAll, vbNewLine)
        f.Close
 
        'réouverture du fichier en ecriture
        Set f = oFso.OpenTextFile("C:\PersoFrancis\test.txt", ForWriting)
        'supprime le dernier indice du tableau
	ReDim Preserve ContenuLgn(UBound(ContenuLgn) - 1)
        'réécriture du fichier
        f.Write Join(ContenuLgn, vbNewLine)
        f.Close

Cela devrait te permettre de créer ta fonction RemoveLigne

[benhsaien]

Merci ProgElecT Mais au niveau de la ligne 13 je recoi un erreur :

Code :

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

Permission refuser

une idée ?

[tsuji]

Permission refuser

Peut-être vous devriez s'assurer que le fichier n'est pas ouvert pas quelque logiciel qui le verrouille. (Je suppose que le fichier ne soit pas conditionné 'read-only', bien entendu.)