Le portail francophone de la géomatique

Dim table as string
Dim variable_a_recuperer as string

Fetch First From table
 variable_a_recuperer=table.coln

' opérations avec variable_a_recuperer...

Fetch Next From table

Include "C:\Program Files\MapInfo\MapBasic\Mapbasic.def"
Include "C:\Program Files\MapInfo\MapBasic\Menu.def"
Include "C:\Program Files\MapInfo\MapBasic\icons.def"
Include "C:\Program Files\MapInfo\MapBasic\papersize.def"

'Déclarations
'---------------

Declare Sub Main
Declare Sub test

'---------------
Sub Main

    Create Menu "test" as "Lancer la procédure test"
            Calling test
    Alter menu Bar Add "test"

End Sub

'---------------

Sub test

Dim ListeFichiers as string
Dim ListeFichiers2 as string
Dim ListeFichiers3 as string
Dim Enregistrement as string

    ' ouvre le fichier txt contenant la liste des fichiers à traiter => 1 seule colonne "fichier" de type string et de longueur 10
        ListeFichiers = FileOpENDLG ("","","*.txt","OUVRIR LISTE FICHIERS")

    ' récupère le chemin du fichier sans le .txt
        ListeFichiers2 = left$(ListeFichiers,len(ListeFichiers)-4)
 
    ' enregistre le fichier en .tab
        Register Table ListeFichiers TYPE ASCII Delimiter 9 Titles Charset "WindowsLatin1" Into ""& ListeFichiers2 &".TAB" 
        Open Table ""& ListeFichiers2 &".TAB" Interactive

    'récupère le nom de la table à partir du chemin
        ListeFichiers3 = right$(ListeFichiers2,13) 

    ' crée un index sur l'unique colonne fichier de la table et enregistre la table
        Create Index on ListeFichiers3 (fichier)
        Commit Table ListeFichiers3 Interactive
        
    ' va au premier enregistrement de la table ListeFichiers
        Fetch first from ListeFichiers3
            Enregistrement=ListeFichiers3.fichier

    ' commence la boucle
        Do while not EOT(ListeFichiers3)
        
    ' ouvre la table portant le nom de la Nème valeur de la colonne "fichier"
        Register Table "X:\...\" & Enregistrement & ".txt" TYPE ASCII Delimiter 9 Titles Charset "WindowsLatin1" Into "X:\...\" & Enregistrement & ".tab" 
        Open Table "\X:\...\" & Enregistrement & ".tab" Interactive
        
    ' crée les points de la table et l'enregistre dans le dossier Carte
        Set CoordSys Earth Projection 1, 104 
        Create Map For Enregistrement CoordSys Earth Projection 1, 104
        Update Enregistrement set obj = CreatePoint(X,Y)
        Commit Table Enregistrement As "X:\...\"& Enregistrement &".TAB" TYPE NATIVE Charset "WindowsLatin1" Interactive
        Close Table Enregistrement
        Open Table "X:\...\"& Enregistrement &".TAB" Interactive

    ' transforme le champ ID en chaîne de caractère de longueur 7
        Alter Table Enregistrement ( modify ID Char(7)) Interactive
        Commit Table Enregistrement Interactive

    ' ajoute les points sur la couche raster
        Add Map Window FrontWindow()Auto Layer Enregistrement
    
            ' zoom sur les points
        Set Map Window FrontWindow()Zoom Entire Layer Enregistrement

    ' met en page
        Layout
        Position (2,2) Units "cm"
              Width 41.45 Units "cm" Height 29.4 Units "cm" 
        Set CoordSys Layout Units "cm"
        Create Frame (2,2) (39.45,27.4) 
             Pen (1,2,0) 
           Brush (2,16777215,16777215) 
            Title "" & Enregistrement &",...,fra250k_012_011_l_h_nt_v24 Carte"
            FillFrame On

        Set CoordSys Earth Projection 1, 0

        Set Layout ruler off zoom 50 Extents (1, 1)
        
        ' exportation de l'image
        Save Window frontwindow() As "X:\...\" &  Enregistrement  & ".png" Type "PNG" Width 39.45 Units "cm" Height 27.4 Units "cm"  Resolution 96
        
        ' ferme la table et la mise en page pour relancer la boucle        
        Close Window frontwindow()
        Close Table Enregistrement Interactive

        Fetch next from ListeFichiers3
    Loop
End sub

' va au premier enregistrement de la table ListeFichiers
        Fetch first from ListeFichiers3
            Enregistrement=ListeFichiers3.fichier