Discussion :

[rikoooo]

Bonjour,

Je suis débutant en VBS et je suis confronté à un problème que je ne saurai résoudre seul.

Je veux obtenir le nom d'une section à partir de l'une de ses clés, exemple de mon fichier ini :

[Area.104]
Title=Central North America
Local=Scenery\NAMC
Layer=104
Active=TRUE
Required=FALSE

[Area.105]
Title=Eastern North America
Local=Scenery\NAME
Layer=105
Active=TRUE
Required=FALSE

[Area.106]
Title=Western North America
Local=Scenery\NAMW
Layer=106
Active=TRUE
Required=FALSE

Comment je fait pour obtenir [Area.105] si je ne connait que la clés Titre (Title=Eastern North America) ??? A savoir que chaque Titre à une valeur unique, donc cela ne devrait pas être trop compliqué de retrouver le nom de la section qui lui ai propre.

Merci mille fois pour votre aide

[omen999]

bonjour,
la méthode la plus puissante serait d'utiliser les expressions régulières
mais ce n'est pas toujours très intuitif pour beaucoup de scripteurs...
sinon, il y a ce genre de chose (ton exemple a été enregistré dans un fichier "Area.ini")

Code :

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

1
2
3
4
5
6
Dim TitleName
TitleName = Array("Central North America","Eastern North America","Western North America")
IniFile=CreateObject("Scripting.FileSystemObject").OpenTextFile("Area.ini",1).ReadAll
PosEnd=InStrRev(IniFile,"]",InStrRev(IniFile,TitleName(0)))
PosStart=InStrRev(IniFile,"[",PosEnd)+1
Wscript.Echo Mid(IniFile,PosStart,PosEnd-PosStart)

[rikoooo]

Bonjour omen999,

Merci beaucoup pour le code, ça fonctionne parfaitement, néanmoins, serai t-il possible de lire le fichier avec ADODB au lieux de Scripting.FileSystemObject avec le Charset sur "_autodetect_all", en effet le fichier Area.ini est parfois encodé en UTF-16LE ce qui provoque une erreur du script.

Code :

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

1
2
3
4
5
6
7
8
9
Dim TitleName
TitleName = Array("Washington_DC")
IniFile=CreateObject("ADODB.Stream").OpenTextFile("Aera.ini",1).ReadAll
 
IniFile.CharSet = "_autodetect_all"
 
PosEnd=InStrRev(IniFile,"]",InStrRev(IniFile,TitleName(0)))
PosStart=InStrRev(IniFile,"[",PosEnd)+1
Wscript.Echo Mid(IniFile,PosStart,PosEnd-PosStart)

Mon code ci-dessus me retourne une erreur.

Merci pour ton aide.

[omen999]

ceci devrait "digérer" tous les formats

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim TitleName
TitleName = Array("Central North America","Eastern North America","Western North America")
Set IniStream=CreateObject("ADODB.Stream")
IniStream.Open 
Inistream.Charset="_autodetect_all"
IniStream.LoadFromFile "Area.ini"
IniFile=IniStream.ReadText
PosEnd=InStrRev(IniFile,"]",InStrRev(IniFile,TitleName(0)))
PosStart=InStrRev(IniFile,"[",PosEnd)+1
Wscript.Echo Mid(IniFile,PosStart,PosEnd-PosStart)
IniStream.Close

ps : la solution de stackoverflow est vraiment trop verbeuse...

[rikoooo]

Merci merci merci, c'est parfait omen999.

Cela faisait deux jours que j'étais bloqué, c'est la libération.