Trouver une ressource (Nouvelle version du moteur, plus rapide & pertinent, essayez le !)
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
LOG POUR MIRC
Information sur la source
Description
Log Pour Mirc Pour Louvir Taper /logs
Source
- alias logs {
- if ($window(@Logs) == $null) { window -moabel15 @Logs 100 100 600 300 @Logs Verdana 12 }
- else { clear -l @Logviewer }
- window -nls @Loglist Verdana 12
- aline -l @logs 4Fichiers log :4
- set %logview.num 1
- :loop
- set %logview.log $findfile($logdir,*.log,%logview.num)
- if (%logview.log == $null) { goto part2 }
- aline -l @Loglist $nopath(%logview.log)
- inc %logview.num 1
- goto loop
- :part2
- set %logview.total $line(@Loglist,0,0)
- set %logview.num 1
- :loop2
- if (%logview.num > %logview.total) { goto end }
- aline -l @Logs $line(@Loglist,%logview.num)
- inc %logview.num 1
- goto loop2
- :end
- aline @Logs Fin de listage des logs.
- window -c @Loglist
- unset %logview.*
- }
-
-
- alias -l logview.viewlog {
- if (($sline(@Logs,1).ln == 1) || ($sline(@Logs,1) == $null)) { halt }
- set %logview.file $logdir $+ $sline(@Logs,1)
- set %nameof.défautlog $sline(@Logs,1)
- clear @Logs
- aline @Logs Visualisation de $+ $sline(@Logs,1) $+ :
- titlebar @Logs ( $+ $sline(@Logs,1) $+ )
- loadbuf -p @Logs $shortfn(%logview.file)
- sline @Logs 20
- unset %logview.file
- }
- alias -l logview.search {
- if (%nameof.défautlog == $null) { aline @logs 4Error! Tu dois voir un log en premier. | halt }
- if ($window(@IDTLogsearch) == $null) { window -moabel @IDTLogsearch 150 150 450 300 @IDTLogsearch Verdana 12 }
- else { /clear @IDTLogsearch }
- set %logview.file $logdir $+ %nameof.défautlog
- titlebar @IDTLogsearch ( $+ %nameof.défautlog $+ )
- set %logview.searchstring * ( $+ ( $$?="Text to search for?" ) $+ ) *
- aline @IDTLogsearch Searching %nameof.défautlog for %logview.searchstring
- aline @IDTLogsearch (#)____________(Texte)________________________________________
- filter -fwnp %logview.file @IDTLogsearch %logview.searchstring
- unset %logview.*
- }
- alias -l logview.gotoline {
- if (($sline(@IDTLogsearch,1).ln == 1) || ($sline(@IDTLogsearch,1).ln == 2) || ($sline(@IDTLogsearch,1).ln == $null)) { halt }
- sline @logs $calc($gettok($sline(@IDTLogsearch,1),1,32) + 2)
- window -a @logs
- }
- alias -l logview.delete {
- if (($sline(@logs,1).ln == 1) || ($sline(@logs,1) == $null)) { halt }
- set %logview.total $sline(@logs,0)
- set %logview.num 1
- :loop
- if (%logview.num > %logview.total) { goto end }
- ;set %logview.file $logdir $+ $sline(@logs,%logview.num)
- set %logview.file $sline(@logs,%logview.num)
- set %logview.yesno $$?!="Veux tu effacer $sline(@logs,%logview.num) $+ ?"
- if (%logview.yesno) {
- remove %logview.file
- if (%nameof.défautlog == $sline(@logs,%logview.num)) { clear @logs | unset %nameof.défautlog }
- }
- inc %logview.num
- goto loop
- :end
- unset %logview.*
- idtlogs
- }
- alias kk { run $scriptdir $+ logs }
- alias -l logview.copy {
- if (($sline(@logs,1).ln == 1) || ($sline(@logs,1) == $null)) { halt }
- set %logview.total $sline(@logs,0)
- set %logview.num 1
- :loop
- if (%logview.num > %logview.total) { goto end }
- set %logview.file $logdir $+ $sline(@logs,%logview.num)
- set %logview.yesno $$?!="Veux tu copier $sline(@logs,%logview.num) $+ ?"
- if (%logview.yesno) {
- copy %logview.file $$sdir="Sélectionner un répertoire à copier $sline(@logs,%logview.num) to:" $+ $sline(@logs,%logview.num)
- if (%nameof.défautlog == $sline(@logs,%logview.num)) { clear @logs | unset %nameof.défautlog }
- }
- inc %logview.num
- goto loop
- :end
- unset %logview.*
- idtlogs
- }
- alias -l logview.rename {
- if (($sline(@logs,1).ln == 1) || ($sline(@logs,1) == $null)) { halt }
- set %logview.total $sline(@logs,0)
- set %logview.num 1
- :loop
- if (%logview.num > %logview.total) { goto end }
- set %logview.file $logdir $+ $sline(@logs,%logview.num)
- set %logview.yesno $$?!="Veux tu renommer $sline(@logs,%logview.num) $+ ?"
- if (%logview.yesno) {
- rename $logdir $+ $sline(@logs,%logview.num) $logdir $+ $$?="Entrer un nouveau nom de fichier :"
- if (%nameof.défautlog == $sline(@logs,%logview.num)) { clear @logs | unset %nameof.défautlog }
- }
- inc %logview.num
- goto loop
- :end
- unset %logview.*
- idtlogs
- }
-
- alias -l logview.notepad {
- if (($sline(@logs,1).ln == 1) || ($sline(@logs,1) == $null)) { halt }
- set %logview.total $sline(@logs,0)
- set %logview.num 1
- :loop
- if (%logview.num > %logview.total) { goto end }
- set %logview.file $logdir $+ $sline(@logs,%logview.num)
- run notepad.exe %logview.file
- inc %logview.num
- goto loop
- :end
- unset %logview.*
- idtlogs
- }
- menu @logs {
- dclick logview.viewlog $sline(@logs,1)
- Lister les logs:/idtlogs
- Voir le log:/logview.viewlog $sline(@logs,1)
- Chercher dans log:/logview.search
- Copier log(s):/logview.copy
- Effacer log(s):/logview.delete
- Aller au dossier des logs:/kk
- Renommer log(s):/logview.rename
- Ouvrir log(s) dans notepad:/logview.notepad
- Effacer:/clear @logs
- Fermer:/window -c @logs
- }
-
- menu @IDTLogsearch {
- dclick /logview.gotoline
- Goto line:/logview.gotoline
- Close:/window -c @IDTLogsearch
- ReSearch:/logview.search
- }
- on *:CLOSE:@logs: { unset %nameof.défautlog }
- on 1:UNLOAD: { unset %nameof.défautlog %logview.* }
alias logs {
if ($window(@Logs) == $null) { window -moabel15 @Logs 100 100 600 300 @Logs Verdana 12 }
else { clear -l @Logviewer }
window -nls @Loglist Verdana 12
aline -l @logs 4Fichiers log :4
set %logview.num 1
:loop
set %logview.log $findfile($logdir,*.log,%logview.num)
if (%logview.log == $null) { goto part2 }
aline -l @Loglist $nopath(%logview.log)
inc %logview.num 1
goto loop
:part2
set %logview.total $line(@Loglist,0,0)
set %logview.num 1
:loop2
if (%logview.num > %logview.total) { goto end }
aline -l @Logs $line(@Loglist,%logview.num)
inc %logview.num 1
goto loop2
:end
aline @Logs Fin de listage des logs.
window -c @Loglist
unset %logview.*
}
alias -l logview.viewlog {
if (($sline(@Logs,1).ln == 1) || ($sline(@Logs,1) == $null)) { halt }
set %logview.file $logdir $+ $sline(@Logs,1)
set %nameof.défautlog $sline(@Logs,1)
clear @Logs
aline @Logs Visualisation de $+ $sline(@Logs,1) $+ :
titlebar @Logs ( $+ $sline(@Logs,1) $+ )
loadbuf -p @Logs $shortfn(%logview.file)
sline @Logs 20
unset %logview.file
}
alias -l logview.search {
if (%nameof.défautlog == $null) { aline @logs 4Error! Tu dois voir un log en premier. | halt }
if ($window(@IDTLogsearch) == $null) { window -moabel @IDTLogsearch 150 150 450 300 @IDTLogsearch Verdana 12 }
else { /clear @IDTLogsearch }
set %logview.file $logdir $+ %nameof.défautlog
titlebar @IDTLogsearch ( $+ %nameof.défautlog $+ )
set %logview.searchstring * ( $+ ( $$?="Text to search for?" ) $+ ) *
aline @IDTLogsearch Searching %nameof.défautlog for %logview.searchstring
aline @IDTLogsearch (#)____________(Texte)________________________________________
filter -fwnp %logview.file @IDTLogsearch %logview.searchstring
unset %logview.*
}
alias -l logview.gotoline {
if (($sline(@IDTLogsearch,1).ln == 1) || ($sline(@IDTLogsearch,1).ln == 2) || ($sline(@IDTLogsearch,1).ln == $null)) { halt }
sline @logs $calc($gettok($sline(@IDTLogsearch,1),1,32) + 2)
window -a @logs
}
alias -l logview.delete {
if (($sline(@logs,1).ln == 1) || ($sline(@logs,1) == $null)) { halt }
set %logview.total $sline(@logs,0)
set %logview.num 1
:loop
if (%logview.num > %logview.total) { goto end }
;set %logview.file $logdir $+ $sline(@logs,%logview.num)
set %logview.file $sline(@logs,%logview.num)
set %logview.yesno $$?!="Veux tu effacer $sline(@logs,%logview.num) $+ ?"
if (%logview.yesno) {
remove %logview.file
if (%nameof.défautlog == $sline(@logs,%logview.num)) { clear @logs | unset %nameof.défautlog }
}
inc %logview.num
goto loop
:end
unset %logview.*
idtlogs
}
alias kk { run $scriptdir $+ logs }
alias -l logview.copy {
if (($sline(@logs,1).ln == 1) || ($sline(@logs,1) == $null)) { halt }
set %logview.total $sline(@logs,0)
set %logview.num 1
:loop
if (%logview.num > %logview.total) { goto end }
set %logview.file $logdir $+ $sline(@logs,%logview.num)
set %logview.yesno $$?!="Veux tu copier $sline(@logs,%logview.num) $+ ?"
if (%logview.yesno) {
copy %logview.file $$sdir="Sélectionner un répertoire à copier $sline(@logs,%logview.num) to:" $+ $sline(@logs,%logview.num)
if (%nameof.défautlog == $sline(@logs,%logview.num)) { clear @logs | unset %nameof.défautlog }
}
inc %logview.num
goto loop
:end
unset %logview.*
idtlogs
}
alias -l logview.rename {
if (($sline(@logs,1).ln == 1) || ($sline(@logs,1) == $null)) { halt }
set %logview.total $sline(@logs,0)
set %logview.num 1
:loop
if (%logview.num > %logview.total) { goto end }
set %logview.file $logdir $+ $sline(@logs,%logview.num)
set %logview.yesno $$?!="Veux tu renommer $sline(@logs,%logview.num) $+ ?"
if (%logview.yesno) {
rename $logdir $+ $sline(@logs,%logview.num) $logdir $+ $$?="Entrer un nouveau nom de fichier :"
if (%nameof.défautlog == $sline(@logs,%logview.num)) { clear @logs | unset %nameof.défautlog }
}
inc %logview.num
goto loop
:end
unset %logview.*
idtlogs
}
alias -l logview.notepad {
if (($sline(@logs,1).ln == 1) || ($sline(@logs,1) == $null)) { halt }
set %logview.total $sline(@logs,0)
set %logview.num 1
:loop
if (%logview.num > %logview.total) { goto end }
set %logview.file $logdir $+ $sline(@logs,%logview.num)
run notepad.exe %logview.file
inc %logview.num
goto loop
:end
unset %logview.*
idtlogs
}
menu @logs {
dclick logview.viewlog $sline(@logs,1)
Lister les logs:/idtlogs
Voir le log:/logview.viewlog $sline(@logs,1)
Chercher dans log:/logview.search
Copier log(s):/logview.copy
Effacer log(s):/logview.delete
Aller au dossier des logs:/kk
Renommer log(s):/logview.rename
Ouvrir log(s) dans notepad:/logview.notepad
Effacer:/clear @logs
Fermer:/window -c @logs
}
menu @IDTLogsearch {
dclick /logview.gotoline
Goto line:/logview.gotoline
Close:/window -c @IDTLogsearch
ReSearch:/logview.search
}
on *:CLOSE:@logs: { unset %nameof.défautlog }
on 1:UNLOAD: { unset %nameof.défautlog %logview.* }
Sources de la même categorie
Commentaires
|
CalendriCode
| | | L | M | M | J | V | S | D |
| | | | | 1 | 2 | 3 |
| 4 | 5 | 6 | 7 | 8 | 9 | 10 |
| 11 | 12 | 13 | 14 | 15 | 16 | 17 |
| 18 | 19 | 20 | 21 | 22 | 23 | 24 |
| 25 | 26 | 27 | 28 | 29 | 30 | 31 |
|
|