Address book ;)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 179 fois - Téléchargée 27 fois

Contenu du snippet

dialog adke {
title "Addres Book Error"
size -1 -1 81 41
option dbu
box "Error:", 1, 1 1 78 27
text "You have not selected an address to delete!!", 2, 5 9 72 15
button "OK", 3, 2 29 77 11, ok
}

dialog adk {
title "Address Book"
size -1 -1 94 170
option dbu
icon $scriptdir\Icones\addres.ico
list 1, 0 0 93 130, size vsbar hsbar
edit "", 2, 25 130 60 10, autohs
text "Address:" 6, 1 130 20 7
button "Add", 3, 10 140 30 10
button "Remove", 4, 55 140 30 10
button "close", 5, 32 150 30 10, ok
}
on *:dialog:adk:init:0:{ /load.adk | did -z adk 1 }
on *:dialog:adk:dclick:1:{ /clipboard | /clipboard -a $did(1).seltext }
on *:dialog:adk:sclick:3:{
write -a address.txt $did(2).text
load.adk
}
on *:dialog:adk:sclick:4:{
if ($did(1).sel == $null) { dialog -m adke adke }
else { write -dl $did(1).sel address.txt | did -d $dname 1 $did(1).sel }
}

alias load.adk {
did -r adk 1
var %i 1
while (%i <= $lines(address.txt)) {
did -a adk 1 $read(address.txt,%i)
inc %i
}
}

menu channel,status,menubar {

• Address Book:/dialog -md adk adk

}

A voir également

Ajouter un commentaire Commentaires
Messages postés
708
Date d'inscription
lundi 15 juillet 2002
Statut
Membre
Dernière intervention
17 mars 2005

if ($did(1).sel == $null) { dialog -m adke adke }
devient :
if (!$did(1).sel) { dialog -m adke adke }

alias load.adk {
did -r adk 1
var %i 1
while (%i <= $lines(address.txt)) {
did -a adk 1 $read(address.txt,%i)
inc %i
}
}

peut devenir

alias load.adk {
did -r adk 1
var %i 1
while ($read(address.txt,%i)) {
did -a adk 1 $ifmatch
inc %i
}
}

comme ça ya un identifiant en moins que tu apel mais c'est une question de point de vue d'autant plus que le $read a chaque fois pourait peut etre faire ralentir, faut faire les tests.

le clipboard c'est sympa, mais si jamais le mec a des données importantes dans son buffer ? tu l'effaces !!!!!!

avec $cb(0) tu peux savoir si le dit buffer est ide ou pas
mais la c toi qui voit
$cb(N) va te renvoyer chaque ligne du buffer.
Messages postés
1804
Date d'inscription
mardi 15 juillet 2003
Statut
Membre
Dernière intervention
22 septembre 2009
5
ca a le mérite de pas bugguer :) mais c'est trop court essaie de rajouter plus d'options :p pour ca j'te conseille d'aller voir l'adress book de PuMaZ sur ce site
http://www.ircfr.com/code.aspx?ID=15075
pas trop d'avis bonne continuation :o)

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.