#include "hspinet.as"
#define target_num"1136120025"
netinit
neturl "http://game9.2ch.net/test/read.cgi/tcg/"
netload target_num
sdim d_note,5000000
notesel d_note
noteload target_num
bb = "\n"
cc = "\r\n"
newcom oReg,"VBScript.RegExp"
comres result
oReg("Pattern")=bb
oReg->"Replace" d_note,cc
d_note=result
bb = "^[^<].*$|^<[^d].*$|^<d[^t].*$"
cc = ""
comres result
oReg("Pattern")=bb
oReg->"Replace" d_note,cc
d_note=result
bb = ".*ID:([\w/+]+)(\<dd| \<a ).*"
cc = "\1"
comres result
oReg("Pattern")=bb
oReg->"Replace" d_note,cc
d_note=result
notesave target_num
print "完了"

・・・なんか置換が動いていない気がする・・・