Discussion :

[rikoooo]

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 :

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

[omen999]

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

[rikoooo]

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 :

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

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

[Marc-L]

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, …