Discussion :

[Lnmex]

Bonjour,

Je cherche depuis un moment un moyen de m'éliminer des espaces dans un fichier texte, mais mon problème est que ces espaces ne sont pas réguliers.

Je vous met un exemple d'un ligne de mon fichier texte:
" ENERO FEBRERO MARZO ABRIL MAYO JUNIO JULIO AGOSTO SEPT OCTUBRE NOVIEM DICIEM"
(bon là on dirait que c'est régulier mais en réalité non)

Et le code que j'utilise:

Code :

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

1
2
3
4
5
 
Dim MesFila As String
Dim MesDatos As Array
MesFila = Trim(tablaArchivo(nMes))
MesDatos = Split(MesFila, "   ")

Mais au moment de faire la séparation, comme j'ai 2 ou 3 ou plus espaces entre les mois, je ne peux pas récupérer mois par mois...
Avec ce code je récupère:
MesDatos(0) = Enero
MesDatos(1) =Febrero Marzo
Comment je peux enlever ces espaces?... (qui se mélangent des fois à des tab...)

Merci beaucoup!

[nikoko34]

Bonjour,

Une façon de faire (sans doute pas la plus élégante, mais bon...) est d'appeller dans une boucle la méthode Replace(" "," ") sur ta chaine analysée.

Tu remplaces donc 2 espaces par un seul jusqu'à ce qu'une recherche de deux espaces sur ta chaine ne renvoit plus rien (méthode IndexOf). C'est la condition de sortie de ta boucle.

A ce moment là, tu fais un split, avec comme caractère un seul espace et ça devrait le faire...

[Bluedeep]

El mas sencillo aqui es de compactar los espacios encuentrados ... oh pardon
Le plus simple ici est de compacter les blancs redondants à l'aide Replace(" ", " ") que tu appelles récursivement et ensuite d'utiliser split(MyCadena, " ") pour récupérer un tableau des éléments sans les blancs.

[Bluedeep]

Ma réponse s'est croisée avec celle de Nikoko34

[Lnmex]

Gracias

Même si c'est pas super joli ça fonctionne