Число из сайта

[zdus2757]

помогите ктонить я в инете нигде ненашел мож не так ищю или че
вообщем
1 idhttp авторизируется
2 ищет на сайте число id='balance'
3 ищет на сайте строку "Количество моих рефералов:"
4 ищет строку которая обычно находится после 3 строки "Рефералы, заработали для меня:"
5 пишет в мемо, числом: баланс,рефералов,скок заработали
у меня получилось сделать только авторизацию а как искать на сайте я понятия не имею и в гугле тож нече ненашел

[Stilet]

нече ненашел

Надобы ло ис кать лущще.

var s:string;i:integer;
...
s:=idhttp1.get('www.ya.com');
i:=pos(id='balance',s);
...

По Нял в какуюсто рону копа?т

[Человек_Борща]

Функции: Copy, Pos, Delete, PosEx изучать и использовать для разбора строки и вычленения оттуда нудных данных.

Гуглим, учимся, используем.

[zdus2757]

пос пишет нето число.. или искать чето другое над..
попробую поучить про них, я первый раз делаю прогу связанную с сетями пока плохо похоже)

[zdus2757]

ну написано Функция Pos(SubStr, Str: String) - возвращает позицию подстроки в строке. Нумерация символов начинается с единицы (1). В случае отсутствия подстроки в строке возращается 0. Пример:
а мне надо чтобы он в конце строки находил число и писал его я ему даю только часть строки а он вторую часть должен давать.. я незнаю как еще объяснить

[ZuBy]

function Parse(const tag1, tag2, source: string): String;
var
  p, p2, len: Integer;
begin
  result := '';
  p := pos(tag1, source);
  len := length(tag1);
  p2 := pos(tag2, source, p + len + 1);
  if (p = 0) or (p2 = 0) then
    Exit;
  if p2 > p then
    result := result + (Copy(source, p + len, p2 - p - len));
end;

result := parse('текст перед искомым', 'текст после искомого', htmlpage);

[zdus2757]

уже лучше но там после каждого числа в балансе идет таким образом:
<span>число</span><span>число</span><span>число</span><span>число</span><span>

[Человек_Борща]

я первый раз делаю прогу связанную с сетями пока плохо похоже)

Вам бы книжечку прочитать. Там написано, как со строками работать, как с числами, как преобразование делать. Что такое циклы.


<span>число</span><span>число</span><span>число</span><span>число</span><span>
Решается просто:
Псевдо-код

Переменные:
СТРОКА = "<span>число</span><span>число</span><span>число</span><span>число</span>"
Число  = 0
Поз = Позиция("<span>",СТРОКА)
<начало>

<Цикл пока> (Поз > 0) <делать>
Удалить(СТРОКА,1,Поз+Длинна(СТРОКА))
Число = Копировать(СТРОКА,1,Позиция("</span>",СТРОКА))
//Что-то делаем с числом
Поз = Позиция("<span>",СТРОКА) //Ищем следущее число
<конец пока>

<конец>

за вас никто писать не будет =)

В категории "похожие темы", есть похожие темы, там будут похожие задачки.

[zdus2757]

мне всего 16 неделю назад стало, читать я читаю когда время есть, да и глаза болят если долго, пошел учится на программиста но пока ток 10-11 класс 1 год....
я знаю что писать за меня не будут ну совет же дали уже чтото сделал ну а ваш код не очень понял но вроде понял как сделать по другому, всем спасибо)

[zdus2757]

сделал по другому, он просто записывает в невидимый мемо вот эти спаны с цифрами и уберает символы кроме чисел) спасибо что помогли)