[Помогите!] Необходимо сохранить в переменную данные

[}{0TT@Ђb)Ч]

Всем доброго времени суток!

Есть необходимость научиться писать программы.
В общем, я застрял =)

Необходимо сохранить в переменную некоторое значение.
Пример кода:

if (html_tag.item(i).name='profileID') then

В исходнике это выглядит так:

<input id="profileOwner" name="profileID" type="hidden" value="5dSBW_Dp4wN"/>

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

if (html_tag.item(i).name='sessionID') then
Подставляем вместо этого значения, значение из переменной F.

-------
Просьба перенести сюда: http://zhyk.ru/forum/forumdisplay.php?f=384

[Number/1/]

Цитата: Сообщение от }{0TT@Ђb)Ч Всем доброго времени суток! Есть необходимость научиться писать программы. В общем, я застрял =) Необходимо сохранить в переменную некоторое значение. Пример кода: if (html_tag.item(i).name='profileID') then В исходнике это выглядит так: <input id="profileOwner" name="profileID" type="hidden" value="5dSBW_Dp4wN"/> То, что выделено красным, нужно сохранить в определенную переменную F для дальнейшего ее вызова тут: if (html_tag.item(i).name='sessionID') then Подставляем вместо этого значения, значение из переменной F. ------- Просьба перенести сюда: http://zhyk.ru/forum/forumdisplay.php?f=384

регулркой можно спарсить жешь посмотреть соседнюю тему про авторизации в дарке, там хорий пример ,или так

if Pos ('type="hidden" value="', тут переменная с помощью которой ты попал на ссылку где этот код)<>0 then 
Copy(F,63,10);

всё в переменной ф будет 5dSBW_Dp4wN ,если не секрет ,а зачем это?
и насчёт кода 63 это символ с котрого мы начинаем копировать , 10 количество символов которые копируем ,вроде всё

[}{0TT@Ђb)Ч]

Спасибо, вроде разобрался.
Зачем - скоро увидите

[Dinmaite]

Цитата: Сообщение от Number/1/ [code]if Pos ('type="hidden" value="', тут переменная с помощью которой ты попал на ссылку где этот код)<>0 then Copy(F,63,10);[code]

Бредовейший код.

[Number/1/]

Цитата: Сообщение от Dinmaite Бредовейший код.

чем не нравится ,проверяем есть ли код , если есть копируем,можешь предложить лучше?

[Dinmaite]

Цитата: Сообщение от Number/1/ можешь предложить лучше?

Конечно.

uses strutils;

.....
здесь код
.....

var
  s, q: string;
  i:integer;
begin

.....
здесь код
.....

  s:='<input id="profileOwner" name="profileID" type="hidden" value="5dSBW_Dp4wN"/>'; //типа тут код страницы лежит
  i:=pos('<input id="profileOwner"', s);
  q:= copy(s, PosEx('value="', s, i)+7, 11);

.....
здесь код
.....
end;

Поясняю.
Строк вида type="hidden" value=" может быть несколько десятков в коде сайта, под регулярку нужно брать то, что не повторяется. Смею надеяться id="profileOwner" если и повторяется, то несет в себе одно и то же значение.
Если совсем по честному то и длину id нужно было бы узнавать динамически, но судя по всему она одинакова.
А если завтра кому либо и верстальщиков сайта придет в голову поставить лишний пробел в строке? Куда денутся твои 63 символа?

[}{0TT@Ђb)Ч]

Программу написал, функционал у нее достаточный, хотя, доработать можно.

Вот сама тема: http://zhyk.ru/forum/showthread.php?...64#post2565164

Смысл программы в том, что человек вбивает в нее любую ссылку, типа ([Ссылки могут видеть только зарегистрированные пользователи. ]), программа открывает эту страничку в своем браузере, а по нажатию кнопки Access, открывает доступ к скрытым разделам игрока.


Добавлено через 10 часов 42 минуты
Не могу понять - при таком условии все работает

if Pos('20%',html_tag) > 0 then
  mmo1.Text:='Account ID:'+edt2.Text+' Bot User (Grade:1) Ïåðâûé ýòàï ëîâëè áîòîâîäîâ';
  if Pos('<li>50% ',html_tag) > 0 then
  mmo1.Text:='Account ID:'+edt2.Text+' Bot User (Grade:2) Âòîðîé ýòàï ëîâëè áîòîâîäîâ'
  else
  mmo1.Text:='Account ID:'+edt2.Text+' Bot User (Grade:0)';

Но почему-то, когда переменная содержит параметры '20%', сообщение об этом не отображается, а всё это попадает под else.

[MarrakeSH]

Если 20% то у тебя не выполняется условие

if Pos('<li>50% ',html_tag) > 0 then

И получается

mmo1.Text:='Account ID:'+edt2.Text+' Bot User (Grade:0)';

Вот так правильно

if (Pos('20%',html_tag) > 0) or (Pos('<li>50% ',html_tag) > 0) then
  Begin
  if Pos('20%',html_tag) > 0 then
  mmo1.Text:='Account ID:'+edt2.Text+' Bot User (Grade:1) Ia?aue yoai eiaee aioiaiaia'
  else
  mmo1.Text:='Account ID:'+edt2.Text+' Bot User (Grade:2) Aoi?ie yoai eiaee aioiaiaia'
  end
  else
  mmo1.Text:='Account ID:'+edt2.Text+' Bot User (Grade:0)';

[VeTaL_UA]

Я бы так написал, дабы не запутаться.

if Pos('<li>20%',html_tag)<>0 then
 begin  
 mmo1.Text:='Account ID:'+edt2.Text+' Bot User (Grade:1) Ïåðâûé ýòàï ëîâëè áîòîâîäîâ';
 end;
if Pos('<li>50%',html_tag)<>0 then
 begin
 mmo1.Text:='Account ID:'+edt2.Text+' Bot User (Grade:2) Âòîðîé ýòàï ëîâëè áîòîâîäîâ'
 end;
if (Pos('<li>20%',html_tag)=0) and (Pos('<li>50% ',html_tag)=0) then
 begin
 mmo1.Text:='Account ID:'+edt2.Text+' Bot User (Grade:0)';
 end;