Traitement fichier .txt (gestion des '','')

[Résolu]
Signaler
Messages postés
7
Date d'inscription
mardi 28 février 2006
Statut
Membre
Dernière intervention
29 mai 2008
-
Messages postés
7
Date d'inscription
mardi 28 février 2006
Statut
Membre
Dernière intervention
29 mai 2008
-
<hr style= "COLOR: #d1d1e1" size="1" />
<!-- / icon and title -->
<!-- message -->

Bonjour à tous,

Le code ci-dessous permet de supprimer tous les espaces inutiles situés à droite de mon texte (dans le .txt).

Seulement, le problème apparaît dès lors qu'il y a une virgule '','' dans ma chaîne de caractère .

Le résultat c'est que dans mon fichier2 celui sans les espaces, les '','' sont remplacées par des retours Chariots.

D'où vient ce phénomène ? Comment le contourner ?

Mon code
<!-- BEGIN TEMPLATE: bbcode_quote -->

Citation:
Sub Convertion_Omega(AdresseFichier)
'Text1.MultiLine = 1
Open AdresseFichier For Input As #1
While Not EOF(1)
Input #1, a$
Text1 = a$

Open "C:\DumpOmega.txt" For Append As #2
Texte2 = RTrim(Text1)
Print #2, " "; Texte2
Close #2

Wend

Close #1
End Sub

<!-- END TEMPLATE: bbcode_quote -->
Merci

<!-- / message -->

3 réponses

Messages postés
268
Date d'inscription
lundi 9 janvier 2006
Statut
Membre
Dernière intervention
19 janvier 2017
2
Le problème doit venir de l'instruction Input. J'aurais écrit :


Sub Convertion_Omega(AdresseFichier)
       'Text1.MultiLine = 1
       Open AdresseFichier For Input As #1
       Open "C:\DumpOmega.txt" For Output As #2
       Do
            Line Input #1, a$
            Print #2, RTrim(a$)
       Loop Until EOF(1)
      Close #1, #2
End Sub
Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
26
Etudie (aide en ligne) :


les différences existant entre input, Line Input, Print et Write.
Messages postés
7
Date d'inscription
mardi 28 février 2006
Statut
Membre
Dernière intervention
29 mai 2008

Bonjour jperre, bonjour jmfmarques,

mon pb est résolu.

Merci pour votre aide.