Récupérer le contenu d'un fichier texte et supprimer les lignesRésolu

Question

Bonjour,
je voudrais que mon programme qui dispose d'une liste de site puisse supprimer le contenu de cette liste si les sites sont présents dans le fichier hosts.
J'ai crée ce code mais les lignes ne se suppriment pas.
Si quelqu'un veut bien m'aider !

    Private Sub DebloquerSitesDangereux()
        Dim FichierSiteDangereux As String = ("C:Users\" & System.Environment.UserName & "DocumentsListeDeSiteContenusDangereux.txt")
 
        Dim lines As List(Of String) = System.IO.File.ReadAllLines("C:WindowsSystem32Driversetchosts").ToList
        Dim lignesAsupprimer As String = System.IO.File.ReadAllLines(FichierSiteDangereux).ToString
        ' ne passe pas à la ligne de dessous mais remonte pour traiter le prochain fichier
        For i As Integer = 0 To lines.Count - 1
            If lines(i).Contains(lignesAsupprimer) Then
                lines.RemoveAt(i)
            End If
        Next
    End Sub

Merci !

ucfoutu · Answer

Bonjour,
quand on zigouille, on commence par le bas et on remonte.
Si non : croche-pieds assurés avec les numéros de ligne
l'argument step dans une boucle for, tu connais ? il peut être négatif pour "remonter".

ucfoutu · Answer

http://msdn.microsoft.com/fr-fr/library/vstudio/5z06z1kb.aspx

Utilisateur anonyme · Answer

Salut !
Non je ne connais pas le step, cependant un membre de developpez m'a proposé ce code qui ne fonctionne pas non plus.
Private Sub DebloquerSitesDangereux()
        Dim FichierSiteDangereux As String = ("C:Users\" & System.Environment.UserName & "DocumentsListeDeSiteContenusDangereux.txt")
 
        Dim lines As List(Of String) = System.IO.File.ReadAllLines("C:WindowsSystem32Driversetchosts").ToList
        Dim lignesAsupprimer() As String = System.IO.File.ReadAllLines(FichierSiteDangereux)
        ' ne passe pas à la ligne de dessous mais remonte pour traiter le prochain fichier
        For i As Integer = 0 To lines.Count - 1
            For Each ligneASupprimer In lignesASupprimer
                If lines(i).Contains(ligneAsupprimer) Then
                    lines.RemoveAt(i)
                End If
            Next
        Next
    End Sub

ucfoutu · Answer

Et pour cause !
Il fait la même erreur et se fait les mêmes croche-pieds que toi !
Je t'ai répondu plus haut. A toi de jouer (vraiment simple).

ucfoutu · Answer

Et si cela ne te dit vraiment rien, "CLeBeR", rapporte donc mes propos (mon 1er message) à tomlev... Il devrait alors comprendre et se corriger (j'espère).

Utilisateur anonyme · Answer

J'ai le droit à un Joker ? ahah
J'ai fais comme tu me l'as demandé, je vais de bas en haut, j'utilise aussi l'argument step.
    Private Sub DebloquerSitesDangereux()
        Dim FichierSiteDangereux As String = ("C:Users\" & System.Environment.UserName & "DocumentsListeDeSiteContenusDangereux.txt")

Dim lines As List(Of String) = System.IO.File.ReadAllLines("C:WindowsSystem32Driversetchosts").ToList
        Dim lignesAsupprimer() As String = System.IO.File.ReadAllLines(FichierSiteDangereux)
        ' ne passe pas à la ligne de dessous mais remonte pour traiter le prochain fichier
        For i As Integer = lines.Count - 1 To 0 Step -1
            For Each ligneASupprimer In lines
                If lines(i).Contains(ligneASupprimer) Then
                    lines.RemoveAt(i)
                End If
            Next
        Next

End Sub

J'ai une erreur, ou alors même si je bidouille un peu, les lignes ne se suppriment pas.

ucfoutu · Answer

1) "J'ai une erreur" ne dit pas laquelle, ni sur quelle ligne
2) je t'ai de mon côté signalé l'erreur la plus évidente (la plus grossière) , même sans connaître VB.Net. Le reste m'échappe (je développe sous VB6)

Je remarque  au passage que tu n'as pas suivi (compris ?) le code qui t'a été donné ailleurs.
         For Each ligneASupprimer In lignesASupprimer
                If lines(i).Contains(ligneAsupprimer) Then
                    lines.RemoveAt(i)
                End If
            Next
Mais que tu as laissé la ligne :
  Dim lignesAsupprimer() As String = system.IO.File.ReadAllLines(FichierSiteDangereux)
sans même te servir de lignesAsupprimer

Tout cela (ce copié/collé, de surcroît incomplet) me laisse plutôt coi (comme toujours dans de tels constats).
Bonne chance

ucfoutu · Answer

Et (toujours sans connaître VB.Net) :
Par ton code :
tu modifies la liste Lines alors que tu t'en sers par un for each
Ce n'est pas du tout ce que fait le code qui t'a été donné ailleurs, hein ... 
Avec çà, c'est sur : l'opération d'énumération de cette liste est un peu plus que compromise.
Dors bien quand même.

cs_ShayW · Answer

Salut

Private Sub DebloquerSitesDangereux()
       Dim FichierSiteDangereux As String = ("C:Users\" & System.Environment.UserName & "DocumentsListeDeSiteContenusDangereux.txt")

Dim lines As List(Of String) = System.IO.File.ReadAllLines("C:WindowsSystem32Driversetchosts").ToList

Dim lignesAsupprimer As List(Of String) = System.IO.File.ReadAllLines(FichierSiteDangereux).ToList
        For Each item As String In lignesAsupprimer
            If  lines.Contains(item) Then
                lines.Remove(item)
            End If
        Next
    End Sub

NHenry · Answer

Si j'ai bien compris, ton problème est de lire un fichier, d'en supprimer les lignes présent dans un autre et de l'écrire ensuite ?

Je penses que ceci devrait te donner une piste :
Dim TabSrc ' Lignes sources
Dim TabBan ' Lignes à retirer
Dim lFinalTab=(From lLine in TabSrc Where not TabBan.Contains(lLine)).ToArray

Pour le reste, ReadAllLines et WriteAllLines devront te suffire.
 
On peut discuter avec celui qui sait.
On peut discuter avec celui qui ne sait pas.
On ne peut pas discuter avec celui qui croit savoir.
En VB.NET pensez à activer "Option Explicit" et "Option Strict"

Utilisateur anonyme · Answer

Salut cs_ShayW,
je n'obtiens aucune erreur dans le code mais les lignes ne se suppriment toujours pas.

Salut NHenry,
voilà c'est ça, j'ai un fichier, je veux supprimer certaines lignes de ce fichier même à partir d'un autre fichier.

NHenry · Answer

Avec ReadAllLines, tu récupères les lignes des 2 fichiers (puis tu les mets dans les tableaux adaptés de mon exemple)
La requête de LINQ se charge de faire le ménage
Puis avec WriteAllLines tu écrits le tableau résultat.

Sinon, expliques à quelle étape tu bloques.

cs_ShayW · Answer

Bizarre
j'ai bien testé  les lignes chez moi sont supprimées de la liste lines

si tu lances pas à pas 
le if 
   If  lines.Contains(item) Then
                lines.Remove(item)
            End If
est exécuté  ?

Utilisateur anonyme · Answer

Bonjour NHenry,
j'ai essayé ton code et il y a une erreur sur la ligne Dim TabSrc("C:WindowsSystem32Driversetchosts"), il est impossible de transformer la chaine en integer.

cs_ShayW · Answer

Salut
Dim FichierSiteDangereux As String = ("C:Users\" & System.Environment.UserName & "DocumentsListeDeSiteContenusDangereux.txt")

' Lignes sources
Dim TabSrc() as string = System.IO.File.ReadAllLines("C:WindowsSystem32Driversetchosts")
 ' Lignes à retirer
Dim TabBan() as string = System.IO.File.ReadAllLines(FichierSiteDangereux)

Dim lFinalTab=(From lLine in TabSrc Where not TabBan.Contains(lLine)).ToArray

Récupérer le contenu d'un fichier texte et supprimer les lignes

15 réponses

Votre réponse

Discussions similaires