Bonjours a tous,

je suis entrain de travailler sur un script vbs qui lit un fichier texte déjà créer puis il crée un autre fichier texte avec les lignes du premier fichier classer par ordre alphabétique, exemple :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
contenu du premier fichier.txt :
reseau,ipesec,.....,....
cisco,chap1,....,.....
le script vbs va lire chaque ligne est les remettre par ordre alphabétique dans un autre, donc le contenu du deuxième fichier.txt va etre :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
cisco,chap1,....,.....
reseau,ipesec,.....,....
ici le code que j'ai crée,
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Option Explicit
Dim objFichier, MyFile,File
Const Lire = 1
'**************************
' Creation objet lire
Set objFichier=CreateObject("Scripting.FileSystemObject")
 
'************************** 
Set MyFile= objFichier.OpenTextFile("fichier.txt",Lire)
 
Set File= objFichier.OpenTextFile("fichier2.txt",8, True)
 
Dim ligne,i,a,x
DO WHILE NOT MyFile.AtEndOfStream 
Ligne = myfile.readline
a=Split(ligne,chr(44),4)
for each x in a
wscript.echo x
File.Write x & chr(44) 
next
LOOP 'fin lire
MyFile.Close
WScript.quit 0
Donc j'ai réussi a récupérer les valeurs séparé par "," dans le premier fichier.txt et de les mettre dans x grâce a la fonction split pour les avoir comme sous forme de variables pour pouvoir les classé.

Mon premier problème c'est que je n'arrive pas a écrire les valeurs dans x, ligne par ligne, 4 par 4, ils sont mit sur la même ligne...

Deuxième problème : comment faire le tri alphabétique a l'aide de la première valeur de chaque ligne ?
Quelqu'un peut m'aider
note je débute avec vbscript,
merci d'avance