numero de la ligneRésolu

Question

bjr
c pour un petit bot
est il possible d'afficher le n° de la ligne d'un fichier.txt (d'une ligne tirée au sort) ? 
ex: 
le msg # serait :

ligne 25 bla bla bli blo

cs_wims · Accepted Answer

Surement.
J'ai pas bien plus compris, mais ça doit être ça :
Donc c'est toujours $read :

$read(fichier.txt,w,$+(*,mot,*)) retournera la première ligne qui match *mot* et $readn retournera le numero de la ligne

Je suppose que tu n'as percuté ma première phrase a savoir regardé l'aide sur $read.

cs_wims · Answer

/help $read

$read(fichier.txt) retourne une ligne au hasard du fichier
$read(fichier,N) retourne la Nieme ligne du fichier

pour le cas de la ligne au hasard, le numéro de la ligne est retourné par $readn après l'apelle du $read normalement

cs_simoi · Answer

merci WIMS cela je le sais 
 me suis mal exprimé surement
le but est de s'avoir a quelle n° de ligne du fichier txt que cela corespond 
ex:
blobloblo est la 250 éme ligne du fichier txt
 le msg #  250 blobloblo

cs_simoi · Answer

oui j'ai vu pour $readn
hélas arrive pas a l'utiliser
sur l'aide c'est pas trés clair

cs_simoi · Answer

merci wims 
j'ai trouver du moins pour une ligne dite (entiérement) car pour une partie de la ligne cla fontionne pas.

cs_simoi · Answer

erreure de ma part le $readn me donne tourjour la ligne 1 alors que cela est une ligne aléatoire

WorldDMT · Answer

salut

"merci WIMS cela je le sais 
 me suis mal exprimé surement
le but est de s'avoir a quelle n° de ligne du fichier txt que cela corespond 
ex:
blobloblo est la 250 éme ligne du fichier txt
 le msg #  250 blobloblo"

donc il ne veu pas chercher le premier mot, au cas qu'il y a 2 ligne qui comencent par le meme mot ça va pas marcher non?
moi je ferai ça

on *:text:*:#:{
  var %l = $lines(le_nom_du_fichier.txt)
  var %i = 0
  while %i < %l {
    inc %i 
    if ($1- == $gettok($read(le_nom_du_fichier.txt,%i),1-,32)) {
      msg # %i $1-
    }
  }
}

comme ça il aura le n° de la ligne avec le text (ça si c'est le cas si tu veu tu met l'entete on input ou autre)

cs_simoi · Answer

merci Worldbmt 


mais cela bug

WorldDMT · Answer

de rien
mais bug cmt ??

c'est quoi ton code exactement pour savoir le cas mais si non ce que tu demandais c'est ça que j'ai compris alors explique plus stp on pourra plus t'aidé

WorldDMT · Answer

c'est pas un bot quizz que tu essaye de faire par exemple?

cs_simoi · Answer

alias kij { 
   var %qt1 $read(dati.txt)
    set %qq $gettok(%qt,1,47) 
  set %rq $gettok(%qt,2,47)
  timerdebut 1 2  /msg $chan&#x0;2;&#x0;3;1,0 Question : &#x0;2;&#x0;3;1,9 %qq &#x0;3;
blablalblal........................................... 
} 
 j'ai abbrégé
c'est au niveau du msg que je veux incorporer le n° de la ligne

WorldDMT · Answer

ok j'avais compris le but alors ya plein de bot de quizz ds le site cherche et tu aura des idées mais bon pour ta question
c'est quoi "%qt" ?? c'est pas "%qt1" ??

donc

alias kij { 
  var %l = $lines(dati.txt)
  var %i = 0
  while %i < %l {
    inc %i 
    var %qt $read(dati.txt,%i)
    set %qq $gettok(%qt,1,47) 
    set %rq $gettok(%qt,2,47)
    set %ligne %i
    timerdebut 1 2  /msg $chan&#x0;2;&#x0;3;1,0 Question : &#x0;2;&#x0;3;1,9 %qq &#x0;3;
    blablalblal........................................... 
  } 
}
on *:text:*:#:{
  if ($1- == %rq) {
    msg # %ligne $1-
  }
}

j'ai pas testé mais normalment si j'ai pas oublié quelque chose ça doi marcher

cs_simoi · Answer

oui c'est  " %qt "
 par contre cette ligne est en défaut de parametre pourquoi ? " var %qt $read(dati.txt,%i)"
est  quand le bot démare il s'arête plus  (bug) lol

cs_simoi · Answer

oui j'ai vu il manque le = aprés %qt

WorldDMT · Answer

lol wé je t'avais dis j'ai pas testé mais bon dejà ce que tu essaye de faire n'est pas complet comme les autres bot quizz sauf tu n'a pas tout declaré :p mais bon selon ce que tu veu ça devien comme ça si tu veu

alias kij { 
  var %qt = $read(dati.txt)
  var %l = $lines(dati.txt)
  var %i = 0
  while %i < %l {
    inc %i 
    if (%qt == $gettok($read(dati.txt,%i),1-,47)) {
      set %qq $gettok($read(dati.txt,%i),1,47) 
      set %rq $gettok($read(dati.txt,%i),2,47)
      set %ligneq %i
      timerdebut 1 2  /msg # &#x0;2;&#x0;3;1,0 Question : &#x0;2;&#x0;3;1,9 %qq &#x0;3;
    } 
  }
}
on *:text:*:#:{
  if ($1 == !stop) { unset %*q | msg # &#x0;2;&#x0;3;1,9 quizz est deactivé &#x0;2; }
  if ($1 == !quizz) { kij | msg # &#x0;2;&#x0;3;1,9 quizz est activé &#x0;2; }
  if ($1- == %rq) {
    msg # %ligneq $1-
    kij $1-
  }
}

et j'ai testé sur quelque petites question essaye chez toi dans un grand fichier mais il va falloir que tu ajoute que la reponse est composé de combien de lettres et les aides si non c'est dejà present les bots quizz

cs_simoi · Answer

désolé de pas avoir répondu plus vite 
merci pour tout

Numero de la ligne

16 réponses

Votre réponse

Discussions similaires