Modification d'un .txt et utilisation concrete ...Résolu

Question

Je m'explique, J'ai un code qui me lis via socket un fichier rss sur un site et qui me le copie sur un .txt en local. et qui ensuite copie le contenue de ce point texte sur mon chan ....
Mais evidement, le point rss il y a des balises, et j'aimerais, pour un souci de clart&#233;, les enlever, en metant par exemple des $replace et/ou des $remove, mais je ne sais pas ou les mettres dans mon code deja existant !!!

Voici mon code :

alias open_socket {
  sockclose news
  sockopen news grosnoob.info 80
}
on *:sockopen:news:{
  if ($sockerr) { return }
  else {
    sockwrite -tn $sockname GET /alsagamer/forums/extern.php?action=active&type=RSS&fid=16 HTTP/1.1 $+ $crlf $+ Host: grosnoob.info $+ $crlf $+ Connection: close $+ $str($crlf, 2)
  }
}
on *:sockread:news:{
  var %r
  sockread %r
  while ($sockbr) {
    tokenize 32 %r
    if ($sock($sockname).mark != 1) {
      if ((HTTP/1.* iswm $1) && (200 == $2)) {
        write -c news.txt
      }
      elseif (!$1) {
        if (!$sock($sockname).mark) {
          sockmark $sockname 1
        }
      }
    }
    else {
      write news.txt %r
    }
    sockread %r
  }
}


alias news_say {  var %i 1, %f news.txt
  while (%i <= $lines(%f)) {
    msg $active $read(%f, %i)
    inc %i
  }
}

Mc_AbBeR · Accepted Answer

ok ok
alias open_socket {
  sockclose news
  sockopen news grosnoob.info 80
}
on *:sockopen:news:{
  if ($sockerr) { return }
  else {
    sockwrite -tn $sockname GET /alsagamer/forums/extern.php?action=active&type=RSS&fid=16 HTTP/1.1 $+ $crlf $+ Host: grosnoob.info $+ $crlf $+ Connection: close $+ $str($crlf, 2)
  }
}
on *:sockread:news:{
  var %r
  sockread %r
  while ($sockbr) {
    tokenize 32 %r
    if ($sock($sockname).mark != 1) {
      if ((HTTP/1.* iswm $1) && (200 == $2)) {
        write -c news.txt
      }
      elseif (!$1) {
        if (!$sock($sockname).mark) {
          sockmark $sockname 1
        }
      }
    }
    else {
      write news.txt %r
    }
    sockread %r
  }
} 
alias news_say {  var %i 1, %f news.txt
  while (%i <= $lines(%f)) {
    msg $active $replace($read(%f,%i),,,,,,,,) 
    inc %i
  }
}

Mc_AbBeR · Answer

