regex et VBS

bonjour à tous,
Je cherche à formater un fichier txt afin de le rendre facilement interprétable par Excel; En somme, je dispose d'un fichier txt (issu d'une extraction d'une application) et les données sont séparées par un nombre variable d'espace.
Je cherche donc à remplacer ce nombre variable (de 4 à 18) d'espace par un seul code caractère (";/"). De cette manière Excel pour comprendre le fichier txt en séparer les colones grace au caractère ";/".

J'ai déjà rédigé un script avec l'aide de pusieurs messages du forum, le voici

Code:

---

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

const ForAppending = 8, ForWriting = 2, forReading= 1   Set fsoFichierSource=CreateObject("Scripting.FileSystemObject") Set txt_source=fsoFichierSource.OpenTextFile("fichier-ref.txt", forReading) Set txt_dest=fsoFichierSource.CreateTextFile("fichier-res.txt", ForWtriting)   set regex = new regExp regex.pattern="( ){2,}" 'car il y a des noms et prénoms de personnes qui sont séparés par un seul espace regex.global = true   do while not txt_source.AtEndOfStream   strLigne=txt_source.ReadLine   set Matches = regex.Execute(strligne) For Each Match in Matches RetStr = Match.Value Next strligne= Replace(strligne, RetStr ,";/")   txt_dest.writeline strligne   loop 'fin de la boucle txt_dest.close txt_source.Close msgbox("fin")

---

Le problème est le suivant :
le script ne remplace pas toutes les occurences de plus de 2 espaces dans le fichier; mais en plus lorsqu'il supprime des occurences d'espaces, il lui arrive de ne pas tout prendre :
Par exemple, la chaine de caractère suivante :
"Emet Gest" (il y a 23 espaces entre "Emet" et "Gest") devient "Emet;/ Gest" (il reste encore 7 espaces qui doivent être supprimés entre les deux mots)

quelqu'un pourrait'il m'expliquer la raison de ce résultat? Il y a-t-il un nombre maximum de caractère qui peuvent être détécté par RegEx??

merci d'avance

J'apprécie tes éfforts pour entourer ton code de balise, mais tu as utilisé celle pour les citations. Pour le code, il y a d'autre balises (appuie sur # pour les utiliser). Ce sera pour la prochaine fois :) .
En ce qui concerne ton problème, je pensais à une chose, est ce que tes espaces sont forcément que des espaces, où est ce qu'il peut y avoir des tabulations ou des retours chariots ?
Parce que si oui le problème peut venir de là, et il faudra en tenir compte dans ton expression régulière. :)

Ok, j'essairai me m'en souvenir ;)
Pour ce qui de ta question, il s'agit uniquement d'espaces, et j'ai beau retourner le code dans tous les sens j'obtiens toujours le même résultat!!

RQ :
Après étude, mon match prend bien toutes les occurences d'espace avec leur bonnes longueur, aussi j'ai l'impression que l'affectation de tous les matchs à RetStr pédale un peu dans la choucroute!!

Code:

---

1 2 3 4

set Matches = regex.Execute(strligne) For Each Match in Matches RetStr = Match.Value Next

---

mais je n'arrive pas à vérifier cette impression:?

A y est!!
J'ai un peu plus compris et ai modifié mon de la manière suivante:

Code:

---

1 2 3 4 5 6 7 8

set Matches = regex.Execute(strligne) For Each Match in Matches 'RetStr = Match.Value msgbox Match.Value strligne= Replace(strligne, Match.Value,";/") Next   txt.writeline strligne

---

Ainsi la ligne est modifié pour chaque valeur du match et non uniquement pour sa dernière (RetStr ne possédait que la dernière valeur du match)!

voici un exemple de ligne que je veux tranformer :

Code:

---

N° DONNEE Emet Gest Création Clôture Dest. Act.

---

mais après transformation, j'obtiens cela :

Code:

---

N° DONNEE Emet;/ Gest;/Création;/Clôture;/ Dest. Act.;/

---

Et je n'arrive pas à faire disparraitre les espaces récalsitrants. Existe il un moyen de trier par ordre croissant (ou décroissant) les différentes valeur du Match?

Je pense avoir trouvé ton erreur. C'est à cause du replace.
Ton Matches est une sorte de tableau. Dans ton cas il contient pour chaque case des string consituté d'un ensemble d'espace plus ou moins grand.
Quand tu utilises replace sur ta ligne, imaginons pour une valeur de match qui est égale à 2 espaces, tu remplaces ces 2 espaces par ";\" pour toutes les zones >= à 2 espaces. Donc par exemple aussi pour un esapcement de 8 espaces, qui devient un espacement de 6 espaces.
Du coup lorsque tu recherches une zone de 8 espaces puisque une valeur de match la contient, replace ne remplace rien puisque 6 < 8. Et si par malheur tu n'avais pas à l'origine une zone de 6 espaces, ton fichier modifier contient toujours une zone avec 6 espaces.

Moi j'aurais procédé autrement. Une fois ma ligne récupéré, je l'aurais splitter à l'aide de la fonction VB split (voir faq) et j'aurais récupérer tous les éléments de résultats de split qui contiennent des caractère et non juste des espaces. J'aurais ainsi concaténé ces éléments ensemble en y insérant ";/", me donnant ainsi ma ligne désiré. Puis j'aurais alors remplacé l'ancienne ligne par la nouvelle (ou créé un nouveau fichier qui contiendrais les nouvelles lignes).

Je ne sais pas si j'ai été assez clair ?

Merci beaucoup
je me suis tourné vers ta méthode, qui marche bien mieux!!:D
Pour info voici le code :

Code:

---

1 2 3 4 5 6 7

do while not txt_source.AtEndOfStream   strLigne=txt_source.ReadLine   StrTableau=Split(strLigne , " ") txt_dest.writeline (" "& tab_fin(0) &" "& tab_fin(1) &" "& tab_fin(2) &" "& tab_fin(3) &" "& tab_fin(4)&" "& tab_fin(5)) loop

---

J'ai remplacé mes "/" par des tabulations, plus pratique pour la lecture dans excel!!:P

Mais utilises tu vraiment des fichier .txt pour les ouvrir avec excel ?
Connais tu les fichier .csv ?
Dedans tu y met du texte et c'est reconnu comme fichier devant être ouvert avec excel sous Windows.
Dans c'est fichier tu peux utiliser différent type de séparateur. Moi je les utilises avec comme séparateur ";" : Ainsi chaque élément de ma ligne est dans une colonne séparé. Et bien sur chaque ligne correspond à une ligne sous excel.

effectivement, je ne connaissait pas;
en fait le pourquoi du fichier txt vient du fait que mon fichier de départ est un fichier d'extraction de données en .txt.
Mais effectivement c'est un peu lourd d'ouvrir un fichier .txt avec excel alors si un fichier .csv s'ouvre nickel avec excel...pourquoi pas.
Après le pourquoi de la tabulation pour séparer les colones, c'est parce que dans mes données, il est possible que j'ai des ";" donc ca me fausse toute ma mise en page:(

Ok, les tabulations sont un des separateurs possible pour les fichiers csv.
Par contre je ne me souviens plus de comment les reconnais excel, est ce qu'il met les éléements dans des colonnes séparer.
Essaye et tu verras bien.
SInon je crois que les virgules cela marche aussi