Créer un chemin dynamique sous Guide Entreprise 5.1

Bonjour à tous,

Je suis bloqué et j'ai pensé à vous, mon problème est surement du à la fonction %SUBSTR mais j'arrive pas à comprendre.

Code:

---

1 2 3 4 5 6

* On choisit un répertoire de travail à executer à chaque ouverture de programme; %LET LONGUEUR = %EVAL( %LENGTH(&_CLIENTPROJECTPATH.) - %LENGTH(&_CLIENTPROJECTNAME.) - 1); %PUT La longueur est de &LONGUEUR. ; %LET CHEMIN = %SUBSTR(&_CLIENTPROJECTPATH.,1,&LONGUEUR.) ; %PUT Le chemin du répertoire racine est &CHEMIN. ;

---

Journal

Code:

---

1 2 3 4 5 6 7 8

* On choisit un répertoire de travail à executer à chaque ouverture de programme; 16 %LET LONGUEUR = %EVAL( %LENGTH(&_CLIENTPROJECTPATH.) - %LENGTH(&_CLIENTPROJECTNAME.) - 1); 17 %PUT La longueur est de &LONGUEUR. ; La longueur est de 44 18 %LET CHEMIN = %SUBSTR(&_CLIENTPROJECTPATH.,1,&LONGUEUR.) ; 19 %PUT Le chemin du répertoire racine est &CHEMIN. ; 20

---

Si quelqu'un a une idée sur le sujet.

Merci à tous

Si on enlève la longueur de la chaine à récupérer on obtient bien le CHEMIN.

Code:

---

1 2 3 4 5 6

* On choisit un répertoire de travail à executer à chaque ouverture de programme; %LET LONGUEUR = %EVAL( %LENGTH(&_CLIENTPROJECTPATH.) - %LENGTH(&_CLIENTPROJECTNAME.) - 1); %PUT La longueur est de &LONGUEUR. ; %LET CHEMIN = %SUBSTR(&_CLIENTPROJECTPATH.,1) ; %PUT Le chemin du répertoire racine est &CHEMIN. ;

---

Journal

Code:

---

1 2 3 4 5 6 7 8

* On choisit un répertoire de travail à executer à chaque ouverture de programme; 16 %LET LONGUEUR = %EVAL( %LENGTH(&_CLIENTPROJECTPATH.) - %LENGTH(&_CLIENTPROJECTNAME.) - 1); 17 %PUT La longueur est de &LONGUEUR. ; La longueur est de 44 18 %LET CHEMIN = %SUBSTR(&_CLIENTPROJECTPATH.,1) ; 19 %PUT Le chemin du répertoire racine est &CHEMIN. ; Le chemin du répertoire racine est 'C:\Users\toto\Documents\PROJET_20141125.egp'

---

Donc c'est la longueur qui pose problème visiblement mais je ne sais pas pourquoi.

Help, merci

Hello,
Essaie ceci :

Code:

---

1 2 3 4 5 6

%LET LONGUEUR = %eval(%EVAL( %LENGTH(&_CLIENTPROJECTPATH.) - %eval(%LENGTH(&_CLIENTPROJECTNAME.)) - 1));   %LET CHEMIN = %SUBSTR(&_CLIENTPROJECTPATH.,1,&LONGUEUR.) ;   %PUT Le chemin du répertoire racine est &CHEMIN. ;

---

Bonjour,

1/ Utilise %QSUBSTR au lieu de %SUBST
2/ Les macros variables automatiques _CLIENTPROJECTPATH et _CLIENTPROJECTPATH ont leur valeurs entre côtes, attention au résultat ...

Code:

---

1 2 3 4

%LET LONGUEUR = %EVAL( %LENGTH(&_CLIENTPROJECTPATH.) - %LENGTH(&_CLIENTPROJECTNAME.) - 1); %PUT La longueur est de &LONGUEUR ; %LET CHEMIN = %QSUBSTR(&_CLIENTPROJECTPATH.,1,&LONGUEUR) ; %PUT Le chemin du répertoire racine est &CHEMIN ;

---

Bon courage !

Merci ça fonctionne, je n'avait pas penser aux quotes.