"Assembler" des variables et du texte

[Topheur]

Bonjour à tous et à toutes sans oublier gile :P

 

Je cherche à "assembler" des variables et du texte.

 

Pour faire simple, l'utilisateur rentre un Type Appartement (uniquement 1 2 3 4D etc..)

Puis une lettre (ex. A)

et un numéro (ex. 01)

 

;;type APP
 (setq type_APP (getint "\nEntrer le type appartement (1/2/3/4D...) :"))

 ;;nom de l'APP
 (setq lettre_APP (getstring  "\nEntrer la lettre de l'appartement :"))

 ;;numéro APP
 (setq numero_APP (getint "\nEntrer le n° d'appartement :"))

 

Et j'aimerais obtenir dans une variable (nom_APP_COMPLET) avec le format suivant :

T2.A01

T étant du texte rajouter en lisp

2 exemple pour type_APP

. texte rajouter en lisp

A exemple lettre_APP

01 exemple numero_APP

 

J'ai essayer plusieurs code sans succès en partant d'un setq

;;nom de l'app complet
 (setq nom_APP_COMPLET 'T type_APP)

 

J'utilise le résultat dans un bloc avec attribut avec la ligne suivante :

(setpropertyvalue bloc "APP_COULEUR_1" (itoa type_APP))

 

J'ai essayé avec itoa ou sans itoa mais ça ne fonctionne pas.

 

Merci de votre aide.

[x_all]

you hou!!!

j'ai la réponse à une question lisp !!! c'est une première...

Alors la fonction qui t’intéresse c'est (strcat

si je dis pas de boulette, (strcat "T" (rtos type_APP) "." lettre_APP numero_APP )

 

il y a un truc avec le type de la 3eme variable que je verrai plutôt string pour faire "02"

[Topheur]

you hou!!!

j'ai la réponse à une question lisp !!! c'est une première...

Alors la fonction qui t’intéresse c'est (strcat

si je dis pas de boulette, (strcat "T" (rtos type_APP) "." lettre_APP numero_APP )

 

il y a un truc avec le type de la 3eme variable que je verrai plutôt string pour faire "02"

 

Bonjour x_all,

 

Je vais essayé cette piste et je n'y suis pas parvenu car je l'ai mixé avec un setq.

Je te donnerais mon retour dès que j'aurais essayé et si ça marche, je noterais ton pseudo avec celui de gile :(rires forts):

[Topheur]

you hou!!!

j'ai la réponse à une question lisp !!! c'est une première...

Alors la fonction qui t’intéresse c'est (strcat

si je dis pas de boulette, (strcat "T" (rtos type_APP) "." lettre_APP numero_APP )

 

il y a un truc avec le type de la 3eme variable que je verrai plutôt string pour faire "02"

 

Alors x_all, je t'inscrit au panthéon des lispeurs ! :D

 

Tu as résolu mon problème, j'avais bien essayé le setq et le strcat mais je m'étais ' et je n'utilisais pas rtos.

 

En tous cas, ça fonctionne et je te remercie.

 

A bientôt car mais projets ne sont pas terminés :P

[didier]

Coucou

 

Je me permets de te conseiller de traiter les fonctions une par une

Je reviens sans cesse avec mon image de la musique mais faire des gammes est un passage obligé avant d'attaquer les arpèges

 

Amicalement

[Topheur]

Coucou

 

Je me permets de te conseiller de traiter les fonctions une par une

Je reviens sans cesse avec mon image de la musique mais faire des gammes est un passage obligé avant d'attaquer les arpèges

 

Amicalement

 

Bonjour didier,

 

Il est vrai qu'il est plus simple de faire les choses dans l'ordre :)

[DenisHen]

Salut.

 

Je me permets aussi une petite remarque, (getint attend un "integer" et je ne pense pas que "4D" en soit un, dans la phrase :

 

(setq type_APP (getint "\nEntrer le type appartement (1/2/3/4D...) :"))

Ou alors je me plante... :mellow:

[Topheur]

Salut.

 

Je me permets aussi une petite remarque, (getint attend un "integer" et je ne pense pas que "4D" en soit un, dans la phrase :

 

(setq type_APP (getint "\nEntrer le type appartement (1/2/3/4D...) :"))

Ou alors je me plante... :mellow:

 

Tu as parfaitement raison, je l'ai changer par un string.

Au début je n'avais que des 1/2/3 puis les 3D/4D sont arrivées :P

 

Mais bien vu ;)