$regex

Question

Bonsoir, 
je voudrais ameliorer une partie de mon script. Je voudrais write dans fichier txt une url qui apparait sur un chan.
Jai trouv&#233; ca sur scriptsdb
; Cet ident vous retournera soit :
; - le nom d'url cit&#233;e(s)
; - $true/$false si il y a une url ou pas
; - la N&#232;me adresse cit&#233;e
;Utilisation :
; $curl(blah http://www.ScriptsDB.org c'est super!).state -> retournera $true/$false si il y a une url ou pas
; $curl(blah http://www.ScriptsDB.org c'est super!).nbr -> retournera le nombre total d'url
; $curl(blah http://www.ScriptsDB.org c'est super!,N) -> retournera la N&#232;me url, 0 vous donnera le nombre total d'url
alias curl {
  if ($isid) {
    if ((http:// !isin $strip($1-)) &amp;&amp; (www. !isin $strip($1-)) &amp;&amp; ($prop == state)) { return $ $+ false }
    var %u = /((?:http://|www\.)[-a-z_0-9]+\.\S+)/ig
    if ($regex($strip($1-),%u)) {
      if ($prop == nbr) { return $regml(0) }
      elseif ($prop == state) { return $iif($regml(0),$ $+ true,$ $+ false) }
      else { return $regml($2) }
    }
  }
  else { echo -st $+($,curl) invalid format! }
}

Je voudrais utiliser ce regex la pour mon script, j'ai fait ceci:
on $*:TEXT:/(www|http)/:#:{
  var %u = /((?:http://|www\.)[-a-z_0-9]+\.\S+)/ig
  if ($regex($strip($1-),%u)) {
    write -il1 url.txt $regml($1-)
  }
}

Mais la il me write "1" lorsqu'il y a une url d'afficher. Je comprend pas grand chose au $regex $regml si quelqu'un voit comment write l'url et faire une boucle si par exemple il y avait plusieurs urls dans une meme phrase.
Merci d'avance. :)

fjxokt · Answer

$regml(0) te retourne ne nombre de résultats trouvés
$regml(1) te retoune le premier résultat trouvé
en gros si ta condition if ($regex(blabla)) est vrai alors $regml vaut au moins 1
ensuite il faut que tu parcours les résultats ( de 1 a $regml(0) ) pour récuperer les adresses qui ont été matchées dans ton text

MegaSmax · Answer

Merci tout marche maitenant:
on $*:TEXT:/(www|http)/:#:{
  var %url = /((?:http://|www\.)[-a-z_0-9]+\.\S+)/ig
  if ($regex($strip($1-),%url)) {
    var %reg = $regml(0)
    while (%reg > 0) {
      if (!$read(url.txt,w,$regml(%reg))) {
        write -il1 url.txt $regml(%reg)
      }
      dec %reg
    }
    if ($dialog(mini)) { loadbuf 1-4 -ro mini 12 url.txt }
  }
}
Voila le code au complet, c'est un URL Logger: 
http://www.ircfr.com/code.aspx?ID=35626

$regex

2 réponses

Votre réponse

Discussions similaires