Thread: Travian Bot

Thank you it was really helpful!

-- 2010-11-16, 13:24 --

Once again I have a problem with parsing this time. The html data is the same as post#7. Using that piece of code Iam trying to take the number after '>' and before '/' :

Code:

var
htm_data: array of String;
temp_str: String;
i: Integer; 
begin
temp_str := WebBrowser1.OleObject.Document.documentElement.innerHTML;
Setlength(htm_data,length(temp_str));
for i:=0 to length(temp_str) -1 do
begin
  htm_data[i] := temp_str[i];
end;
for i:=0 to length(temp_str) -1 do
begin
  if htm_data[i] = 'i' then
  begin
  if htm_data[i+1] = 'd' then
  if htm_data[i+4] = 'l' then
  if htm_data[i+5] = '4' then
  begin
  j := i+6;
  while htm_data[j] <> '>' do
  begin
  j := j+1;
  end;
  while htm_data[j+1] <> '/' do
  begin
  memo1.Text := memo1.Text + htm_data[j];
  j:= j+1;
  end;
  end;
  end;
  end;

but It returns nothing... what can be possibly wrong?
Note that temp_str length is about 11200