Discussion :

[Ma_Mariem]

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

[Invité]

Bonjour,

Une solution possible avec une fonction

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
Function TexteSansCaracteresBlancs(TexteAVerifier As String)
 
Dim CtrI As Integer
 
  TexteSansCaracteresBlancs = ""
  For CtrI = 1 To Len(TexteAVerifier)
    Select Case Mid(TexteAVerifier, CtrI, 1)
 
        Case Chr(32), Chr(160)
 
        Case Else
 
            TexteSansCaracteresBlancs = TexteSansCaracteresBlancs & Mid(TexteAVerifier, CtrI, 1)
 
    End Select
 
  Next CtrI
 
End Function

Et pour essayer la fonction

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub EssaiTexteSansCaracteresBlancs()
 
        Dim Var1 As String
 
        Var1 = "AAAAA BBBBB CCCCC"
 
        Var1 = TexteSansCaracteresBlancs(Var1)
        MsgBox (Var1)
 
End Sub

Cordialement.

[Ma_Mariem]

Merci Eric pour ta solution.

Toutefois, je suis navrée de te dire qu'elle ne fonctionne pas sur ma variable. En effet, elle ne supprime les espaces ni au milieu ni à la fin de ma chaîne Var1 !!

Peut être qu'elle a donné le résultat escompté sur la chaîne "AAAAA BBBBB CCCCC" puisque c'est une chaîne simple c'est à dire n'est pas de "type utilisateur" comme est le cas de ma chaîne Var1.

Donc si tu vois une autre issue à ce problème, n'hésite pas à me la communiquer

[garn]

Bonjour,

tu as essayé les deux, trim et replace ?

[Ma_Mariem]

oui gran, j'ai essayé le trim et le replace mais en vain !!
en effet, ma chaîne est extraite à partir d'un fichier texte et elle est de la forme suivante:
var = "personne ( " _
& "Alain : homme;" & vbLf _
& "Alex : homme;" & vbLf _
& "Marie : femme;" & vbLf _
& "Sophie : femme;" & vbLf _
& "jeanne : femme;" & vbLf _
& "paul : homme(0 à 10)" & vbLf _
& ");" & vbLf _
& vbLf _
& vbLf _

et je désire supprimer les espaces à la fin de la chaine.
Merci à l'avance

[Invité]

Et si tu ajoutes Chr(10) dans le 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
17
18
19
20
Function TexteSansCaracteresBlancs(TexteAVerifier As String)
 
Dim CtrI As Integer
 
  TexteSansCaracteresBlancs = ""
  For CtrI = 1 To Len(TexteAVerifier)
    Select Case Mid(TexteAVerifier, CtrI, 1)
 
        Case Chr(32), Chr(160), Chr(10)
 
        Case Else
 
            TexteSansCaracteresBlancs = TexteSansCaracteresBlancs & Mid(TexteAVerifier, CtrI, 1)
 
    End Select
 
  Next CtrI
 
 
End Function

-Que donne le résultat de Var1 avec ce programme ?

-As-tu testé le dernier programme que je t'ai envoyé ?

- Autre question : que doit contenir Var1 pour toi ? Le résultat que tu as envoyé est-il bien le résultat qui doit être modifié par la suite ?


Cordialement.

[Invité]

Code :

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

1
2
Dim Var1 As String
Var1 = Replace("AAAAA BBBBB CCCCC", " ", "")

[Invité]

Peux-tu mettre en ligne un exemple de chaîne ?

Sinon, tu peux tester ce programme pour repérer les codes Chr posant problème. Une fois trouvés, il suffira de les exclure dans la macro de mon premier message en complétant

Code :

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

  Case Chr(32), Chr(160)

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
31
32
33
 
Sub TesterTesterLesCaracteres()
 
  Dim Var1 As String
 
  Var1 = "AA BB CC"
  Call TesterLesCaracteres(Var1)
 
 
End Sub
 
Sub TesterLesCaracteres(TexteAVerifier As String)
 
Dim CtrI As Integer
Dim CtrJ As Integer
 
  For CtrI = 1 To Len(TexteAVerifier)
 
     For CtrJ = 0 To 255
 
       Select Case Mid(TexteAVerifier, CtrI, 1)
 
        Case Chr(CtrJ)
          MsgBox (CtrJ)
        End Select
 
     Next CtrJ
 
  Next CtrI
 
 
 
End Sub

Sinon, met une chaîne en ligne pour qu'on puisse se faire une idée.

Cordialement.