Le portail francophone de la géomatique

Et pour ceux qui ne savent pas que la fonction calculer champ utilise du VB, et qu'il faut aller chercher la fenêtre VBA d'ArcGIS, on peut regarder simplement l'aide dans le chapitre calculer champ (lien sur l'aide en ligne en anglais).


Il y a tout ce qu'il faut pour ce que vous demandez.

Merci SpaceJo, ca marche.


J'ai un autre problème.
En essayant de lier deux couches: une spatiale et l'autre attributaire, je me suis aperçu qu'il n'y a pas tout à fait la même nomenclature au niveau de l'identifiant.
Je m'explique pour le même identifiant,la couche spatiale est FRGR0364B
alors que pour la table attributaire, l'identifiant est FRGR364B

J'aimerai donc créer un script pour que le 0 soit supprimé dans la couche spatiale du genre si le cinquième caractère est 0 alors suppression.

Merci bcp!!!

Le 0 est toujours à la même place. Il n'y a pas de variation les 4 premiers caractères sont toujours FRGR ensuite le cinquième pe etre soit un 0 soit n'importe quels autres chiffres.

Ah désolé,

Tu veux enlever uniquement le 5éme caractère si c'est un zéro j'ai été trop vite
Ca change la donne

Ca ne va pas.

Le début de l'identifiant commence toujours par 4 caractères du style FRGR ou FRFC et après on a ou non le 0. Seulement ensuite il peut arriver que le nombre de caractère change, on peut avoir 5,4 ou 3 caractères.

Non lol

tu as 4 caractères (FRGR) puis 3,4,5 caractères (code en chiffres avec ou non un zéro devant)

Bon en considérant que le code se compose de:
- 4 caractères au début
- puis 3,4 ou 5 caractères numériques commençant ou non par un zéro que l'on veut éliminer
- et enfin un caractère que l'on veut garder

Essaye ceci:

Dim Text as string
Dim Text1 as string
Dim Text2 as string
Dim Text3 as String
Dim Var1 as Integer

Var1=Len([Ton_Champs])
Text1=Left([Ton_Champs],4)
Text2=Mid([Ton_Champs],5,Var1-5)
Text3=Right([Ton_Champs],1)


Text=Text1 & Val(Text2) & Text3

En espérant que cela fonctionne
A+
Joël

Dernière modification par Spacejo (Wed 29 April 2009 14:03)

Re,

Alors question :
Le zéro que tu veux ajouter est il toujours à la même place?
Dans ce cas le début du code comporte 4 lettres ----> donc saisie de cette première chaine Left([Ton_Champs],4) et la fin comprte 3 chiffres donc saisie de la fin Right([Ton_champs],3) et un zéro entre les deux.
La chaine est donc : Left([Ton_Champs],4) & "0" & Right([Ton_champs],3)

Dim Début as String
Dim Fin as String
Dim Code as string

Début=Left([Ton_Champs],4)
Fin=Right([Ton_champs],3)
Code=Début & "0" & Fin

Placer "Code" dans le champs du bas
En espérant t'aider
A+
Joël

Dernière modification par Spacejo (Thu 14 May 2009 13:13)

Remplace "0" par chr(48)

Dim Début as String
Dim Fin as String
Dim Code as string

Début=Left([Ton_Champs],4)
Fin=Right([Ton_champs],3)
Code=Début & chr(48) & Fin

Le chr(48) est le code ascii de "0"
A+
Joël