Forums Scripts & Popups Regex question

%regexp = /<a href="\x2ftitle\x2ftt(\d+)\x2f[^"]*"(?: onclick="set_args\x28'tt\1'\x2c1,1\x29")?>([^<]+)</a>/i

<a href="/title/tt0847163/" onclick="(new Image()).src='/rg/find-title-1/title_exact/images/b.gif?link=/title/tt0847163/';">Family Guy</a> (2006) (VG) </td></tr></table> </p> <p>

$nohtml($regml(imdb,1) $regml(imdb,2))

  var %line = <a href="/title/tt0847163/" onclick="(new Image()).src='/rg/find-title-1/title_exact/images/b.gif?link=/title/tt0847163/';">Family Guy</a> (2006) (VG) </td></tr></table> </p> <p>
  var %reg = /<a href="\/title\/tt(\d+)\/" onclick=".+\/title_exact.+\?link=\/title\/tt(\d+)\/';">([^<]+)</a>/i
  if ($regex(%line,%reg)){ echo -a 1st linkN: $regml(1) 2nd linkN: $regml(2) Title: $regml(3)

; /socktest <search string>

alias socktest {
  if ($sock(imdb)) sockclose imdb
  sockopen imdb imdb.com 80
  sockmark imdb $replace($$1-,$chr(32),$(%20,0))
  .timer 1 10 sockclose imdb
}

on *:sockopen:imdb: {
  sockwrite -n $sockname get $+(/find?q=,$sock($sockname).mark,;s=tt) HTTP/1.0
  sockwrite -n $sockname Host: www.imdb.com
  sockwrite $sockname $crlf
}

on *:sockread:imdb: {
  if ($sockerr) { echo -a error | return }
  var %read
  sockread %read
  if ($gettok(%read,1-2,32) == <p><b>Popular Titles</b>) { 

    var %reg = /\/find-title-(\d+)\/title_popular\/images\/b.gif\?link=\/title\/tt(\d+)\/';">(.+?)(?=<br>|<\/td>)/gi
    noop $regex(imdb,%read,%reg)
    if ($regml(imdb,1)) ECHO -a POPULAR MATCHES
    var %n = 1
    while ($regml(imdb,%n)) {
      ECHO -a No.: $regml(imdb,%n) LinkNo: $regml(imdb,$calc(%n +1)) $&
        Text: $regsubex( $regsubex($regml(imdb,$calc(%n +2)),/<.+?>/g,$null) ,/&#(\d+);/g,$chr(\1))
      inc %n 3
    }

    var %reg = /\/find-title-(\d+)\/title_exact\/images\/b.gif\?link=\/title\/tt(\d+)\/';">(.+?)(?=<br>|<\/td>)/gi
    noop $regex(imdb,%read,%reg)
    if ($regml(imdb,1)) ECHO -a EXACT MATCHES
    var %n = 1
    while ($regml(imdb,%n)) {
      ECHO -a No.: $regml(imdb,%n) LinkNo: $regml(imdb,$calc(%n +1)) $&
        Text: $regsubex( $regsubex($regml(imdb,$calc(%n +2)),/<.+?>/g,$null) ,/&#(\d+);/g,$chr(\1))
      inc %n 3
    }
    sockclose imdb
  }
}

on *:SOCKREAD:imdb.*:{
  if ($sockerr) {
    !echo -ecs info * Could not read from socket ' $+ $sockname $+ ' ( $+ $gettok($sock($sockname).wsmsg,2-,32) $+ )
    hfree -w $sockname
    return
  }
  var %data
  if (*.fetchquotes.* iswm $sockname) {
    sockread -n &data
    while ($sockbr) {
      %data = $bvar(&data,1-930).text
      var %id = $hget($sockname,id)
      if (<a name="qt*"></a> iswm %data) {
        var %quoteid = $gettok(%data,2,34)
        hadd -m $sockname quoteid %quoteid
        if (!$isdir(imdbquotes)) mkdir imdbquotes
        if (!$isdir(%id)) mkdir imdbquotes\ $+ %id
        var %file = imdbquotes\ $+ %id $+ \ $+ %quoteid $+ .dat
        if ($isfile(%file)) write -c %file
      }
      elseif (%data == <hr width="30%">) || (<div align="center"> * iswm %data) || (*Related Links* iswm %data) {
        if $hget($sockname,quoteid) {
          hinc -m $sockname count
          hdel -w $sockname quoteid
        }
      }
      elseif ($hget($sockname,quoteid)) {
        var %quoteid = $ifmatch, %file = imdbquotes\ $+ %id $+ \ $+ %quoteid $+ .dat
        if (%data != $null) {
          var %string = $nohtml(%data)
          if (%string != $null) {
            bset -t &info 1 %string
            bset &info $calc($bvar(&info,0) + 1) $iif($right(%data,1) == :,32,13 10)
            bwrite %file -1 -1 &info
            bunset &data &info
          }
        }
      }
      sockread -n &data
    }
  }
  else {
    sockread %data
    while ($sockbr) {
      var %regexp = /<a href="\x2ftitle\x2ftt(\d+)\x2f[^"]*"(?: onclick="set_args\x28'tt\1'\x2c1,1\x29")?>([^<]+)</a>/i
      if ($regex(imdb,%data,%regexp)) {
        hadd -m $sockname $calc($hget($sockname,0).item - 1) $nohtml($regml(imdb,1) $regml(imdb,2))
      }
      elseif (!$dialog(imdbquotes) && %data == <h2>Other Results</h2>) {
        hadd -m $sockname $calc($hget($sockname,0).item - 1) -
      }
      sockread %data
    }
  }
}

on *:sockread:imdb: {
  :read
  sockread -fn &imdbtemp
  if ($sockbr) {
    bwrite temp.txt -1 -1 &imdbtemp
    goto read
  }
}

 
on *:sockclose:imdb:{
  if ($isfile(temp.txt)) { 
    ; read whole page into binvar
    bread temp.txt 0 $file(temp.txt).size &imdb

    ;    ECHO -a binvar has $bvar(&imdb,0) bytes

    ; relevant line starts with:       [SPACE]<p><b>
    ; set pointer at the start of the relevant line. set end of that line
    var %pos = $bfind(&imdb,1,$chr(32) $+ <p><b>).text, %end = $bfind(&imdb,%pos,0)

    ;    ECHO -a linestart +300: $bvar(&imdb,%pos,300).text
    ;    ECHO -a lineend -300: $bvar(&imdb,$calc(%end -300),300).text

    ; set indicating "start text" for all the chunks-to-get:       onclick="(new Image()).src='/rg/find-title-
    var %find = onclick="(new Image()).src='/rg/find-title-

    ; set regex for matching and capturing
    var %reg = /\/find-title-\d+\/title_(\w+)\/images\/b\.gif\?link=\/title\/tt(\d+)\/';">(.+)<\/a>/

    ; this reg is just an alternative to include "aka, year" etc.
    var %reg2 = /\/find-title-\d+\/title_(\w+)\/images\/b\.gif\?link=\/title\/tt(\d+)\/';">(.+)/

    ; loop all occurrences of %find, up to the end of the relevant line
    while ((%pos < %end) && ($bfind(&imdb,%pos,%find).text)) {

      ; set pointer to the "end marker of this chunk":       </td> 
      var %pos = $bfind(&imdb,$v1,</td>).text

      ; current chunk
      var %chunk = $bvar(&imdb,$v1,$calc(%pos - $v1)).text

      ;    ECHO -a current chunk: %chunk

      if ($regex(%chunk,%reg)) { ECHO -a Type: $regml(1) Nr: $regml(2) Text: $regml(3) }

      ;    else ECHO -a skipped a chunk
    }

    ; remove tempfile
    .remove temp.txt
  }
}

on *:SOCKREAD:YOURSOCKNAME: {

  ; - your error handling etc here -

  :read
  sockread -fn &YOURBINVAR
  if ($sockbr) {

    ; start writing at     [linestart][space]<p><b>     (skip ~5k-15k+ bytes at the start)
    if ($bvar(&YOURBINVAR,1,7).text == $chr(32) $+ <p><b>) { set -e %imdb.line $true }

    ; close socket at     [linestart]<b>Suggestions For Improving Your Results</b>     (skip ~7k bytes at the end)
    elseif ($bvar(&YOURBINVAR,1,45).text == <b>Suggestions For Improving Your Results</b>) {
      imdb.sockclose $sockname
      sockclose $sockname
      return
    }

    ; write read to tempfile
    if (%imdb.line == $true) { bwrite YOURTEMPFILE -1 -1 &YOURBINVAR }

    goto read
  }
}

on *:SOCKCLOSE:YOURSOCKNAME:{ imdb.sockclose $sockname }

alias -l imdb.sockclose {
  unset %imdb.line
  - the code you had in the sockclose event here. - 
  - $sockname is now $1; you could pass sockmarks as well -
}