petit script pr prendre des notes . ce n'est q'une version béta car je compte mettre faire un system ki déclanche une note en fonction d'une action spécifier , c just pr vous donné un aperçu de mon script déjà trés avancé et fonctionnel . lol
++
Source / Exemple :
--------------------------------------------------------------------------------------
- by abdoulax ***************************************
--------------------------------------------------------------------------------------
menu menubar,nicklist {
-
Notes:/notes
}
alias notes {
window -kexl15 @notes
aline -lc4 @notes By abdoulax
aline -lc12 @notes ==========================
aline -lc12 @notes nbre de notes : $findfile(notes\,*.txt,0)
aline -lc12 @notes __________________________
aline -lc12 @notes pense pas bête
aline -lc12 @notes voir pense pas bête
aline -lc12 @notes nouveau
aline -lc12 @notes voir notes :
aline -lc12 @notes supprimer
aline -lc12 @notes raffraichir
aline -lc12 @notes clear
if ( $exists(notes) == $false ) { echo -a vous devez créer un repertoir notes dans le repertoir mIRC }
else { bienvenu }
}
menu @notes {
lbclick:/selectnotes
}
on *:input:@notes:if ( $mid($1,1,1) != / ) { aline @notes $1- | write notes\ $+ %readnotes $1- }
alias selectnotes {
if ( $sline(@notes,1) == clear ) { clear }
if ( $sline(@notes,1) == voir notes : ) { addnotes }
if ( $sline(@notes,1) == nouveau ) { nouveau }
if ( $sline(@notes,1) == supprimer ) { supprimer }
if ( $sline(@notes,1) == raffraichir ) { raffraichir }
if ( $sline(@notes,1) == pense pas bête ) { pensebete }
if ( $sline(@notes,1) == . supprimer ligne ) { suppbete }
if ( $sline(@notes,1) == voir pense pas bête ) {
if ( $read notes\pensebete.txt == $null ) { write notes\pensebete.txt titre : pense pas bête }
set %readnotes pensebete.txt
readnotes
}
if ( $mid($line(@notes,$calc($fline(@notes,voir notes :,1,1)+1),1),1,1) == . ) {
var %s = 1
while ( %s <= $findfile(notes,*.txt,0) ) {
if ( . $remove($nopath( $findfile(notes,*.txt,%s) ),.txt) == $sline(@notes,1) ) {
set %readnotes $nopath( $findfile(notes,*.txt,%s) )
readnotes
}
inc %s
}
}
}
alias bienvenu {
if ( $exists(notes\bienvenu.txt) == $true ) { remove notes\bienvenu.txt }
write notes\bienvenu.txt Bonjours $me !
write notes\bienvenu.txt ------------------
write notes\bienvenu.txt Je vous remerci d'utiliser ce script
write notes\bienvenu.txt Nombre de notes : $findfile(notes\,*.txt,0)
write notes\bienvenu.txt ------------------
write notes\bienvenu.txt By abdoulax
set %readnotes bienvenu.txt
readnotes
rline -lc12 @notes $fline(@notes,nbre de notes :*,1,1) nbre de notes : $findfile(notes\,*.txt,0)
}
alias readnotes {
if ( %readnotes == pensebete.txt ) { if ( $line(@notes,$calc($fline(@notes,voir pense pas bête,1,1)+1),1) != . supprimer ligne ) { iline -l @notes $calc($fline(@notes,voir pense pas bête,1,1)+1) . supprimer ligne } }
elseif ( $line(@notes,$calc($fline(@notes,voir pense pas bête,1,1)+1),1) == . supprimer ligne ) { dline -l @notes $calc($fline(@notes,voir pense pas bête,1,1)+1) }
clear
var %r = 1
while ( %r <= $lines(notes\ $+ %readnotes) ) {
aline @notes $read -l $+ %r notes\ $+ %readnotes
inc %r
}
if ( $fline(@notes,notes :*,1,1) == $null ) {
iline -lc12 @notes $calc($fline(@notes,nbre de notes :*,1,1)+1) last accés : $asctime($file(notes\ $+ %readnotes).atime,dd/mm/yy)
iline -lc12 @notes $calc($fline(@notes,nbre de notes :*,1,1)+1) modifier le : $asctime($file(notes\ $+ %readnotes).mtime,dd/mm/yy)
iline -lc12 @notes $calc($fline(@notes,nbre de notes :*,1,1)+1) créer le : $asctime($file(notes\ $+ %readnotes).stime,dd/mm/yy)
iline -lc12 @notes $calc($fline(@notes,nbre de notes :*,1,1)+1) taille : $file(notes\ $+ %readnotes).size octect
iline -lc12 @notes $calc($fline(@notes,nbre de notes :*,1,1)+1) notes : $remove(%readnotes,.txt)
}
else {
rline -lc12 @notes $fline(@notes,notes :*,1,1) notes : $remove(%readnotes,.txt)
rline -lc12 @notes $fline(@notes,taille :*,1,1) taille : $file(notes\ $+ %readnotes).size octect
rline -lc12 @notes $fline(@notes,créer le :*,1,1) créer le : $asctime($file(notes\ $+ %readnotes).stime,dd/mm/yy)
rline -lc12 @notes $fline(@notes,modifier le :*,1,1) modifier le : $asctime($file(notes\ $+ %readnotes).mtime,dd/mm/yy)
rline -lc12 @notes $fline(@notes,last accés :*,1,1) last accés : $asctime($file(notes\ $+ %readnotes).atime,dd/mm/yy)
}
}
alias addnotes {
if ( $mid($line(@notes,$calc($fline(@notes,voir notes :,1,1)+1),1),1,1) != . ) {
var %a = 1
while ( %a <= $findfile(notes,*.txt,0) ) {
iline -l $+ $calc( $fline(@notes,voir notes :,1,1) + %a ) @notes $calc( $fline(@notes,voir notes :,1,1) + %a ) . $remove($nopath( $findfile(notes,*.txt,%a) ),.txt)
inc %a
}
}
else {
while ( $mid($line(@notes,$calc($fline(@notes,voir notes :,1,1)+1),1),1,1) == . ) {
dline -l $+ $calc( $fline(@notes,voir notes :,1,1) + 1 ) @notes $calc( $fline(@notes,voir notes :,1,1) + 1 )
}
}
}
alias nouveau {
addnotes
set %readnotes $$?"Enrtrer le nom de votre note :" $+ .txt
write notes\ $+ %readnotes notes :
rline -lc12 @notes $fline(@notes,nbre de notes :*,1,1) nbre de notes : $findfile(notes\,*.txt,0)
readnotes
addnotes
}
alias supprimer {
dialog -m suprimnote suprimnote
}
dialog suprimnote {
title "supprimer"
size -1 -1 60 35
option dbu
button "non" , 1, 31 14 25 10 ,ok
button "oui" , 2, 3 14 25 10
text "" , 3, 3 2 50 10
link "by abdoulax" , 4, 4 26 35 10
}
on *:dialog:suprimnote:init:0:{
did -a suprimnote 3 supprimer $remove(%readnotes,.txt) :
}
on *:dialog:suprimnote:sclick:2:{
addnotes
remove notes\ $+ %readnotes
rline -lc12 @notes $fline(@notes,nbre de notes :*,1,1) nbre de notes : $findfile(notes\,*.txt,0)
dline -lc12 @notes $fline(@notes,notes :*,1,1)
dline -lc12 @notes $fline(@notes,taille :*,1,1)
dline -lc12 @notes $fline(@notes,créer le :*,1,1)
dline -lc12 @notes $fline(@notes,modifier le :*,1,1)
dline -lc12 @notes $fline(@notes,last accés :*,1,1)
addnotes
dialog -x suprimnote suprimnote
unset %readnotes
clear @notes
}
alias raffraichir {
addnotes
addnotes
rline -lc12 @notes $fline(@notes,notes :*,1,1) notes : $remove(%readnotes,.txt)
rline -lc12 @notes $fline(@notes,taille :*,1,1) taille : $file(notes\ $+ %readnotes).size octect
rline -lc12 @notes $fline(@notes,créer le :*,1,1) créer le : $asctime($file(notes\ $+ %readnotes).stime,dd/mm/yy)
rline -lc12 @notes $fline(@notes,modifier le :*,1,1) modifier le : $asctime($file(notes\ $+ %readnotes).mtime,dd/mm/yy)
rline -lc12 @notes $fline(@notes,last accés :*,1,1) last accés : $asctime($file(notes\ $+ %readnotes).atime,dd/mm/yy)
clear @notes
readnotes
}
alias pensebete { dialog -m pensebete pensebete }
dialog pensebete {
title "pense pas bête"
size -1 -1 300 16
option dbu
button "ok",1, 274 3 10 10
edit "" ,2, 4 3 60 10
edit "" ,3, 68 3 202 10
button "X",4, 287 3 10 10 ,ok
}
on *:dialog:pensebete:init:0:{ did -f pensebete 2 }
on 1:KEYDOWN:*:13:{ if ( $did(pensebete,2).edited == $true ) {
write notes\pensebete.txt $calc($lines(notes\pensebete.txt)+1) . %titrebete : %pensebete
unset %pensebete
unset %titrebete
dialog -x pensebete pensebete
if ( %readnotes == pensebete.txt ) { raffraichir }
}
}
on 1:KEYDOWN:*:9:{ if ( $did(pensebete,2).edited == $true ) { did -f pensebete 3 } }
on *:dialog:pensebete:edit:2:{ set %titrebete $did(pensebete,2) }
on *:dialog:pensebete:edit:3:{ set %pensebete $did(pensebete,3) }
on *:dialog:pensebete:sclick:1:{ if ( %titrebete != $null ) {
write notes\pensebete.txt $calc($lines(notes\pensebete.txt)+1) . %titrebete : %pensebete
unset %pensebete
unset %titrebete
if ( %readnotes == pensebete.txt ) { raffraichir }
}
}
on *:dialog:pensebete:sclick:4:{ if ( %titrebete != $null ) {
write notes\pensebete.txt $calc($lines(notes\pensebete.txt)+1) . %titrebete : %pensebete
unset %pensebete
unset %titrebete
dialog -x pensebete pensebete
if ( %readnotes == pensebete.txt ) { raffraichir }
}
}
on *:close:@notes:remove notes\bienvenu.txt
alias suppbete {
set %suppbete $$?="entrer le num de ligne :"
write -dl $+ %suppbete notes\ $+ %readnotes
unset %suppbete
raffraichir
}
Conclusion :
by abdoulax
have fun
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.