Annonce
#1 Wed 24 June 2009 16:08
- Jaq
- Participant occasionnel
- Date d'inscription: 27 May 2008
- Messages: 23
Etiquetage avancée en VBscript
Bonjour,
Je voudrais réalisé un étiquetage avancée pour supprimer la dernière lettre du mot étiquetté si cette lettre est un "G"
Voici le code
Code:
Function FindLabel ( [NUM_ROUTE] ) If Right ([NUM_ROUTE] , 1) = "G" Then FindLabel = Left ([NUM_ROUTE] , (Len ([NUM_ROUTE]) -1)) else FindLabel = [NUM_ROUTE] End If
Les étiquettes comporatant un G à la fon ne s'affiche pas tandis que les autres c'est OK.
Pour info j'ai tester ça et ça marche
Code:
Function FindLabel ( [NUM_ROUTE] ) If Right ([NUM_ROUTE] , 1) = "G" Then FindLabel = "OK" else FindLabel = [NUM_ROUTE] End If
Je ne comprend pas bien ou est le problème
Window XP + Arcgis 9.2 version arcview
merci par avance
Hors ligne
#2 Wed 24 June 2009 17:10
- Spacejo
- Membre
- Lieu: Nancy
- Date d'inscription: 17 Aug 2008
- Messages: 2511
Re: Etiquetage avancée en VBscript
Salut Jaq,
Dans le premier code, il y a une supression du "G" de fin dans la chaine de caractères (NUM_ROUTE) dans l'étiquettage.
Dans le second Lorsque la fin de la chaine de caractères (NUM_ROUTE) est un "G" alors l'étiquettage affiche "OK"
Je ne comprend pas trop le problème?
A+
Joël
Hors ligne
#3 Thu 25 June 2009 08:22
- Jaq
- Participant occasionnel
- Date d'inscription: 27 May 2008
- Messages: 23
Re: Etiquetage avancée en VBscript
Bonjour,
Désolé, de la question qui est mal formulée. En fait les étiquettes finissany par un G ne s'affiche pas. Après recherche, j'ai bidouillé les options de placement (une étiquette par entités et elles apparaissent). Bon il y en a trop, mais au moins ce n'est pas le code qui foire.
Merci pour ta réponse
Hors ligne
