Log pour mirc

Commenter

Contenu du snippet

Log Pour Mirc Pour Louvir Taper /logs

Source / Exemple : 


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.* }

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 (KeViNprat)