PureBasic Forums - English

Code: Select all

; ==================================================================
;   Autre Exemple / Other sample  : 
; ==================================================================
    NewMap Test.s() ; Table indexé selon le Hascode Sur la Clef .....
    Dim T$(5)              ; Table qui contientdrait les clefs.... indépendament de  Test.s()
    ;                            
    ;                               Ordre de création ....
    T$(1)="Fred"      :Test(T$(1)) = "1 -Toute une phrase qui contient tout les élément désiré "
    T$(2)="Timo"     :Test(T$(2)) = "2- deux ou 2"
    T$(3)="Albert"    :Test(T$(3)) = "3- Et ceci c'est le complément"
    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"
    ;--------------------------------------------------------
    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)
    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 5
        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        
    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 -------------------------"
    ;
    ClearMap(Test.s())