Lire et écrire dans un fichier texte d'après une suite logique
Bonjour à tous le monde,
Dans le cadre de création d'add-ons pour un jeu vidéo, je souhaite automatiser certaine actions avec du VBScript.
J'ai un fichier nommé Scenery.CFG dans lequel il y a ceci :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
| [General]
Title=FS9 World Scenery
Description=FS9 Scenery Data
Clean_on_Exit=TRUE
[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
etc
[Area.114]
Title=Propeller Objects
Local=Scenery\Props
Layer=114
Active=TRUE
Required=TRUE
[Area.115]
Title=Addon Scenery
Local=Addon Scenery
Layer=115
Active=TRUE
Required=FALSE |
Vous constaterez que dans ce fichier les sections"[Area.xxx]" démarrent à 001 et se terminent à "[Area.115]" il en est de même pour la clé "Layer="
Ce que je voudrai c'est que le script ajoute une nouvelle section [Area.xxx] avec pour logique +1 au dernier [Area.xxx] du fichier soit dans cet exemple 115+1 = 116 = [Area.116] ainsi que pour "Layer" soit Layer=115+1 donc Layer=116 suivi en dessous par du texte ligne par ligne identique à l’extrait du fichier.
Malheureusement je ne sais pas le faire moi-même, j'ai cherché sur notre amis google des exemples identiques à mon cas, mais cela ne fut pas fructueux.
Merci pour vos lanternes,
Erik