VBS problème avec fichier INI

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

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:

---

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)

---

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:

---

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.

ceci devrait "digérer" tous les formats

Code:

---

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

Merci merci merci, c'est parfait omen999.

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

:resolu: :merci: