Récupérer le chiffre max d'une variable dans un fichier

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

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

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:

---

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

Joindre le fichier texte source pourrait aider aussi …

bonjour,

mmm ça sent le cheating bot :aie:

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

Code:

---

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

---

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

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:

---

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 :

Citation:

---

[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

Salut

Remplacer la ligne 13 par

Code:

---

If Cint(match.SubMatches(0)) > iBufNum Then iBufNum = Cint(match.SubMatches(0))

---

Merci mille fois "ProgElecT",

C'était effectivement la solution, une simple fonction de conversion de donnée... J'ai passé la nuit à chercher une solution dans le Regex pour rien, mais au moins j'ai appris des choses en regex ces dernières 24h...

Encore merci.

Erik

surtout que mon code était un bel exemple de ce qui arrive
lorsqu'on néglige les effets du transtypage implicite de vbscript... :fessee:
(comparaison chaine/numérique ou chaine/chaine)

il ne fonctionne avec Area que dans la mesure où la valeur numérique
est formatée sur trois chiffres avec d'éventuels zéros non significatifs

heureusement ProgElecT a rectifié tout ça :bravo: