[]
վ=ý
վַ=http://html.hjsm.tom.com/
ҳַʶ=book/(\d+)/(\d+)/index
Ŀ¼ַʶ=(\S+)/content\.htm
½ڵַʶ=(\d+)/(\d+)/(\w+),(\w+)$$$$$book_id=\d+&chapter_id=\d+
ݽȡʼ1=style="font-size:14px;">
ݽȡʼ2=<div id="fontsize">
ݽȡ1=<div class="page">
ݽȡ2=<div class="page">
Ҫ滻ַ=(reg)<(div|span)[\s\S]*?<\/\1>$$$$$#space
ҳ滻=(reg)(^\d+)$$$$$html/book/$#1/$#2/$#3,$#4$1
ַ=http://au.hjsm.tom.com/download/search.php?key=$key&mod=book&act=anonsearch
бʼ=</div>
б=<li>
ҳַ={1,<a href="([^\"]*?)"><li>һҳ}
ҳ=0
б=title"><a href="(#ַ,.*?)" target="_blank">(#,.*?)</a></div>[\s\S]*?k">(#,.*?)</a>[\s\S]*?k">(#½,.*?)</span>
С˵Ϣ=<h3>(#,.*?)</h3>$$$$$msgcon">(#,[\s\S]*?)</div>
sort=0
{script}
var
	allpage : integer;
//½ݷǰ
procedure MybeforeSplitContent(var content:string;nowurl:string;repeatindex:integer);
var
	pages : string;
begin
	//ȡҳ
	pages	:= getmidstr(content, '¹<strong>', '</strong>ҳǰΪ');
	allpage := strtoint(pages);
end;

//½ݷ
procedure myAfterSplitContent(var content:string;repeatindex:integer);
var
	url	: string;
	i	: integer;
begin
	//Ϊ1ʱ
	if repeatindex=1 then
	begin
		for i := 1 to allpage-1 do
		begin
			url := replace(_sources(_SourceIndex).url, '.htm', inttostr(i)+'.htm');
			url := Down(url);
			url := getmidstr(DEUTF8(url), F('ݽȡʼ1'), F('ݽȡ1'));
			_RegExp.Pattern	:= '<(div|span)[\s\S]*?<\/\1>';
			url := _RegExp.replace(url, '__');
			content	:= content + url;
		end;
	end;
end;
begin
end.
{/script}