Bonjour

Est ce que quelqu'un a une idée comment supprimer les espaces superflus dans ma chaîne de caractères Var1 qui a les caractéristiques suivantes:

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
 
Public Type File
    Header As String
    Body As String
End Type
 
Public Type Body
    BodyName As String
    Comments As String
End Type
 
Dim Var As String
Dim Var1 As String
 
Var = Fun1(ByVal filename).Body  ' tel que Fun1 est une fonction définie as File
Var1 = Fun2(ByVal Var).Comments  ' tel que Fun2 est une fonction définie as File
J'ai essayé le Trim, Rtrim et Ltrim mais ça n'a pas marché !
J'espère avoir été claire en posant ma question donc si quelqu'un peut m'aider, qu'il n'hésite pas