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

[ProgElecT]

Salut

Remplacer la ligne 13 par

Code :

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

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

[rikoooo]

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

[omen999]

surtout que mon code était un bel exemple de ce qui arrive
lorsqu'on néglige les effets du transtypage implicite de vbscript...
(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