[Vb net] Utilisation Trim et Split

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:

---

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! :)

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...

El mas sencillo aqui es de compactar los espacios encuentrados ... oh pardon :D
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.

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

Gracias :king:

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