Lire toutes les lignes d'un fichier texte

Commenter

Contenu du snippet 

## fonction pour lire un fichier dans le dossier log
# syntaxe: readlog pseudo nom-fichier nombre-de-ligne ( mettre 0 dans nombre-de-ligne pour lire tout le fichier )
proc readlog {pseudo fichier numero} {
if { $numero == 0 } {
set fichierlog [open "./log/$fichier" "r+"]
set contenu [ read -nonewline $fichierlog]

foreach ligne [split $contenu "\n"] {
putfast "privmsg $pseudo : $ligne"
}
} else {
         set fichierlog [open "| tail -n $numero ./log/$fichier" "r+"]
         set contenu [ read -nonewline $fichierlog]
         foreach ligne [split $contenu "\n"] {
         putfast "privmsg $pseudo : $ligne"
                                             }
      }
}

Compatibilité : Tcl

Disponible dans d'autres langages :

A voir également

Du même auteur (Lutinore)