Repertoire adresse

Commenter

Contenu du snippet

Addon que nest pas tres long et tres simple :D

Source / Exemple : 


alias adresse {
  dialog -m adresse adresse
}

dialog adresse {
  title "Addict - Carnet d'adresse"
  size -1 -1 395 390
  button "Fermer" ,1, 10 360 150 20,ok

  box "Renseignements" 11,165 5 220 375
  list 2,10 10 150 340.

  Text "Pseudo:",13,180 27 40 20
  edit %pseudo ,3,225 25 150 20

  Text "Nom:",15,180 57 40 20
  edit %Nom ,4,225 55 150 20

  Text "Prénom:" ,16,180 87 40 20
  edit %prénom ,5,225 85 150 20

  text "ASV :",22, 180 303 40 20
  edit %asv, 6, 225 300 150 20

  text "Ville:" 17,180 117 40 20
  edit %ville ,7,225 115 150 20

  text "Adresse Postale:" 18, 180 145 140 20
  edit %Adresse ,8,180 160 195 40 , hsbar

  edit %phone ,9,240 210 135 20
  text "Téléphone:" ,19, 180 212 55 20

  text "e-mail:",20,180 243 40 20
  edit %mail ,12,225 240 150 20

  text "ICQ:",21, 180 273 40 20
  edit %icq ,14, 225 270 150 20

  text "URL:" 23,180 333 40 20
  edit %url ,24,225 330 150 20

  button "&Ajouter" 10,190 355 85 20
  button "&Voir" 25,10 335 150 20
  button "&Supprimer" 26,290 355 85 20
}

on *:dialog:adresse:sclick:10: { 
  writeini -n adresses.ini $did(3) pseudo $did(3)
  writeini -n adresses.ini $did(3) nom $did(4)  
  writeini -n adresses.ini $did(3) prénom $did(5)  
  writeini -n adresses.ini $did(3) asv $did(6)  
  writeini -n adresses.ini $did(3) Ville $did(7)  
  writeini -n adresses.ini $did(3) adresse $did(8)  
  writeini -n adresses.ini $did(3) phone $did(9)  
  writeini -n adresses.ini $did(3) mail $did(12)  
  writeini -n adresses.ini $did(3) icq $did(14)  
  writeini -n adresses.ini $did(3) url $did(24)  
  write -a adresses.txt $did(3)
  dialog -x adresse
  dialog -m adresse adresse
}

on 1:dialog:adresse:sclick:25: {
  set %pseudo $readini adresses.ini $did(2).seltext pseudo
  set %nom $readini adresses.ini $did(2).seltext nom
  set %prénom $readini adresses.ini $did(2).seltext prénom
  set %ville $readini adresses.ini $did(2).seltext ville
  set %adresse $readini adresses.ini $did(2).seltext adresse
  set %phone $readini adresses.ini $did(2).seltext phone
  set %mail $readini adresses.ini $did(2).seltext mail
  set %icq $readini adresses.ini $did(2).seltext icq
  set %url $readini adresses.ini $did(2).seltext url
  set %asv $readini adresses.ini $did(2).seltext asv

  dialog -x adresse
  dialog -m adresse adresse
}

on *:dialog:adresse:init:0: {
  set %nbre 1
  :loop
  did -a adresse 2 $read -l $+ %nbre adresses.txt
  inc %nbre 1
  if ( %nbre == 100 ) { goto stop }
  goto loop
  :stop
}

on *:dialog:adresse:sclick:26: {
  set %r $did(2).seltext 
  write -ds $+ %r adresses.txt
  dialog -x adresse
  dialog -m adresse adresse
}
menu menubar,channel {
  -
  >> carnet d'adresse :/dialog -m adresse adresse 
}

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (KoDeRz)