Discussion :

[rikoooo]

Bonjour,

Je fais face à un souci, j'ai un fichier scenery.cfg qui ressemble à ceci :

[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

...
...
Etc

Ce que je souhaite c'est récupérer en VBS le chiffre MAX de la dernière section [Area.xxx] du fichier scenery.cfg, je n'y arrive pas tout seul, même avec des centaines de recherches sur google je suis bloqué.
Par exemple si il y a [Area.100] [Area.88] [Area.002] [Area.121] [Area.052] le chiffre le plus élevé de [Area.xxx] dans mon exemple est 121, c'est donc ce chiffe dont j'ai besoin.

Je dois faire la même chose avec Layer=xxx

Y a t-il une bonne âme pour me venir aide ? Je vous remercies par avance.

Erik

[Marc-L]

Bonjour, bonjour !

C'est pourtant de niveau débutant et il ne s'agit pas d'une variable !

Poster déjà le code entrepris et préciser la difficulté rencontrée, quel point technique précis …


______________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

[rikoooo]

Bonjour,

Je vous confirme que je suis débutant de chez débutant, ceci explique pourquoi je poste un message sur ce forum.

A l'heure actuelle j'ai seulement un code (trouvé sur google) qui me permet de compter le nombre de fois que Area.xxx apparaît dans le fichier scenery.cfg

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Const ForReading = 1
Set fso = CreateObject( "Scripting.FileSystemObject" )
Set textFile = fso.OpenTextFile( "Scenery.cfg", ForReading )
contents = textFile.ReadAll
textFile.Close
Set rgxp = New Regexp
rgxp.Pattern = "Area."
rgxp.IgnoreCase = True
rgxp.Global = True
Set matches = rgxp.Execute( contents )
Wscript.Echo "Number of Area : " & matches.Count

Malheureusement, cela ne correspond à ce que je cherche, en effet, Area.xxx peux avoir différente valeur numérique qui ne se suivent pas, Area.120 Area.142 Area.56, ce script me retourne 3 au lieu de 142.

Merci pour vos lanternes,

Erik

[Marc-L]

Joindre le fichier texte source pourrait aider aussi …

[omen999]

bonjour,

mmm ça sent le cheating bot

une solution précuite - mais on peut résoudre ton problème avec des patterns différents

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
Const ForReading = 1
Set fso = CreateObject( "Scripting.FileSystemObject" )
Set textFile = fso.OpenTextFile( "Scenery.cfg", ForReading )
contents = textFile.ReadAll
textFile.Close
Set rgxp = New Regexp
rgxp.Pattern = "Area.(\d+)"
rgxp.IgnoreCase = True
rgxp.Global = True
Set matches = rgxp.Execute(contents)
iBufNum=0
For Each match in matches   ' Itère la collection Matches.
If match.SubMatches(0) > iBufNum Then iBufNum = match.SubMatches(0)
Next
wscript.echo iBufNum

[rikoooo]

Re-bonjour,

la solution de omen999 fonctionne parfaitement merci beaucoup ! Ce code (plus fiable que mon code en batch actuel) me sera nécessaire dans le cadre de l'ajout d'une scène dans FSX via un programme d'installation automatique.

Je marque le sujet comme étant résolu,

Merci à tous,

Erik

[rikoooo]

Re-re-bonjour,

Je rencontre encore une petite difficulté, le code fonctionne a merveille pour Aera.xxx, cependant, si je remplace " Aera.xx " par " Layer= " tel que dans le code suivant :

rgxp.Pattern = "Layer=(\d+)"

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
Const ForReading = 1
Set fso = CreateObject( "Scripting.FileSystemObject" )
Set textFile = fso.OpenTextFile( "Scenery.cfg", ForReading )
contents = textFile.ReadAll
textFile.Close
Set rgxp = New Regexp
rgxp.Pattern = "Layer=(\d+)"
rgxp.IgnoreCase = True
rgxp.Global = True
Set matches = rgxp.Execute(contents)
iBufNum=0
For Each match in matches   ' Itère la collection Matches.
If match.SubMatches(0) > iBufNum Then iBufNum = match.SubMatches(0)
Next
wscript.echo iBufNum

Le script me retourne 99 et jamais plus, alors que la valeur maximum de Layer est 120, je suppose qu'il doit y avoir un changement a faire au niveau du Regex pour l'adapter à Layer... ?

Pour rappel voici le contenu du fichier Scenery.cfg :

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

Merci pour votre aide, car je patauge.

Erik