SRL Archive - Help and Support

Can someone explain to me how to parse websites using SCAR?

I'd like to learn this so I can start on a few projects I've been anxious to begin :)

All help is appreciated.

If this is in wrong place, plz move.

This should give you a few ideas. It's a procedure from one of my scripts that displays the scripts SRL Stats.


The Key things are GetPage; and Between;

procedure showScriptStats(yourScriptID: Integer; thingsToDisplay: array of string);
var
  scriptURL,page: string;
  displayStats,newThingsToDisplay: array of string;
  i: Integer;
begin
  scriptURL := 'http://www.stats.srl-forums.com/index.php?action=' +
               'view_script&id=' + IntToStr(yourScriptID);
  setLength(displayStats, Length(thingsToDisplay));
  setLength(newThingsToDisplay, Length(thingsToDisplay));
  page:= GetPage(scriptURL);
  if(page = '')then
    srl_Warn('showScriptStats', 'Connection error when getting page.', 27);
  if(Length(thingsToDisplay) = 0)then
    srl_Warn('showScriptStats', 'Nothing was given to display.', 27);
  if(yourScriptID < 0)then
    srl_Warn('showScriptStats', 'Invalid script ID.', 27);
  for i:=0 to High(thingsToDisplay) do
  begin
    newThingsToDisplay[i]:= thingsToDisplay[i] + ' ';
  end;
  for i:=0 to High(newThingsToDisplay) do
  begin
    displayStats[i] := Between(newThingsToDisplay[i] + ' : <strong>', '</strong>', page);
  end;
  Writeln('  Tniffoc''s Normal Powerchopper - SRL STATS');
  for i:=0 to High(displayStats) do
  begin
    Writeln('    ' + thingsToDisplay[i] + ': ' + displayStats[i]);
  end;
end;

GetPage(url : string);