Le portail francophone de la géomatique

gaucher · Wed 17 October 2012 12:05

Bonjour à tous,

je souhaite réaliser une jointute de ma table attributaire avec un ficihier excel. le problème est que le texte du champ de jointure du fichier excel est en majuscule sans accent alors que le texte du champ de jointure de ma table attributaire est en minuscule et comporte des accents. en utilisant la fonction UCASE de la calculatrice de champ j'obtiens les attribut en majuscule mais avec des accents. y a t'il une solution qui pourrait me permettre d'obtenir des majuscule sans accent?
je vous remercie par avance.

Meums · Wed 17 October 2012 13:48

Bonjour Gaucher,

Avant de passer cette première étape, essayez de supprimer tous les accents

1 - caractère par caractère :
essayez la fonction replace :
ex :
replace([Nomduchamp], "à ", "a ")

2 - ou encore ce code qui traite plusieurs caractères (à adapter pour les caractères avec accents):

NB
Noter var1 dans la case du bas
NB2 - on peut faire l'opération sur plusieurs caractères à la fois

Code:

Dim var1, var2, var3

var1 = [MonChamp] 
var2 = Len(var1) + 1
var3 = 1

While var3 <> var2
    Dim var4, var5, var6
    var4 = Mid(var1, var3, 1)
    
    If var4 = "¯" Then
        var5 = Mid(var1, 1, var3 - 1)
        var6 = Mid(var1, var3 + 1, var2 - var3 )
        var1 = var5 + "î" + var6
        var3 = var3 + 1
    ElseIf var4 = "¦" Then
        var5 = Mid(var1, 1, var3 - 1)
        var6 = Mid(var1, var3 + 1, var2 - var3 )
        var1 = var5 + "°" + var6
        var3 = var3 + 1
    ElseIf var4 = "¶" Then
        var5 = Mid(var1, 1, var3 - 1)
        var6 = Mid(var1, var3 + 1, var2 - var3 )
        var1 = var5 + "ô" + var6
        var3 = var3 + 1
    ElseIf var4 = "Ó" Then
        var5 = Mid(var1, 1, var3 - 1)
        var6 = Mid(var1, var3 + 1, var2 - var3 )
        var1 = var5 + "à" + var6
        var3 = var3 + 1
    ElseIf var4 = "Ô" Then
        var5 = Mid(var1, 1, var3 - 1)
        var6 = Mid(var1, var3 + 1, var2 - var3 )
        var1 = var5 + "â" + var6
        var3 = var3 + 1
    ElseIf var4 = "þ" Then
        var5 = Mid(var1, 1, var3 - 1)
        var6 = Mid(var1, var3 + 1, var2 - var3 )
        var1 = var5 + "ç" + var6
        var3 = var3 + 1
    ElseIf var4 = "Þ" Then
        var5 = Mid(var1, 1, var3 - 1)
        var6 = Mid(var1, var3 + 1, var2 - var3 )
        var1 = var5 + "è" + var6
        var3 = var3 + 1
    ElseIf var4 = "Ú" Then
        var5 = Mid(var1, 1, var3 - 1)
        var6 = Mid(var1, var3 + 1, var2 - var3 )
        var1 = var5 + "é" + var6
        var3 = var3 + 1
    ElseIf var4 = "Û" Then
        var5 = Mid(var1, 1, var3 - 1)
        var6 = Mid(var1, var3 + 1, var2 - var3 )
        var1 = var5 + "ê" + var6
        var3 = var3 + 1
    ElseIf var4 = "Ù" Then
        var5 = Mid(var1, 1, var3 - 1)
        var6 = Mid(var1, var3 + 1, var2 - var3 )
        var1 = var5 + "ë" + var6
        var3 = var3 + 1
    ElseIf var4 = "+" Then
        var5 = Mid(var1, 1, var3 - 1)
        var6 = Mid(var1, var3 + 1, var2 - var3 )
        var1 = var5 + "É" + var6
        var3 = var3 + 1
    ElseIf var4 = "+" Then
        var5 = Mid(var1, 1, var3 - 1)
        var6 = Mid(var1, var3 + 1, var2 - var3 )
        var1 = var5 + "È" + var6
        var3 = var3 + 1
    ElseIf var4 = "-" Then
        var5 = Mid(var1, 1, var3 - 1)
        var6 = Mid(var1, var3 + 1, var2 - var3 )
        var1 = var5 + "Ê" + var6
        var3 = var3 + 1
    ElseIf var4 = "-" Then
        var5 = Mid(var1, 1, var3 - 1)
        var6 = Mid(var1, var3 + 1, var2 - var3 )
        var1 = var5 + "Â" + var6
        var3 = var3 + 1
    ElseIf var4 = "¦" Then
        var5 = Mid(var1, 1, var3 - 1)
        var6 = Mid(var1, var3 + 1, var2 - var3 )
        var1 = var5 + "²" + var6
        var3 = var3 + 1
    ElseIf var4 = "¦" Then
        var5 = Mid(var1, 1, var3 - 1)
        var6 = Mid(var1, var3 + 1, var2 - var3 )
        var1 = var5 + "Û" + var6
        var3 = var3 + 1
    ElseIf var4 = "¦" Then
        var5 = Mid(var1, 1, var3 - 1)
        var6 = Mid(var1, var3 + 1, var2 - var3 )
        var1 = var5 + "°" + var6
        var3 = var3 + 1
        
        
    Else
        var3 = var3 + 1    
    End If
