Discussion :

[clemasson]

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

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

Merci

[clemasson]

Mon pb est résolu,

cause du pb : Input / Line Input

pour info mon nouveau code :

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