modifier fichier texte

Version imprimable

02/12/2008, 14h03
Emcy

modifier fichier texte

Bonjour,

j'ai des fichiers dans un répertoire.
Je voudrai éditer tous les fichiers .txt en supprimant toutes les tabulations et en supprimant les espaces en fin de ligne.
=> comment faire (avez-vous de petits exemples de code qui manipulent des fichiers txt ?) ?
02/12/2008, 17h17
Pol63

un streamreader pour lire
un string.relace puis un streamwriter pour écrire

y a des tas d'explique sur le forum
02/12/2008, 18h42
tomlev

:faq:
http://faqvbnet.developpez.com/?page...adwritetxtfile

Quel boulet, j'ai oublié la FAQ :sm:

par contre j'ai une erreur sur mon replace :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Imports System.IO ' réduit la taille d'un fichier .htm Sub FichierTexte(ByVal NomFichier_in As String, ByVal NomFichier_out As String) Dim sr_in As StreamReader Dim sw_out As StreamWriter Dim sLine As String sr_in = New StreamReader(NomFichier_in) ' ouverture du fichier sw_out = New StreamWriter(NomFichier_out) ' création d'un nouveau fichier sLine = sr_in.ReadLine() ' lecture de la première ligne While Not sLine Is Nothing ' on balye tout le fichier sLine = sr_in.ReadLine() ' lecture d'une ligne sLine = sLine.Replace(" ", "") ' supprime les tabulations sw_out.WriteLine(sLine) ' écriture de la ligne modifiée End While sr_in.Close() ' fermeture du fichier sw_out.Close() ' fermeture du fichier End Sub
Citation:

Exception System.NullReferenceException was thrown in debuggee:
Object reference not set to an instance of an object.

=> les tabulations sont bien supprimées mais ça bug à la 548 ligne (il y a encore des lignes après)
=> aussi mes é majuscules sont remplacés par un caractère en forme de carré :( (mon fichier est encodé en AINSI)
=> ça vient de quoi ?

aussi comment fait-on pour :
1- supprimer les espaces uniquement en fin de ligne
2- fusionner deux lignes

03/12/2008, 10h43
nikoko34

Bonjour,

Comme tu n'as pas mis les 548 lignes de code, on peut pas trop savoir où le bug survient... :mrgreen:

Pour supprimer les espaces uniquement en fin de ligne, utilise la méthode Trim sur ta chaine de caractère (je crois me rappeler qu'il y a le left Trim et le right Trim).

Pour la fusion, l'opérateur & entre deux chaine devrait faire l'affaire (ca doit être aussi dans la FAQ).

Il y a plusieurs problèmes dans ton code...
- Déjà tu sautes la 1ere ligne, et tu remplaces la valeur de sLine aussitôt après avoir testé qu'elle n'est pas nulle :
Code:

1 2 3 4 sLine = sr_in.ReadLine() ' lecture de la première ligne While Not sLine Is Nothing ' on balye tout le fichier sLine = sr_in.ReadLine() ' lecture d'une ligne sLine = sLine.Replace(" ", "") ' supprime les tabulations
Donc tu manipules la valeur récupérée par le 2e ReadLine, et "perdant" le 1er. En plus, quand tu arrives à la fin du fichier, sLine vaut Nothing, et tu le manipules sans l'avoir testé. Il faut donc placer le 2e ReadLine à la fin de la boucle, pas au début.

- " " n'est pas une tabulation, c'est juste 3 espaces... le caractère tabulation est la constante vbTab. Après, je ne sais pas, tu veux peut-être supprimer les espaces...

Citation:

=> aussi mes é majuscules sont remplacés par un caractère en forme de carré (mon fichier est encodé en AINSI)

Euh... ASCII tu veux dire ? Le é majuscule n'est pas un caractère ASCII (le é minuscule non plus d'ailleurs). A mon avis ton fichier est plutôt en ISO-8859-1 (le plus "classique" sous Windows) ou en UTF-8. De toutes façons, vu que tu ne précises pas l'encodage pour le StreamReader et le StreamWriter, c'est l'encodage par défaut qui est utilisé. Essaie de passer différents encodage en paramètres des constructeurs de StreamReader et StreamWriter.

Citation:

aussi comment fait-on pour :
1- supprimer les espaces uniquement en fin de ligne

Code:

sLine = sLine.TrimEnd();

Citation:

2- fusionner deux lignes

Stocke la ligne courante dans une variable, et à l'itération suivante de la boucle, concatène avec la nouvelle ligne. Ensuite, écris le résultat dans le fichier de sortie.

merci beaucoup ça m'a permis de bien avancé mais j'ai toujours quelques problèmes.

Peut-on récupérer l'encodage du fichier d'entrée automatiquement pour pouvoir l'utiliser dans le fichier de sortie ?

j'ai essayé ça mais ça ne fonctionne pas :
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 ' réduit la taille d'un fichier .htm Sub FichierTexte(ByVal NomFichier_in As String, ByVal NomFichier_out As String) Dim sr_in As StreamReader Dim myEncoding As System.Text.Encoding Dim sw_out As StreamWriter Dim sLine As String sr_in = New StreamReader(NomFichier_in, true) ' ouverture du fichier myEncoding = sr_in.CurrentEncoding ' récupère l'encodage du fichier source msgbox(myEncoding.EncodingName) sw_out = New StreamWriter(NomFichier_out, false, myEncoding) ' création d'un nouveau fichier sLine = sr_in.ReadLine() ' lecture de la première ligne While Not sLine Is Nothing ' on balaye tout le fichier sLine = sLine.Replace(" ", "") ' suppression des tabulations sLine.Trim() ' supprime les espaces en début et fin de chaine If sLine <> "" Then ' écrit la ligne que si elle est vide sw_out.WriteLine(sLine) ' écriture de la ligne modifiée End If sLine = sr_in.ReadLine() ' lecture d'une ligne End While sr_in.Close() ' fermeture du fichier sw_out.Close() ' fermeture du fichier msgbox("Operation terminée") End Sub
=> myEncoding vaut UTF-8 alors qu'il devrait valoir ISO-8859-1. Le format d'encodage est normalement ISO-8859-1 (mais dans notepad++ c'est marqué AINSI).

aussi pour la fusion de lignes : je vais fusionner toutes les lignes de mon fichier text en une seule => donc si j'utilise votre méthode, j'ai peur que ça fasse beaucoup de manipulation de chaine pour rien : n'est-il pas possible de simplement supprimer les caractères de retours à la ligne avant d'écrire dans mon fichier de sortie ?

03/12/2008, 14h31
tomlev

Pour l'encodage je sais pas trop où est le problème...

Citation:

Envoyé par Emcy

aussi pour la fusion de lignes : je vais fusionner toutes les lignes de mon fichier text en une seule => donc si j'utilise votre méthode, j'ai peur que ça fasse beaucoup de manipulation de chaine pour rien : n'est-il pas possible de simplement supprimer les caractères de retours à la ligne avant d'écrire dans mon fichier de sortie ?

Les retours à la ligne sont déjà supprimés, puisque tu utilises ReadLine
Pour concaténer toutes les lignes, en fait il suffit d'utiliser Write à la place de WriteLine...
04/12/2008, 09h00
Emcy

ok, maintenant c'est bon pour la fusion des lignes.
Personne n'a de solution pour mon problème d'encodage de mes fichiers ?

Actuellement j'écris directement mes données dans un fichier : existe t-il un moyen des faire un fichier temporaire stocké en RAM dans lequel je fais mes modif et qu'a la fin seulement j'écris dans le fichier de sortie (avec le mêm genre de méthodes qe StreamWriter) ?