Wend

J'avais trouvé ce code sur ce forum, j'ai oublié le nyuméro de topic mais en cherchant bien...

Spacejo · Wed 17 October 2012 13:58

Salut,

Celà me rappelle quelquechose
---> http://www.forumsig.org/showthread.php? … light=var5
A+
Joël

gaucher · Wed 17 October 2012 16:19

j'ai essayé le bout de code, et il marche à merveille. je souhaite savoir en quel langage de programmation ce code est écrit. j'aimerais apprendre ce langage pour me permettre d'automatiser certaine opérations dans arcgis 10. je relance le sujet: comment compléter ce code pour qu'il me donne directement des caractères en majuscule sans accent?

Spacejo · Wed 17 October 2012 16:24

Salut,

C'est du VBscript
As tu regardé le lien que j'ai indiqué? --> le code ci dessus y est expliqué
Plus d'infos et de codes pour la calculette ---> http://support.esrifrance.fr/OutilsScri … aines.html
---> http://arcscripts.esri.com/scripts.asp? … it2=Search
A+
Joël

Dernière modification par Spacejo (Wed 17 October 2012 16:41)

gaucher · Wed 17 October 2012 17:43

C'est compris Spacejo, mais comment intégrer la fonction UCASE pour que j'obtienne directement des majuscules à la fin ?

Merci.

Spacejo · Wed 17 October 2012 17:47

Peux tu préciser?
Il me semble que tu nas pas besoin de passer par le mode avancé
Il te suffit de choisir dans la calculette le champ sur lequel tu veux intervenir puis dans la fenêtre en dessous du choix de ton champ:
---> UCase ( [CHAMP] ) --> Ne pas oublier de modifier "CHAMP" par le Nom de ton champ.
A+
Joël

Dernière modification par Spacejo (Wed 17 October 2012 18:01)

gaucher · Wed 17 October 2012 19:05

en fait mon souci était d'obtenir à partir d'une seule opération, avec un bout de code, du texte en majuscule débarassé de tous les accents.

Spacejo · Wed 17 October 2012 22:05

Celà peut être certainement optimiser --> si tu reprends l'exemple que j'avais cité ici --> http://www.forumsig.org/showthread.php? … light=var5
Voilà ce que ça donne:

Code:

Dim var1, var2, var3

var1 = [TonChamp]
var2 = Len(var1) + 1
var3 = 1

While var3 <> var2
    Dim var4, var5, var6
    var4 = Mid(var1, var3, 1)
    
    If var4 = "a" or "à" Then
        var5 = Mid(var1, 1, var3 - 1)
        var6 = Mid(var1, var3 + 1, var2 - var3 )
        var1 = var5 + "A" + var6
        var3 = var3 + 1
ElseIf var4 = "b" Then
        var5 = Mid(var1, 1, var3 - 1)
        var6 = Mid(var1, var3 + 1, var2 - var3 )
        var1 = var5 + "B" + var6
        var3 = var3 + 1
