banniere

Le portail francophone de la géomatique


Toujours pas inscrit ? Mot de passe oublié ?
Nom d'utilisateur    Mot de passe              Toujours pas inscrit ?   Mot de passe oublié ?

#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

 

Pied de page des forums

Powered by FluxBB