View Single Post
Old Sep 1st, 2011, 6:02:23 PM   #3
firecape
This is the end...
is a Contributor to Smogonis a Forum Moderator Alumnus
 
firecape's Avatar
 
Join Date: Mar 2010
Posts: 1,048
This storys old, but it goes on and on until we disappear
Default

I made another one for easily htmling speed tiers. It has a limit to the amount of text you can enter at one, and you'll have to do the headers yourself, but it will html the entire body, including linking to the appropriate pokemon. Also please note its set to erase the previous file on each use, so c/p what you need, then enter the next part. Also, the rows must be in the format Speed / Name / Base / Nature / EVs / Boost for it to work (spacing and dashes included). All you have to do is enter it into remote, type "/htmltable", c/p the speed tier section into the dialog box, then click done, Here it is:

Code:
alias htmltable {
dialog -md table table }
dialog table {
  title "table to html by firecape"
  size -1 -1 275 335
  option dbu
  edit "", 1, 2.5 10 270 300, multi
  text "Paste Here", 2, 112 1 50 9, center
  button "Done", 5, 80 313 125 12, ok
}
on *:dialog:table:sclick:5: {
  var %line 1
  write -c htmltable.txt
  while ($did(table,1,%line) != $null) {
    var %column 1
    write htmltable.txt <tr> 
    while (%column < 7) {
      if (%column != 2) { write htmltable.txt <td> $+ $remove($gettok($did(table,1,%line),%column,47),$chr(32)) $+ </td> }
      else { 
        var %pokemonamount $numtok($gettok($did(table,1,%line),2,47),32)
        var %currentpokemon 1
        var %a <td>
        while (%pokemonamount >= %currentpokemon) {
          var %a %a $+ $remove($remove(<a href="/bw/pokemon/ $+ $gettok($gettok($did(table,1,%line),2,47),%currentpokemon,32),$chr(42)) $+ ">,$chr(44)) $+ $remove($remove($gettok($gettok($did(table,1,%line),2,47),%currentpokemon,32),$chr(42)),$chr(44)) $+ </a> 
        inc %currentpokemon }
        var %a $replace(%a,</a><a href,</a> $+ $chr(44) <a href)
        var %a %a $+ </td>
        write htmltable.txt %a
      }
    inc %column }
    write htmltable.txt </tr>
  inc %line }
  run htmltable.txt
}
__________________
I DONT DESERVE YOU
firecape is offline   Reply With Quote