rj
2013-06-30 18:02:57
I was messing around with GetPage and meh well made this:
Useless but fun to play around with
I guess it could mess up the title if somebody puts <title> </title> in their thread (I could filter that but meh)
{$I SRL/SRL.Simba}
var
g, ID, content, title, Filter_Name, SRLName:string;
begin
Cleardebug;
InputQuery('Thread displayer','Enter thread ID',ID);
g := GetPage('http://villavu.com/forum/showthread.php?t=' + ID);
title := Between('<title>', '</title>', g);
content := Between('<meta name="description" content="', '" />', g);
Writeln('ID: ' + ID);
Writeln('Title: ' + title);
Writeln('');
Writeln(content);
end. Useless but fun to play around with
I guess it could mess up the title if somebody puts <title> </title> in their thread (I could filter that but meh)