ElseIf var4 = "c" Then
        var5 = Mid(var1, 1, var3 - 1)
        var6 = Mid(var1, var3 + 1, var2 - var3 )
        var1 = var5 + "C" + var6
        var3 = var3 + 1
ElseIf var4 = "d" Then
        var5 = Mid(var1, 1, var3 - 1)
        var6 = Mid(var1, var3 + 1, var2 - var3 )
        var1 = var5 + "D" + var6
        var3 = var3 + 1
ElseIf var4 = "e" or "é" or "è" or "ê" Then
        var5 = Mid(var1, 1, var3 - 1)
        var6 = Mid(var1, var3 + 1, var2 - var3 )
        var1 = var5 + "E" + var6
        var3 = var3 + 1
ElseIf var4 = "f" Then
        var5 = Mid(var1, 1, var3 - 1)
        var6 = Mid(var1, var3 + 1, var2 - var3 )
        var1 = var5 + "F" + var6
        var3 = var3 + 1
ElseIf var4 = "g" Then
        var5 = Mid(var1, 1, var3 - 1)
        var6 = Mid(var1, var3 + 1, var2 - var3 )
        var1 = var5 + "G" + var6
        var3 = var3 + 1
ElseIf var4 = "h" Then
        var5 = Mid(var1, 1, var3 - 1)
        var6 = Mid(var1, var3 + 1, var2 - var3 )
        var1 = var5 + "H" + var6
        var3 = var3 + 1
ElseIf var4 = "i" Then
        var5 = Mid(var1, 1, var3 - 1)
        var6 = Mid(var1, var3 + 1, var2 - var3 )
        var1 = var5 + "I" + var6
        var3 = var3 + 1
ElseIf var4 = "j" Then
        var5 = Mid(var1, 1, var3 - 1)
        var6 = Mid(var1, var3 + 1, var2 - var3 )
        var1 = var5 + "J" + var6
        var3 = var3 + 1
ElseIf var4 = "k" Then
        var5 = Mid(var1, 1, var3 - 1)
        var6 = Mid(var1, var3 + 1, var2 - var3 )
        var1 = var5 + "K" + var6
        var3 = var3 + 1
ElseIf var4 = "l" Then
        var5 = Mid(var1, 1, var3 - 1)
        var6 = Mid(var1, var3 + 1, var2 - var3 )
        var1 = var5 + "L" + var6
        var3 = var3 + 1
ElseIf var4 = "m" Then
        var5 = Mid(var1, 1, var3 - 1)
        var6 = Mid(var1, var3 + 1, var2 - var3 )
        var1 = var5 + "M" + var6
        var3 = var3 + 1
ElseIf var4 = "n" Then
        var5 = Mid(var1, 1, var3 - 1)
        var6 = Mid(var1, var3 + 1, var2 - var3 )
        var1 = var5 + "N" + var6
        var3 = var3 + 1
ElseIf var4 = "o" Then
        var5 = Mid(var1, 1, var3 - 1)
        var6 = Mid(var1, var3 + 1, var2 - var3 )
        var1 = var5 + "O" + var6
        var3 = var3 + 1
ElseIf var4 = "p" Then
        var5 = Mid(var1, 1, var3 - 1)
        var6 = Mid(var1, var3 + 1, var2 - var3 )
        var1 = var5 + "P" + var6
        var3 = var3 + 1
ElseIf var4 = "q" Then
        var5 = Mid(var1, 1, var3 - 1)
        var6 = Mid(var1, var3 + 1, var2 - var3 )
        var1 = var5 + "Q" + var6
        var3 = var3 + 1
ElseIf var4 = "r" Then
        var5 = Mid(var1, 1, var3 - 1)
        var6 = Mid(var1, var3 + 1, var2 - var3 )
        var1 = var5 + "R" + var6
        var3 = var3 + 1
ElseIf var4 = "s" Then
        var5 = Mid(var1, 1, var3 - 1)
        var6 = Mid(var1, var3 + 1, var2 - var3 )
        var1 = var5 + "S" + var6
        var3 = var3 + 1
ElseIf var4 = "t" Then
        var5 = Mid(var1, 1, var3 - 1)
        var6 = Mid(var1, var3 + 1, var2 - var3 )
        var1 = var5 + "T" + var6
        var3 = var3 + 1
