Wa? I asked you if it would be ok to post it, or a link to it here.
You said "No, I hate sythe."
so i didn't.
BTW Nava.
replace with your getmarketvalue;
You said "No, I hate sythe."
so i didn't.
BTW Nava.
Code:
function GetMarketValue(T: TBS) : string;
var
S : String;
I : Integer;
S2 : String;
begin
Result := '';
T.Name := Replace(T.Name, ' ', '_');
S := GetPage('http://rscript.org/lookup.php?type=ge&search=' + T.Name);
I := Length(GetNumbers(S));
if InIntArray([53, 73], Length(S)) or ((Pos(IntToStr(T.ID), S) = 0) and (Pos(IntToStr(T.ID - 1), S) = 0)) then
Exit;
S2 := Between(T.Name + ' ', ' ', S);
delete(S2, pos(',', S2), 1);
Result := S2;
end;
replace with your getmarketvalue;