Eh ben tu remove toute les balises qui existenet (m&#234;me si ils ne sont pas dans le texte)
$remove($read(%f, %i),,,
,,,,size=,etc..)

Mc_AbBeR · Answer

Enfin bref, toute ses balises servent &#224; quelque chose donc plutot utiliser un $replace.
$replace($read(%f,%i),,,,,,,,)

DragoonMaster · Answer

C'est bien gentil, mais j'aimerais savoir OU je dois le mettre ds mon code ....
je ne sais pas OU le placer (si tu pouvais REPRENDRE mon code, pour l'ajout&#233; ..)

DragoonMaster · Answer

nickel, merci bcp !

Mc_AbBeR · Answer

derien bcp! =P

Mc_AbBeR · Answer

Hmm j'ai envi de gagner un peu + de points moi =o) Clik sur r&#233;ponse accept&#233;e en dessous de mon code la..=p

DragoonMaster · Answer

Si tu repond a cette derniere question :) J'ai donc ce bout de code : alias news_say { var %i 1, %f news.txt, %n = http://www.grosnoob.info/alsagamer/forums/viewforum.php?id=16News while (%i <= $lines(%f)) { msg $active $remove($replace($read(%f,%i),,Titre : ,Posté le:,Date:,$chr(9),$chr(39),<link>,Lien : $chr(32) ), ,,, , ,,,,+0100,,[, ,],;action =new,%n) inc %i } } et ca me donne encore ca : (15:57:40) (@Dr4gOoN) (15:57:40) (@Dr4gOoN) 1e (15:57:40) (@Dr4gOoN) Titre :La ZiLAN #2 (15:57:40) (@Dr4gOoN) 5e (15:57:40) (@Dr4gOoN) Lien : http://www.grosnoob.info/alsagamer/forums/viewtopic.php?id=123& (15:57:40) (@Dr4gOoN) 111 (15:57:40) (@Dr4gOoN) (15:57:40) (@Dr4gOoN) Auteur: XNoll (15:57:40) (@Dr4gOoN) Date: Fri, 05 Nov 2004 08:49:27 (15:57:40) (@Dr4gOoN) Dernier message: Thu, 16 Dec 2004 21:37:24 (15:57:40) (@Dr4gOoN) (15:57:40) (@Dr4gOoN) 12 (15:57:40) (@Dr4gOoN) (15:57:40) (@Dr4gOoN) (15:57:40) (@Dr4gOoN) 0 car enfaite, les les lignes vides = $chr(9) j'aimerais les remplacé par des $chr(32) mais, si je fais ca, il ne me li pas le .txt juska la fin (surement a cause du inc %i) comment je peux faire ?? de plus, j'ai ces numeros, et je ne sais pas d'ou il vienne (12/0/111) ds mon fichier original (sur le site) il n'y sont pas, d'ou vienne til ???

Mc_AbBeR · Answer

La parcontre je ne sais pas... j'ai essayer le code et plusieur possibilit&#233;s...

DragoonMaster · Answer

J'ai essayer comme suit : alias news_say { var %i 1, %j 2, %f = news.txt, %flien = http://www.grosnoob.info/alsagamer/forums/viewforum.php?id=16, %rubrique = News var %alsa.1 = var %alsa.2 = ,Titre: $chr(32),Posté le:,Date:,,Lien: $chr(32),!,!,$chr(9),$chr(160)), ,,, , ,,,,+0100,,[, ,],;action =new,&,%flien $+ %rubrique) inc %i } else ($lines(%f) ison $chr(9)) { var %i = %i + 2 msg $active $remove($replace($read(%f,%i),,Titre: $chr(32),Posté le:,Date:,<link>,Lien: $chr(32),!,!,$chr(9),$chr(160)), ,,, , ,,,,+0100,,[, ,],;action =new,&,%flien $+ %rubrique) } } } ca me donne ca : (19:36:29) (Dr4gOoN) (19:36:29) (Dr4gOoN) 1e (19:36:29) (Dr4gOoN) Titre: La ZiLAN #2 (19:36:29) (Dr4gOoN) 5e (19:36:29) (Dr4gOoN) Lien: http://www.grosnoob.info/alsagamer/forums/viewtopic.php?id=123 (19:36:29) (Dr4gOoN) 111 (19:36:29) (Dr4gOoN) (19:36:29) (Dr4gOoN) Auteur: XNoll (19:36:29) (Dr4gOoN) Date: Fri, 05 Nov 2004 08:49:27 (19:36:29) (Dr4gOoN) Dernier message: Thu, 16 Dec 2004 21:37:24 (19:36:29) (Dr4gOoN) (19:36:29) (Dr4gOoN) 12 (19:36:29) (Dr4gOoN) (19:36:29) (Dr4gOoN) (19:36:29) (Dr4gOoN) 0 enfaite, ca remplacé le $chr(9) par une ligne vide, mais je n'arrive pas lui dire d'incrementé pour arrivé a la ligne qui suit :/

DragoonMaster · Answer

j'ai essayer de changer ca : else ($lines(%f) ison $chr(9)) { var %i = %i + 2 msg $active $remove($replace($read(%f,%i),,Titre: $chr(32),Posté le:,Date:,<link>,Lien: $chr(32),!,!,$chr(9),$chr(160)), ,,, , ,,,,+0100,,[, ,],;action =new,&,%flien $+ %rubrique) } } } en else ($lines(%f) ison $chr(9)) { inc %j msg $active $remove($replace($read(%f, %j ),,Titre: $chr(32),Posté le:,Date:,<link>,Lien: $chr(32),!,!,$chr(9),$chr(160)),,,,, ,,,,+0100,,[, ,],;action =new,&,%flien $+ %rubrique) } } } mais meme chose :(

DragoonMaster · Answer

J'ai trouvé, je les vire pas sur le read, mais sur le write, ca donne ca : alias open_socket { sockclose news sockopen news grosnoob.info 80 } on *:sockopen:news:{ if ($sockerr) { return } else { sockwrite -tn $sockname GET /alsagamer/forums/extern.php?action= active&type=RSS&fid=16 HTTP/1.1 $+ $crlf $+ Host: grosnoob.info $+ $crlf $+ Connection: close $+ $str($crlf, 2) } } on *:sockread:news:{ var %r, %flien = http://www.grosnoob.info/alsagamer/forums/viewforum.php?id=16, %rubrique = News sockread %r while ($sockbr) { tokenize 32 %r if ($sock($sockname).mark != 1) { if ((HTTP/1.* iswm $1) && (200 == $2)) { write -c news.txt } elseif (!$1) { if (!$sock($sockname).mark) { sockmark $sockname 1 } } } else { write news.txt $remove($replace(%r,,Titre: $chr(32),Posté le:,Date:,<link>,Lien: $chr(32),!,!,$chr(9),$chr(32)), ,,, , ,,,,+0100,,[, ,],;action =new,&,%flien $+ %rubrique,,) } sockread %r } } alias news_say { var %i 1, %j 2, %f = news.txt while %i <= $lines(%f) { msg $active $read(%f,%i) inc %i } } } J'ai quand meme un ptit souci, quand je recupere mon fichier rss via socket, pour le copier ds mon "news.txt" il y a des chiffres qui s'ajoute, et je sais pas trop pk, et surtout, comment eviter ca ...

Modification d'un .txt et utilisation concrete ...

12 réponses

Votre réponse

Discussions similaires