Le portail francophone de la géomatique

De: Sebastien RODDIER
Bonjour

Je n'ai pas d'utilitaire tout fait mais si vous avez Mapbasic vous pouvez commencer de la maniere suivante :

'/ Etablir la liste des fichiers tab d'un repertoire et envoyer le resultat dans un fichier texte temporaire

run program command.com /c dir /s /b c:mesdonnees*.tab > c:list_fic.lst

'/ c:mesdonnees est la racine de stockage de vos donnees MI
'/ Pour plus d'infos sur les possibilites d'utilisation de DIR ouvrez un invite de commande DOS et '/ tapez dir /?
'/ Ouvrir en lecture seule le fichier list_fic.lst et le parcourir ligne par ligne
'/Chaque ligne etant un nom complet d'une table mapinfo vous pouvez faire

Dim str As String

Open File c:list_fich.lst  For Input As #1

'/creer une table resultat avec 3 attributs texte (nom, coordysclause, coordsys name)

Do While Not EOF(1)
Line Input #1, str
open table +str

'/ faire un test ici pour s'assurer que la table est cartographiable sinon passez a la suivante

str = PathToTableName(str)
update resultat set nom = str, coordsysclause = tableinfo(str,29), coordsysname = tableinfo(str,30)
close table str
Loop
Close File #1

kill c:list_fic.lst

Je n'ai rien tester mais je pense que vous pouvez demarrer comme ceci.

Bon courage

Sebastien RODDIER