Le portail francophone de la géomatique

Ltrim$ et Rtrim$ ne supprimerons que les espaces présents devant et derrière la cahine principale mais ne supprimera pas les espaces à l'intérieur de cette chaine.
La méthode consiste à détecter chaque espace dans la chaine et les supprimer.

Dim Chaine_initiale as string
Dim Chaine_traitement as string
Dim Chaine_a_tester as string
Dim position as integer

Chaine_traitement = chaine_initiale
Chaine_a_tester  = ""
Do Until instr(1,chaine_traitement," ")=0
  Position = instr(1,chaine_traitement," ")
  if Position > 1 then
    Chaine_a_tester = Chaine_a_tester & Left$(chaine_traitement,Position-1)
  end if
  if Position < len (chaine_traitement) then
    Chaine_traitement = Mid$(Chaine_traitement,Position+1, len(Chaine_traitement))
  else
    Chaine_traitement = ""
  end if
Loop

En sortie tu obtiendras ta chaine complète sans aucun espace.