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
}
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
}
24 mai 2004 à 22:31
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.
23 mai 2004 à 11:19
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.