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
Merci
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![]()
Partager