Discussion :

[Emcy]

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 ?) ?

[Pol63]

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

y a des tas d'explique sur le forum

[tomlev]

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

[Emcy]

Quel boulet, j'ai oublié la FAQ

par contre j'ai une erreur sur mon replace :

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
 
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

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

[nikoko34]

Bonjour,

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

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).

[tomlev]

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 :

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

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...

=> 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.

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

Code :

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

sLine = sLine.TrimEnd();

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.

[Emcy]

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 :

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
 
' 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 ?

[tomlev]

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

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...

[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) ?