SRL Archive - OSR Help

how can i parse this XML

http://pastebin.com/raw.php?i=cQh47fBJ


so that each loop i do i can fill these variables
e.g.
for first loop

colour = 2565928
x = 976
y = 228


loop 2

colour = 2763307
x = 970
y = 208


and so on ..

i started on it using GetPage but im having problem going down line .=/

Remote := GetPage('http://pastebin.com/raw.php?i=cQh47fBJ');
  writeln('hi');
  for I := 0 to 31 do
  begin
  RemoteVersion := StrToInt(Between('</Item', '>', Remote));
   writeln(RemoteVersion);
   end;
  Colour := StrToInt(Between('<Colour>', '</Colour>', Remote));
  CoordX := StrToInt(Between('<CoordX>', '</CoordX>', Remote));
  CoordX := StrToInt(Between('<CoordY>', '</CoordY>', Remote));        

Why use XML? Why not just build an array of the values in your script? Or better yet, a object model.

Hello, there you go :)

Program Get_Info;


var
  Name, Colour, CoordX, CoordY, Part, Source :String;
  I :Integer;


begin
  Source := GetPage('http://pastebin.com/raw.php?i=cQh47fBJ');
  for I := 0 to 31 do
  begin
    Part := Between('<Item' + IntToStr(I) + '>', '</Data>', Source);
    Name := Between('<Name>', '</Name>', Part);
    Colour := Between('<Colour>', '</Colour>', Part);
    CoordX := Between('<CoordX>', '</CoordX>', Part);
    CoordY := Between('<CoordY>', '</CoordY>', Part);

    WriteLn('Information For Current Data(' + IntToStr(I) + ')');
    WriteLn(Name);
    WriteLn(Colour);
    WriteLn(CoordX);
    WriteLn(CoordY);
  end;
end. 

~Home

wow thanks man , but i was jsut wondering how u managedd to scan each line
Part := Between('<Item' + IntToStr(I) + '>', '</Data>', Source);
Name := Between('<Name>', '</Name>', Part);


why use source and part ?

First I will get whole source of that page.

Then I will get Correct part of source. Using variable (I).

It's just simple playing around with Between :)


~Home

Source is the data that is returned from the GetData();

Part is getting the correct section of code. "<Item + IntToStr(I)" will walk down the nodes.

:ninja:'d

oh i see , hmm i learnt parsing on C was comparing string by reading it line by line, is tht method possible?

If you really want to just explode it.

str := GetPage("page");
lines (TStringArray) := explode(chr(10), str);

:)
Edit: Also, be sure to know if your file uses line feed, carriage return, or both for line breaks.

wat is explode ?