; ****************************************************************************
; * By PBFrance : http://www.pbfrance.com/?url=tutorial&cmd=viewer&val=3
; ****************************************************************************

;Déclaration de la structure d'un utilisateur
Structure User
  User.s
  Phone.s
EndStructure

;Déclaration de la Map
NewMap Users.User()

;Ajout de 4 utilisateurs
AddMapElement(Users(), "Larache")
Users()\User  = "Larache"
Users()\Phone = "01.45.25.15.06"

AddMapElement(Users(), "Tricard")
Users()\User  ="Tricard"
Users()\Phone = "04.39.69.25.10"

AddMapElement(Users(), "Olap")
Users()\User  = "Olap"
Users()\Phone = "02.63.24.54.13"

AddMapElement(Users(), "Agile")
Users()\User  = "Agile"
Users()\Phone = "06.31.22.92.92"

;Modification d'un numéro de téléphone de "larache"
AddMapElement(Users(), "Larache")
Users()\User  = "Larache"
Users()\Phone = "01.45.25.15.15"

;Liste des utilisateurs.
Debug "# Liste des utlisateurs:"
ForEach Users()
  Debug Users()\User + " - " + Users()\Phone
Next

;Suppression de l'utilisateur "Larache"
DeleteMapElement(Users(), "Larache")

;Liste de controle aprés suppression de "Larache"
Debug #CRLF$ + "# Liste des utlisateurs aprés suppression de Larache:"
ForEach Users()
  Debug Users()\User + " - " + Users()\Phone
Next

;Chercher l'utilisateur "Olap"
FindMapElement(Users(), "Olap")
Debug #CRLF$ + "# Téléphone de l'utilisateur 'Olap' : " + Users()\Phone