VBS ré-ordonner les Sections dans un fichier INI

Bonjour,

J'ai besoin d'un code VBS pour lire et écrire dans un fichier INI avec ADODB.Stream, en outre je souhaite ré-ordonner des sections.

Voici le fichier INI :

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 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47

[General] Title=Prepar3D Scenery Description=Prepar3D Scenery Areas Data Clean_on_Exit=TRUE [Area.001] Title=Default Terrain Texture_ID=1 Local=Scenery\World Layer=1 Active=TRUE Required=TRUE [Area.002] Title=Default Scenery Local=Scenery\BASE Layer=2 Active=TRUE Required=TRUE [Area.003] Title=0000 Base Local=Scenery\0000 Layer=3 Active=TRUE Required=FALSE [Area.008] Title=0001 Base Local=Scenery\0001 Layer=4 Active=TRUE Required=FALSE [Area.009] Title=0002 Base Local=Scenery\0002 Layer=5 Active=TRUE Required=FALSE [Area.010] Title=0003 Base Local=Scenery\0003 Layer=6 Active=TRUE Required=FALSE

---

Ce que je souhaite c'est créer un script qui va ré-ordonner la section [Area.XXX], si l'on regarde à [Area.003] on constate que la prochaine section est [Area.008], il y a donc un trou entre 003 et 008, quel est le code qui me permettrait de remettre les sections [Area.XXX] dans l'ordre logique d'une suite numérique ?

Merci beaucoup pour votre précieuse aide.

Re,
Ordonner (Trier) les sections et les renuméroter ce n'est pas la même problématique
S'il s'agit de les renuméroter il faudra obligatoirement utiliser les expressions régulières.
Je n'ai pas le temps de te donner la solution mais vite fait l'analyse devrait
consister à récupérer tous les noms de section que tu retrouveras dans une collection SubMatches
et à renommer leur contenu avec l'indice (corrigé) de l'item.
ex :
SubMatches(0)="Area.001"
SubMatches(1)="Area.003" -> "Area.002" (indice+1)
SubMatches(2)="Area.008" -> "Area.003" (indice+1)

Avec un peu de chance, les éléments de la collection doivent être ramenés dans l'ordre du fichier

Pour t'inspirer il existe un exemple de manipulation des fichier INI dans les contribs
que j'ai oublié de mettre dans la FAQ :mrgreen:

Bonjour omen999,

Merci beaucoup pour l'aide apportée, mais il m'ai extrêmement difficile de me créer mon propre code même avec l'aide de l'exemple de manipulation, je perds énormément de temps quand je suis confronté à une erreur dans le code... Néanmoins, je comprend quand même la substance du code.

En partant du principe que le fichier ini doit être lu et écrit avec ADODB.Stream quel serai le code qui pourrai exécuter la requête ?

Merci mille fois.

J'ai ce code pour lire le fichier ini :

Code:

---

1 2 3 4 5 6 7 8 9

Set IniStream=CreateObject("ADODB.Stream") IniStream.Open Inistream.Charset="_autodetect_all" IniStream.LoadFromFile "scenery.cfg" IniFile=IniStream.ReadText   //le code pour ré-ordonner les sections ici ?   IniStream.Close

---

Bonjour,

utiliser par exemple la collection SortedList, voir l'aide sur MSDN …

___________________________________________________________________________________________________________

Je suis Paris, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …