Script qui ne fonctionne plus avec la version 10

[zet]

Bonjour,
J'utilisais des petits scripts de ce type pour détecter des doublons via le "field calculator" dans la version 9.3

Static d As Object
Static i As Long
Dim iDup As Integer
Dim sField
'========================
'Replace the field name bellow
sField = [ID_Fiche] 
'========================
If (i = 0) Then
Set d = CreateObject("Scripting.Dictionary")
End If
If (d.Exists(CStr(sField))) Then
iDup = 1
Else
d.Add CStr(sField), 1
iDup = 0
End If
i = i + 1

Le calcul échoue dans la version 10, avec message d'erreur suivant
"There was a failure during geoprocessing" avec renvoi vers un "Error 999999".

Quelqu'un a une idée?

Merci par avance

[Fred XIII]

Bonjour,

Tu peux essayer avec cet outil :
http://resources.arcgis.com/gallery/...9-ADB2A7E93A60

ou encore avec
http://support.esri.com/en/knowledge...s/detail/38700

Cordialement,

[zet]

Merci Fred! Je n'avais effectivement pas cherché des scripts en python...
Si le script ne fonctionne plus, c'est que le vba n'est plus pris en charge dans la version 10, c'est ça?
Faut-il installer Arcobjects VBA SDK comme il l'est indiqué dans ce lien pour que je puisse utiliser ce script?
http://forums.arcgis.com/threads/318...K-in-ARcGIS-10

[Fred XIII]

oui, c'est ça, maintenant il faut se mettre au Python !

[bernards111]

Salut,

dans la 10 tu as un outil pour les doublons dans les toolsbox.

http://help.arcgis.com/fr/arcgisdesk...00000054000000

[zet]

Pour info:
pour un code tout simple comme celui là qui fonctionne dans la 9.3 (du VBA)

Dim x as Integer
If [EntiteArch] <> " " then 
x = 1
Else
x = 0
End If

Il suffit de virer "as integer" pour que cela fonctionne dans la version 10 en VBScript:

Dim x 
If [EntiteArch] <> " " then 
x = 1
Else
x = 0
End If

Note du modérateur :

Merci de baliser le code.