で、実際のコードはこちらになります
※無闇に走らせないで下さい
#include "hspinet.as"
#module
#defcfunc clip var text, int p, str str1, str str2
p1 = instr(text, p, str1)
if(p1 == -1) :return ""
p2 = instr(text, p + p1 + strlen(str1), str2)
if(p2 == -1) :return ""
return strmid(text, p + p1 + strlen(str1), p2)
#global
string1 = "margin-top:1px;\">"
string2 = "</a>"
string3 = "width=\"130\"><p>"
string4 = "</p>"
netinit
;netproxy "hogehoge.jp",8080
;number = 56422
number = 68835
//ダウンロード
neturl "http://hsp.tv/play/"
netrequest_get "pforum.php?mode=all&num=" + number
repeat
netexec res
if(res != 0) :break
await 5
loop
if(res < 0) :stop
netgetv retval
nkfcnv decoded, retval, "-c", -1, 32000
//加工
sdim output, 32000
output += "<html lang=\"ja\">\n"
output += "<head>\n"
output += "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=Shift_JIS\">\n"
output += "<meta http-equiv=\"Content-Style-Type\" content=\"text/css\">\n"
output += "<title>\n"
output += clip(decoded, 0, "margin-top:1px;\">", "</a>") + "\n</title>\n"
output += "</head>\n"
output += "<body>\n"
output += "<font color=\"midnightblue\">"
output += "<big>"
output += clip(decoded, 0, "margin-top:1px;\">", "</a>") + "</big>"
output += "</font>"
output += "<br>"
output += "<hr>"
;ループ
p = instr(decoded, 0 ,"<a name=") + strlen("<a name=")
repeat
output += "<font color=\"royalblue\">"
output += clip(decoded, p, "width=\"130\"><p>", "</p>") + "</font>"
output += "<small> "
output += clip(decoded, p, "<p class=\"numberres\">\n", "<span>") + ""
output += "<span>|</span>"
output += clip(decoded, p, "</span>", "</p>") + ""
output += "</small>"
output += "<br>"
output += "<br>"
output += clip(decoded, p, "<div class=\"main\">\n", "</div>") + "<br><hr>"
if(instr(decoded, p ,"<a name=") == -1) :break
p += instr(decoded, p ,"<a name=") + strlen("<a name=")
loop
output += "</body>\n</html> \n"
notesel output :notesave strf("%06d", number) + "_.htm"
end
HSP_Forum_logのようなものを作成するツール作ってみた
