Lire et ajouter des lignes à un fichier texte [Résolu]
CLeBeR_FR
- Messages postés
- 301
- Date d'inscription
- mercredi 22 septembre 2010
- Dernière intervention
- 27 février 2018
- Messages postés
- 301
- Date d'inscription
- mercredi 22 septembre 2010
- Dernière intervention
- 27 février 2018
A voir également:
- Lire et ajouter des lignes à un fichier texte
- Lire et extraire une ligne d' un fichier texte (vbs) ✓ - Forum - Visual Basic 6
- Cmt lire la n-ieme ligne d'un fichier texte ✓ - Forum - C++ & C++ .NET
- Ajouter une ligne dans un fichier - api - Codes sources - Visual Basic / VB.NET (API)
- Lire des quelque ligne dans un fichier texte ✓ - Forum - Python
- MIRC Lire toutes les lignes d'un fichier texte dans une boucle ✓ - Forum - IRC
19 réponses
Meilleure réponse
- Messages postés
- 3244
- Date d'inscription
- jeudi 26 novembre 2009
- Dernière intervention
- 13 décembre 2018
Salut
à tester
à tester
Try
Dim StreamReaderHosts As New StreamReader("C:\Windows\System32\Drivers\etc\hosts")
Dim StreamReaderListe As New StreamReader("C:\Users\Clément\Documents\ListeDeSite.txt")
Dim ligne As String
Dim ligneExistante As String = StreamReaderHosts.ReadToEnd
StreamReaderHosts.Close()
Dim sw As StreamWriter = New StreamWriter("C:\Windows\System32\Drivers\etc\hosts", True)
Do
ligne = StreamReaderListe.ReadLine
'on verifie si ligne n'est pas vide
If ligne = String.Empty Then
sw.Close()
Exit Do
End If
If Not ligneExistante.Contains(ligne) Then
sw.WriteLine(ligne)
End If
Loop Until ligne Is Nothing
StreamReaderListe.Close()
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
a aidé 104 internautes ce mois-ci
- Messages postés
- 3244
- Date d'inscription
- jeudi 26 novembre 2009
- Dernière intervention
- 13 décembre 2018
ou encore une autre solution
Private Sub test()
Dim list1, list2 As New List(Of String)
Try
list1 = File.ReadAllLines("C:\Windows\System32\Drivers\etc\hosts").ToList
list2 = File.ReadAllLines("C:\Users\Clément\Documents\ListeDeSite.txt").ToList
For Each element In list2
If Not list1.Contains(element) Then
list1.Add(element)
End If
Next
File.WriteAllLines("C:\Windows\System32\Drivers\etc\hosts", list1.ToArray)
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Sub Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
a aidé 104 internautes ce mois-ci
- Messages postés
- 14321
- Date d'inscription
- vendredi 14 mars 2003
- Dernière intervention
- 13 décembre 2018
Bonjour,
Io.File.AppendText c'est pas lus pratique ?
Sur quelles lignes ces erreurs ?
v----Signature--------v----------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices.[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : ).[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualBasic (onglet Références dans les propriétés du projet).[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés/list
---
Io.File.AppendText c'est pas lus pratique ?
Sur quelles lignes ces erreurs ?
v----Signature--------v----------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices.[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : ).[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualBasic (onglet Références dans les propriétés du projet).[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés/list
---
- Messages postés
- 301
- Date d'inscription
- mercredi 22 septembre 2010
- Dernière intervention
- 27 février 2018
Salut,
la première erreur est sur la ligne :
La deuxième erreur est sur la ligne :
Que veux-tu dire par utiliser un append (je connais cette fonction) mais ce que je veux dire c'est comment l'utiliserait-tu ? A la place de mon Do ... ?
Merci de ton aide Henry.
la première erreur est sur la ligne :
If Not ligneExistante.Contains(ligne) Then.
La deuxième erreur est sur la ligne :
Dim StreamReaderHosts As New StreamReader("C:\Windows\System32\Drivers\etc\hosts")
Que veux-tu dire par utiliser un append (je connais cette fonction) mais ce que je veux dire c'est comment l'utiliserait-tu ? A la place de mon Do ... ?
Merci de ton aide Henry.
- Messages postés
- 14321
- Date d'inscription
- vendredi 14 mars 2003
- Dernière intervention
- 13 décembre 2018
Bonjour,
Voir :
http://msdn.microsoft.com/fr-fr/library/ms143356%28v=vs.80%29.aspx
Io.File.AppendAllText("C:\Windows\System32\Drivers\etc\hosts","127.0.0.1 ...")
v----Signature--------v----------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices.[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : ).[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualBasic (onglet Références dans les propriétés du projet).[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés/list
---
Voir :
http://msdn.microsoft.com/fr-fr/library/ms143356%28v=vs.80%29.aspx
Io.File.AppendAllText("C:\Windows\System32\Drivers\etc\hosts","127.0.0.1 ...")
v----Signature--------v----------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices.[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : ).[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualBasic (onglet Références dans les propriétés du projet).[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés/list
---
- Messages postés
- 301
- Date d'inscription
- mercredi 22 septembre 2010
- Dernière intervention
- 27 février 2018
Salut Henry,
j'ai procédé avec la fonction que tu m'a conseillé, effectivement ça marche aussi pour le premier coup c'est à dire si j'ajoute une fois tous les éléments d'une liste, tout se passe bien les sites sont bloqués ... Cependant, si j'ajoute une ligne dans ma ListeDeSite, le ou les derniers sites s'ajoutent correctement mais avec un saut de 3 lignes et donc ils ne sont pas bloqués.
Alors d'après moi, il faut que ce code :
puis il faudrait que le dernier site ajouté annule cette action
Tu en penses quoi ?
j'ai procédé avec la fonction que tu m'a conseillé, effectivement ça marche aussi pour le premier coup c'est à dire si j'ajoute une fois tous les éléments d'une liste, tout se passe bien les sites sont bloqués ... Cependant, si j'ajoute une ligne dans ma ListeDeSite, le ou les derniers sites s'ajoutent correctement mais avec un saut de 3 lignes et donc ils ne sont pas bloqués.
Alors d'après moi, il faut que ce code :
Dim StreamWriterSautLigne As StreamWriter = New StreamWriter("C:\Windows\System32\Drivers\etc\hosts", True)
StreamWriterSautLigne.WriteLine(vbNewLine)
StreamWriterSautLigne.Close() ne s'exécute qu'une seule fois juste pour séparer le premier site du 127.0.0.1 localhost
puis il faudrait que le dernier site ajouté annule cette action
Environment.NewLineet d'après moi, cela résoudrait le problème de 3 sauts de ligne.
Tu en penses quoi ?
Try
Dim StreamReaderHosts As New StreamReader("C:\Windows\System32\Drivers\etc\hosts")
Dim StreamReaderListe As New StreamReader("C:\Users\Clément\Documents\ListeDeSite.txt")
Dim ligne As String
Dim ligneExistante As String = StreamReaderHosts.ReadToEnd
StreamReaderHosts.Close()
Dim StreamWriterSautLigne As StreamWriter = New StreamWriter("C:\Windows\System32\Drivers\etc\hosts", True)
StreamWriterSautLigne.WriteLine(vbNewLine)
StreamWriterSautLigne.Close()
Do
ligne = StreamReaderListe.ReadLine
'Dim sw As StreamWriter = New StreamWriter("C:\Windows\System32\Drivers\etc\hosts", True)
If Not ligneExistante.Contains(ligne) Then
IO.File.AppendAllText("C:\Windows\System32\Drivers\etc\hosts", ligne + Environment.NewLine)
'sw.Close()
End If
Loop Until ligne Is Nothing
StreamReaderListe.Close()
Catch ex As Exception
MsgBox(ex.ToString)
End Try - Messages postés
- 301
- Date d'inscription
- mercredi 22 septembre 2010
- Dernière intervention
- 27 février 2018
Salut ShayW,
ton code résout le problème des messages box ainsi que des espaces ! Seul petit problème, la première ligne ajoutée la toute première fois est sur la même ligne que la dernière ligne du fichier hosts. Cependant j'ai pensé à une solution, je fais un StreamWriter qui écris une ligne vide (VbNewLine) et en même temps un fichier texte dans un répertoire quelconque. Le programme avant d'ajouter les lignes vérifie si le fichier texte existe, si oui il n'écrit pas la ligne vide, si non il l'écrit. Je ferai le code quand j'aurai le temps, surement demain puis je le posterai. Si vous avez une idée plus logique et plus simple je suis preneur !
Merci encore !
ton code résout le problème des messages box ainsi que des espaces ! Seul petit problème, la première ligne ajoutée la toute première fois est sur la même ligne que la dernière ligne du fichier hosts. Cependant j'ai pensé à une solution, je fais un StreamWriter qui écris une ligne vide (VbNewLine) et en même temps un fichier texte dans un répertoire quelconque. Le programme avant d'ajouter les lignes vérifie si le fichier texte existe, si oui il n'écrit pas la ligne vide, si non il l'écrit. Je ferai le code quand j'aurai le temps, surement demain puis je le posterai. Si vous avez une idée plus logique et plus simple je suis preneur !
Merci encore !
- Messages postés
- 301
- Date d'inscription
- mercredi 22 septembre 2010
- Dernière intervention
- 27 février 2018
C'est celui que tu m'as passé :
Private Sub test()
Dim list1, list2 As New List(Of String)
Try
list1 = File.ReadAllLines("C:\Windows\System32\Drivers\etc\hosts").ToList
list2 = File.ReadAllLines("C:\Users\Clément\Documents\ListeDeSite.txt").ToList
For Each element In list2
If Not list1.Contains(element) Then
list1.Add(element)
End If
Next
File.WriteAllLines("C:\Windows\System32\Drivers\etc\hosts", list1.ToArray)
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Sub - Messages postés
- 3244
- Date d'inscription
- jeudi 26 novembre 2009
- Dernière intervention
- 13 décembre 2018
tu avais écrit dans le post précedent que le code
marchait
l'avais tu testé
je ne vois pas l'erreur puisque chez moi je n'ai
pas d'erreur
possible que je code avec le framework 3.5 (vb2008) et qu'avec les versions ultérieurs
c'est différent
peut etre ainsi je n'ai pas testé en runtime
je n'ai pas d'erreur de compilation
marchait
l'avais tu testé
je ne vois pas l'erreur puisque chez moi je n'ai
pas d'erreur
possible que je code avec le framework 3.5 (vb2008) et qu'avec les versions ultérieurs
c'est différent
peut etre ainsi je n'ai pas testé en runtime
je n'ai pas d'erreur de compilation
Private Sub test()
Dim list1(), list2() As String
Try
list1 = File.ReadAllLines("C:\Windows\System32\Drivers\etc\hosts")
list2 = File.ReadAllLines("C:\Users\Clément\Documents\ListeDeSite.txt")
For Each element In list2
If Not list1.Contains(element) Then
list1.ToList.Add(element)
End If
Next
File.WriteAllLines("C:\Windows\System32\Drivers\etc\hosts", list1)
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Sub
Parce que maintenant, en plus de fournir le code gratuitement, il faut demander au monsieur pour quel Framework il le veut et le faire pour ce Framework-là et pas un autre. Pourquoi pas le Framework 1.0 Beta, tant qu'à y être ? Ce n'est pas le problème des répondeurs du forum de fournir un code universel gratuit. Ceux qui n'ont pas évolué depuis le Framework 1.0, c'est leur problème, pas le nôtre. Je ne sais pas pour qui ni pourquoi tu as réquisitionné ce code-là et gratuit en plus; mais c'est ton problème de faire évoluer tes clients et pas à nous de faire ton travail.
- Messages postés
- 301
- Date d'inscription
- mercredi 22 septembre 2010
- Dernière intervention
- 27 février 2018
Tu te prends pour qui a parler avec un ton agressif comme tu le fait ? Si il y en a bien un qui peut se plaindre c'est ShayW qui m'a gentillement aidé contrairement à toi qui vient juste pour mettre des commentaires inutiles. De plus nous sommes sur un forum d'entraide graduite donc les membres proposent gentillement de l'aide gratuitement, si tu n'es pas dans cette logique tu n'as rien a faire ici.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.