[]

վ=ȥtxtС˵
վַ=http://www.27txt.com/
=С˵
=GB2312
½ڵַʶ=(\d+)/txt-(\d+)
ȡбִнű=
ץȡ=1
ʹIE=
ַ=http://www.27txt.com/search.asp?word=$key
=GB2312
POST=
бʼ=</span></div>
б=
б=searchTopic">\d+<a href="(#ַ,[^\"]*?)" title="(#,[^\"]*?)"[\s\S]*?o">(#,[\S\s]*?)<\/div>
ҳַ=http://www.27txt.com/search.asp{1,\d+</b></u>[\s\S]*?<a href="([^\"]*?)"}
{script}
#language pascal

function MyStartDownNew(var content:string;var nosave:boolean):boolean;
var
	html	: string;
	url	: string;
	Matchs	: variant;
begin
	result	:= true;
	nosave	:= true;
	html	:= Down(_sources(_SourceIndex).url);
	if html<>'' then
	begin
		_RegExp.Pattern	:= 'downAddress"[\s\S]*?<a href="([^\"]*?)"';
		Matchs	:= _RegExp.Execute(html);
		url	:= Matchs.Item[0].SubMatches[0];
		//ոļ޷
		url	:= absPath(_sources(_SourceIndex).url, url);
		LG('ļУ'+url);
		Down(url, '', 'GET', '', _data.savedir+_sources(_SourceIndex).name+'.rar');
	end
	else begin
		LG('ʧܣҲĿļַ');
	end;
end;

begin
end.
{/script}
