PureBasic Forums - English

Code: Select all

; -------------------------------------------------------------------------------------------------------
;                Map exemple   Single Key$ :  ou Table avec clef d'accès unique...
; ---------------------------------------------------------------------------------------------------------------
;
;  Commandes disponibles :
;
; AddMapElement(Map(), Key$ [, Flags])   - Ajoute un nouvel element vide dans la "map".
; ClearMap(Map())                                   - Efface tout les elements dans la "map" et libère la mémoire.
; FindMapElement(Map(), Key$)               - Cherche l'element spécifié dans la "map".
; DeleteMapElement(Map() [, Key$])        - Enlève l'élément en cours de la "map" .
; MapKey(Map())                                     - Renvois la Clef de l'element courant de la map.
; MapSize(Map())                                    - Rendvois le nombre d'éléments contenu dans la "map".
; NextMapElement(Map())                        - Deplace l'élement courent vers le suivant dans la "map".
; ResetMap(Map())                                  - Deplace le pointeur en tête de la "map"
;
; Map()                                                  - Accéde à l'élement courant dans la "map"; access the current element in the map
; Map("key")                                           - Accéde à l'élément correspondant à la clef et il devient l'élement courant 
;                                                           
; -----------------------------------------------------------------------------------------------------------------------  
; Une table de hachage est une Structure de données qui permet une association clé-élément. 
; ==================================================================      
;   Autre Exemple / Other sample  :                                                                                                    
; ==================================================================   
    
    NewMap Test.s()   ; Table indexé selon le Hascode Sur la Clef .....                                            
    Dim T$(6)              ; Table qui contientdrait les clefs.... indépendament de  Test.s()                
    ;                                                                                                                                       
    ;                                                    Ordre de création ....                                                               
        T$(1)="Fred"      :Test(T$(1)) = "1 - Any sentence that contains all the desired item"
        T$(2)="Timo"     :Test(T$(2)) = "2- Is two or 2"
        T$(3)="Albert"    :Test(T$(3)) = "3- And this is the additional writing"
        T$(4)="Joseph" :Test(T$(4)) = "4- c'est une série B"
        T$(5)="Dorothe":Test(T$(5)) = "5- It's not a joke but not serious"


    T$(1)="Fred"      :Test(T$(1)) = "1 - Any sentence that contains all the desired item"
    T$(2)="Timo"     :Test(T$(2)) = "2- est deux ou écrit 2"
    T$(3)="Albert"    :Test(T$(3)) = "3- And this is the additional writing"
    T$(4)="Joseph" :Test(T$(4)) = "4- It's some picture 'B' serie"
    T$(5)="Dorothe":Test(T$(5)) = "5- It's not a joke but not serious"
    T$(6)="Roberto":Test(T$(6)) = "6- Eu acho que o pais de você e o Brasil ?"
    
    AddMapElement(Test(), "Gerhard", #PB_Map) ; - Addjoute un nouvel element vide dans la "Map".
    ;
    ;--------------------------------------------------------
    Debug " == Organisation de la table selon le Hash coding de Map ==="
    ResetMap(Test())                        ;  Move to the begin of the Map - Deplace le pointeur en tête de la "map"
    While NextMapElement(Test())
        Debug Str(l+1)+" - "+Test()      ; Here is the order of the map....  Ici l'ordre dans la table 
        l+1
    Wend
    l=0
    Debug "====================================================="   
    Debug " Ordre selon l'appel par les clefs... donc de l'enregistrement correspondant"    
    Debug "-----------------------------------------------------------------------------------------------"
    ;--------------------------------------------------------------------------------------------------------------------    
    ;  Ordre d'extraction par appel en utilisant la clef    / Calling Forme 
    ;-------------------------------------------------------------------------------------------------------------------- 
    ;  1 on appelle la première clef du de T$(1) --- Various Calling form ! 
    FindMapElement(Test.s(), "Fred")
        Debug "Fred="+Test.s()
    
    ;  2  on appelle la quatrième clef de T$(4)
    FindMapElement(Test.s(), "Joseph")
        Debug "Joseph"+"="+Test.s()
    
    ;   3 on appelle la cinquième clef de T$(5)
    FindMapElement(Test.s(), "Dorothe")
        Debug "Dorothe"+"="+Test.s()
    
    ;  4  on appelle la cinquième clef de T$(2)
    B$="Timo"
    FindMapElement(Test.s(), B$)
        Debug B$+"="+Test.s()
    
    ; 5  on appelle la cinquième clef de T$(3) ="Albert"
    ;           
    FindMapElement(Test.s(), T$(3))
        Debug B$+"="+Test.s()
        
    ; ----------------------------------------------------------------------------------------------    
    Debug "===== Numero element ======="
    Debug "Donné par MapSize()="+Str(MapSize(Test()))
    Debug "========================="        
    ; ---------------------------------------------------------------------------------------------- 
    ResetMap(Test())                        ;  Move to the begin of the Map - Deplace le pointeur en tête de la "map"
    
    While NextMapElement(Test())
        Debug Str(l+1)+" - "+Test()    ; Here is the order of the map....  Ici l'ordre dans la table 
        l+1
    Wend
    
    Debug "======================="   
    Debug " classement par ordre des clefs"
    Debug "-------------------------------------------------"
    ;                                            OR 
    ResetMap(Test())                        ;  Move to the begin of the Map - Deplace le pointeur en tête de la "map"
    For i=1 To 6
        Debug Str(i)+" - "+Test(T$(i)) ; Here is we find with the key.... geved from the array T$(i)...  recupère par la clef... 
    Next i        
    ; ------------------------ Other form to call -------------------
    Debug "--------------- Autre forme d'utilisation de Map -----------------"
    ;
    FindMapElement(Test.s(),InputRequester("Recherche","Donnez la clef d'accès : ", Clef$))
    MessageRequester("Votre réponse est : ",Test.s(),#PB_MessageRequester_Ok  )
    ;
    Debug Test.s()
    Debug "---------------- FIN ---- END -------------"
    ;
    ClearMap(Test.s()) 
    
End
; ===================================================
;    Simplified form using the features "MAP"
;                                                                                                   GeBonet
; ===================================================
; If you have ....
;
        NewMap Test.s() ;
        Dim T$(5)              ; Array with somme name or other thiing.... Here name.
        ;                           
        ;                               Buld of the Map and array with the key...
        ;
        T$(1)="Fred"      :Test(T$(1)) = "1 - Any sentence that contains all the desired item"
        T$(2)="Timo"     :Test(T$(2)) = "2- Is two or 2"
        T$(3)="Albert"    :Test(T$(3)) = "3-   And this is the additional writing"
        T$(4)="Joseph" :Test(T$(4)) = "4- c'est une série B"
        T$(5)="Dorothe":Test(T$(5)) = "5- It's not a joke but not serious"
        T$(6)="Roberto":Test(T$(6)) = "6- Eu acho que o pais de você e o Brasil ?"
        ; -------------------------------------------------
        ;   A Simple access of this is ...
        ; -------------------------------------------------
        FindMapElement(Test.s(),InputRequester("research","Give the key name : ", Clef$))
        MessageRequester("Your answers is / Votre réponse est : ",Test.s(),#PB_MessageRequester_Ok  )
        ;
        End