Discussion :

[cyberneo]

Bonjour a tous,

Mon probléme est assès compliqué a expliquer sur clavier alors n'hésitez pas a me poser des question s'il vous plez.
Donc pour expliquer le probléme posont le sujet:
Ma boite développe un progiciel developpez en java, nous gerons les versions avec subversion.
Ce qui ma été demandé, est de creer un script qui permet de générer une mise a jour entre 2 numéro de révision, cette mise a jour doit etre différentiel.

J'ai creer un script qui permet de gérer une version jusqua un numéro de version "final" donnée, cela me donne a l'emplacement c:\travail\compile\ un dossier vers#### contenant le repertoir projetweb (qui est la mise a jour) et un dossier src qui contient toutes les classes a compiler. Le script gére également la compilation grace a ant, et envoie les fichier compilés dans c:\travail\compile\vers####\projetweb\WEB-INF\sources.
Mon probléme se base sur cette étape donc je m'arrete pour la description du script.
Mon souci est basé lors de la compilation, cette derniere s'effectue bien mais le repertoire src et sont arborescence compléte contient des fichiers properties ou xml a passer egalement dans le dossier sources en respectant l'arborecence du repertoir src*

* exemple src\dossierA\ssdossierb\fichier.poperties
doit etre copier vers vers####\projetweb\WEB-INF\sources\dossierA\ssdossierb\fichier.poperties


je suis trés nul dans la conception des arborescance j'ai besoin de votre aide, j'ai posté trés vite ce sujet car je connais mes limite dans ce type d'algorithme voila mon code pour l'instant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
if fso.folderExists (cheminsrc) then 
	For Each file In fso.GetFolder(cheminsrc).files
		temp = file.name
		extension = right(temp,len(temp)-instr(1,temp,"."))
if ucase(extension) ="XML" or ucase(extension) ="PROPERTIES" then
		arbodest=right(temp,len(temp)-instr(1,temp,"src"))
		arbodestfin= "c:\travail\compile\"$vers&"\projetweb\WEB-INF\sources\"&arbodestfin
shell.run "cp "&file&" " &arbodestfin, 2, true
end if
	next
end if

j'imagine bien passée ce scan en fonction et une autre fonction qui s'amuse a charger les sous dossier, mais croyez moi je cherche mais c'est une philosophie que j'ai du mal a comprendre....
Merci pour votre aide

[cyberneo]

Voila j'ai fini la premiere partie du traitement des fichier, qui est passés sous forme de fonction a appeler, mais mon probléme de comprehension d'arborescance reste sans reponse, qui peut m'aider a creer un prog qui parcour une arborescence et execute cette fonction a chaque niveau afin de tester les fichier.....

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
option explicit
on error resume next
dim cheminsrc
dim dossier 
REM dossier est déterminé plus haut dans le script lors de la construction de la version
dossier = "vers.1.0.3966" 
cheminsrc = "C:\travail\compile\"&dossier&"\src" 
 
copyfile cheminsrc,dossier
 
function copyfile (cheminsrc,dossier) 
dim fso
dim file
dim arbodestfin
dim arbodest
dim extension
dim temp
set fso = wscript.createObject("Scripting.FileSystemObject")
	if fso.folderExists (cheminsrc) then 
		For Each file In fso.GetFolder(cheminsrc).files
			temp = file.name
			extension = right(temp,len(temp)-instr(1,temp,"."))
		if ucase(extension) ="XML" or ucase(extension) ="PROPERTIES" then
			arbodest=right(temp,len(temp)-instr(1,temp,"src"))
			arbodestfin= "c:\travail\compile\"&dossier&"\projetweb\WEB-INF\classes\"&arbodest
			file.copy arbodestfin,true
		end if
		next
	end if
end function