ElseIf var4 = "u" Then
        var5 = Mid(var1, 1, var3 - 1)
        var6 = Mid(var1, var3 + 1, var2 - var3 )
        var1 = var5 + "U" + var6
        var3 = var3 + 1
ElseIf var4 = "v" Then
        var5 = Mid(var1, 1, var3 - 1)
        var6 = Mid(var1, var3 + 1, var2 - var3 )
        var1 = var5 + "V" + var6
        var3 = var3 + 1
ElseIf var4 = "w" Then
        var5 = Mid(var1, 1, var3 - 1)
        var6 = Mid(var1, var3 + 1, var2 - var3 )
        var1 = var5 + "W" + var6
        var3 = var3 + 1
ElseIf var4 = "x" Then
        var5 = Mid(var1, 1, var3 - 1)
        var6 = Mid(var1, var3 + 1, var2 - var3 )
        var1 = var5 + "X" + var6
        var3 = var3 + 1
ElseIf var4 = "y" Then
        var5 = Mid(var1, 1, var3 - 1)
        var6 = Mid(var1, var3 + 1, var2 - var3 )
        var1 = var5 + "Y" + var6
        var3 = var3 + 1
ElseIf var4 = "z" Then
        var5 = Mid(var1, 1, var3 - 1)
        var6 = Mid(var1, var3 + 1, var2 - var3 )
        var1 = var5 + "Z" + var6
        var3 = var3 + 1

Else
        var3 = var3 + 1    
    End If
Wend

C'est vraiment bourrin mais celà doit le faire
A+
Joël

Dernière modification par Spacejo (Thu 18 October 2012 12:16)

Franck B · Thu 18 October 2012 15:03

Bonjour,

Il est aussi possible de faire quelquechose l'outils ("Calculer un champ" dans la toolboxe "Outils de gestion de données").

Il faut choisir comme type d'expression 'PYTHON_9.3' :

Code Block

Code:

def suppression_accents(chaine):
    """
    Suppression des accents dans une chaine UNICODE
    et renvoie une chaine UNICODE
    """
    import unicodedata
    return (unicodedata.normalize('NFKD', chaine).encode(
        'ASCII', 'ignore')).decode('ASCII')

Champ a mettre a jour

Code:

(suppression_accents(!NomDuChamp!)).upper()

L'avantage est qu'il n'est pas utile de construire une liste des caractères accentués possible mais cette méthode ne gère pas les caractères du genre 'œ', 'æ',...

A+

Franck

Communauté	Ressources	L'emploi	Le marché	L'association	Fils RSS
Forum Blogs Wiki Planet Sites amis	Agenda Biblio Fiches AMO-CNIG Paris PCGIS Téléchargements	Offres d'emploi Banque de CV Formations Démarche Métiers	Geo-Entreprises Geo-Communiqué Appels d'offres	L'association Qui sommes-nous ? Nous aider Bienfaiteurs Partenaires Historique Statuts	Tout le site Job Géomatique Services GeoBlogs ...	Faire un don Mentions légales

Le portail francophone de la géomatique

#1 Wed 17 October 2012 12:05

Convertir le text en minuscule d'un champ en majuscule sans accent

#2 Wed 17 October 2012 13:48

Re: Convertir le text en minuscule d'un champ en majuscule sans accent

Code:

#3 Wed 17 October 2012 13:58

Re: Convertir le text en minuscule d'un champ en majuscule sans accent

#4 Wed 17 October 2012 16:19

Re: Convertir le text en minuscule d'un champ en majuscule sans accent

#5 Wed 17 October 2012 16:24

Re: Convertir le text en minuscule d'un champ en majuscule sans accent

#6 Wed 17 October 2012 17:43

Re: Convertir le text en minuscule d'un champ en majuscule sans accent

#7 Wed 17 October 2012 17:47

Re: Convertir le text en minuscule d'un champ en majuscule sans accent

#8 Wed 17 October 2012 19:05

Re: Convertir le text en minuscule d'un champ en majuscule sans accent

#9 Wed 17 October 2012 22:05

Re: Convertir le text en minuscule d'un champ en majuscule sans accent

Code:

#10 Thu 18 October 2012 15:03

Re: Convertir le text en minuscule d'un champ en majuscule sans accent

Code:

Code:

Pied de page des forums