SUPPRIMER LA LIGNE NUMERO N D'UN FICHIER TEXTE .TXT

Commentaire de jean_marc_n2 le 21/08/2006 20:01:49

Hello,
quelques conseils pour l'avenir:
- Il est d'usage d'indenter son code, c'est à dire de faire apparaître la structure logique de celui-ci par une utilisation judicieuse des tabulations. Exemple:
For i = 1 to 10
    If condition Then
        ' je suis la
    End If
Next i

- Il est incorrect d'ouvrir un fichier avec explicitement #1, #2, etc. On utilise à la place la fonction Freefile() qui renvoie le prochain numéro libre:
Dim f as Integer
    f = Freefile
    Open "truc.txt" for input as #f
        Line Input #f, szBuffer
    Close #f
- C'est bien d'avoir mis un mini traitement d'erreur dans compte_ligne, mais ça aurait été encore mieux de généraliser à toutes les fonctions
- Quitte à mettre un traitement d'erreur, autant le faire bien et renvoyer des infos utiles pour l'appelant, telles que: Numéro de l'erreur, Description de l'erreur. Libre ensuite à l'appelant d'en faire ce qu'il veut.
- L'utilisation de:
Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonFic = FSys.CreateTextFile(CHEMIN_COMPLET_NOUVEAU_TXT)
est inutile (lent, une référence inutile, peu portable, j'en passe)! Il suffit de faire:
Dim f as Integer
    f = Freefile
    Open CHEMIN_COMPLET_NOUVEAU_TXT For Output As #f
    Close #f
- La Sub suppr_ligne_TXT() serait à mon avis bien mieux en fonction, retournant des infos sur le bon (ou mauvais) déroulement des opérations.

Cordialement,
Jean-marc

Commentaire de econs le 21/08/2006 21:30:16 administrateur CS

Bon, alors il reste deux ou trois choses non mentionnées ci-dessus :


Au moins deux soucis dans la ligne qui suit : Le ° dans le nom de variable et le type Variant (beurk)
Dim N°ligne As Variant
Surtout, quel intérêt de la déclarer Variant si c'est pour la caster juste derrière en Int ?
N°ligne = CInt(N°ligne)


C'est quoi l'intérêt de cette boucle ? Tu affectes, et écrases à chaque tour la variable TEMP ... Le For et le Next peuvent être supprimés, puisque compteur n'est pas utilisé.
# For compteur = 1 To NbOC
# TEMP = Mid(TEMP, InStr(1, TEMP, "\") + 1)
# Next

Ouvrir un fichier temporaire pour le fermer juste derrière ne présente aucun intérêt, puisque tu écris dans ce même fichier quelques lignes en dessous.

La condition
(Not (EOF(1) Or False))
peut se résumer ainsi : (Not (EOF(1)) ... Le False ne sert à rien. (x Or False = x)

C'est rigolo les Then vides ...
If compteur = N°ligne Then Else Print #2, text
Pourquoi ne pas jouer avec la négation de la condition dans ce cas ?
If compteur <> N°ligne Then Print #2, text


Je crois qu'on peut arrêter là d'accabler ce code. Il est très perfectible.
Et déjà présent dans les snippets de codyx.org, en beaucoup moins de lignes :
http://www.codyx.org/snippet_supprimer-ou-plusieurs-lignes-dans-fichier_76.aspx

Commentaire de mortalino le 21/08/2006 23:14:56

Arf, salut Manu, ;)

j'avais pas vu ton lien, c'est bien ce qui me semblait, avec une collection, c'est plus
court. Willy s'est gavé, 20 ou 30 lignes, j'étais loin du compte...
++

Commentaire de econs le 22/08/2006 07:31:35 administrateur CS

Et oui, 18 lignes, pas de fioritures ... il pouvait même faire moins, mais çà aurait été moins lisible.

Commentaire de MrJava_Javaman le 22/08/2006 12:50:34

*** c'est la premiere commentaire pour maoi dans ce site  :)
Alors j'utilise une fonction dans un "DLL" depuis longtemps je crois q'elle est tres utile .. elle a une maniere differente d'effacer une ligne mais elle peux etre redefiner d'une autre maniere ;
Ce que tu dois faire est d'ecrire ce ligne dans ton programme :

# a.dlLigne FILE_PATH, data_I_want_to_del,, len(data_I_want_to_del)

ensuite le "DLL" (ou le module comme tu veux) contient ces petites lignes :

01# Private Function gtLignCount(ByVal path as String) As Integer
02# Dim tmp As String
03# Open path For Input as #1
04# Do Until Eof(1)
05#    Line Input #1, tmp
06#    gtLignCount = gtLignCount + 1
07# Loop
08# Close #1
09# End Function

10# Function dlLigne(ByVal path As String, _
                     ByVal data As String, _
                     Optional SelStart As Byte = 1, _
                     Optional SelLen As Byte)
11# Dim txtArr() As String, i as Integer
12# ReDim txtArr(gtLignCount(path)) As String
13# Open path for Output As #1
14# For i = 0 To UBound(txtArr)
15#    If Mid(txtArr(i), SelStart, SelLen) = data Then i = i + 1
16#    Print #1, txtArr(i)
17# Next i
18# Close #1
19# End Function
20# 'By MrJava (Amahdy).

Remarques:
-"SelStart" et "SelLen" sont utilise pour savoir ou ce trouve le "data" donne ..
par exemple si le ligne contien un date puis un nom et je veux efface ce ligne quand je ne sais pas le date ;
du maniere si le ligne  est comme ca :
21/10/2005_02:10:07 username=MrJava password=123
et bien sure je ne sais pas le password ou le date exactement mais je veux suprimer le user MrJava alors la fonction soit utilise comme ca :

# a.dlLigne FILE_PATH, "MrJava", 30, 6

-"SelStart" et "SelLen" sont en type "Byte" car un ligne peux pas contenir plus que 255 caractere tandis que "gtLignCount" est du type "Integer" ou si c'est plus large tu peux utilise "Long" .

***Excuser moi si j'ai fautes d'orthographe , je suis egyptien et pas d'une pays francaise ..

Commentaire de jadot le 28/08/2006 08:49:53

Salut,

Pourquoi utiliser un fichier temporaire ?
On peut garder le tout en memoire dans un buffer et réécrire dans le fichier d'origine !

PS : A tout ceux qui comptent le nombre de lignes. Ce n'est pas le nombre de lignes qui fait la qualité d'un code, si on supprime les commentaires ca fait moins de lignes mais ce n'est pas pour ca que c'est meilleur (que du contraire) ;-)