Discussion :

[brownthefou]

Bonjour à tous,
J'aurais voulu un petit coup de main pour la fonction suivante :

Code :

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

Tableau = Split(arrFileLines(x), Chr(9))

Ce code marche parfaitement mais il m'arrive parfois d'avoir dans mon fichier origine deux tabulations cote à cote pour un soucis de lisibilité.

Comment faire pour réécrire la ligne de code en y rajoutant
"J'aimerai que tu vois si parfois il n'y a pas une autre tabulation à la suite"

[Jean-Philippe André]

salut,

et dans le cas où tu as deux tabulations, tu souhaiterais quel type de comportement dans le code ?

Si tu veux supprimer deux tabulations côte à côte, ca donnerait ca par exemple :

Code :

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

arrFileLines(x) = Replace(arrFileLines(x), Chr(9) & Chr(9), chr(9))

[brownthefou]

Et en fait non, j'ai besoin de garder ces deux tabulations pour un soucis de réécriture sur fichier texte; mais quand je crée mon tableau avec pour délimiteur le Chr(9), j'aimerai qu'il crée les cases normalement avec 2 tabulations.

Par exemple j'ai ceci :

X1 Chr(9) X2 Chr(9) Chr(9) X3

et quand je réécris ce tableau, il me met un espace vide, comme si le "rien" entre les deux Chr(9) était une case !

[Jean-Philippe André]

parce que la fonction split fonctionne comme cela

Qure voudrais-tu avoir à la place ?

[brownthefou]

Je voudrais que mon tableau soit créé normalement avec X1 X2 et X3 qui se suivent meme si parfois les délimiteurs entre ces valeurs changent (Chr(9) ou Chr(9)&Chr(9))

[mercatog]

Utilise une variable intermédiaire comme suggéré par jpcheck

Code :

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

1
2
3
4
Dim Tmp As String
 
Tmp = Replace(arrFileLines(x), Chr(9) & Chr(9), Chr(9))
Tableau = Split(Tmp, Chr(9))

[Jean-Philippe André]

donc tu peux utiliser le bout de code proposé, ca annihile le double tab et le transforme en un seul tab
la fonction split derreire reste identique