Pos в делфи

[Зод]

может ли не выполнятся пос в делфи? и если да то почему это происходит?
есть такой код

Memo4.Lines.LoadFromStream(HTTP.Document);
s := Utf8ToAnsi(Memo4.Text);
i2:=Copy(s,Pos('О клубе,s)+2,Pos('search_settings',s));
i2:=Copy(i2,Pos('b-link',i2)+2,Pos('search_settings',s));
   i2:=Copy(i2,Pos('b-link',i2)+2,27);
   i2:=Copy(i2,Pos('января',i2),Pos('января',i2)+6);
   i2:=Copy(i2,Pos('января',i2),Pos('января',i2)+Length('января')-1);
   if i2='января' then
   god:=1;

сколько раз не запускал пос находит не первый b-link а помойму 13, в конце страницы. Причем первые два pos выполняются нормально и этот код на других страницах работает нормально.
как так?
забыл сказать в блокноте по исходнику веб странице все правильно нахожу повторяя действия. Это не страница виновата получается а именно поиск в Делфи.

[evg_m]

не пишите сложный код. Используйте переменные.
переписваем ВАШ код с переменными и видим

 n1:=Pos('О клубе,s)+2;
 n2:=Pos('search_settings',s);
i2:=Copy(s,n1+2,n2);

В качестве третьего парметра Copy указана не ДЛИНА (количество символов для коприрования), а позиция НЕВЕРНО
стало быть доверять дальнейшим использованиям результатам i2 НЕВОЗМОЖНО.

 n1:=Pos('b-link',i2);
 n2:=Pos('search_settings',s);
i2:=Copy(i2,n1+2, n2);

Здесь кроме того n2 индекс в одной строке s использован для выделения в совсем другой строке i2.

Дпальнейший анализ кода бессмысленен.

Кроме того, учитывая синтаксические ошибки в коде, складывается впечатление о несоответствии приведенного фрагмента реальному коду.

[Зод]

а можно поподробнее а то я мало что понял.
то есть я указываю позицию не верно? но код же работает почти всегда, ошибаеется редко. Мне казалось если бы я не правильно указывал что и куда копировать то постояно были бы ошибки. И как ее указать правильно? не прибавлять значение?

 n1:=Pos('О клубе,s)+2;
 n2:=Pos('search_settings',s);
i2:=Copy(s,n1+2,n2);

а почему в третьей строчке n1+2? мы же n1 определяем как:

 n1:=Pos('О клубе,s)+2;

То есть к значению пост прибавляем +2,да и смысл не меняется. Допустим n1=35 и n2=50
i2 же скопирует строку между 35 и 50 символами? тогда почему она промахивается и находит слово которое стоит в тексте посередине а не в конце и не в начале?
__________________
а чем это вам мой код не понравился?)
6 месяцев уже так пос использую, увидел пример на этом форуме и пошло. Грузить документ синапса в мемо? тоже здесь посоветовали. Конвертировать ютв в анси? не на этом но тоже форуме нашел. И вообще можно конкретнее? Пинать самоучку хоть фактами нужно.

[astecenko]

Зод приведите пример анализируемой страницы и что Вы хотите из нее вытащить. Явно Вы сильно усложнили код.
Ну и возможно (с кодом не разбирался) Вам поможет PosEx

[eoln]

Сообщение от Зод

Мне казалось если бы я не правильно указывал что и куда копировать то постояно были бы ошибки

Нет, просто молча копировалось не то, что надо или не копировалось вообще

Сообщение от Зод

Допустим n1=35 и n2=50
i2 же скопирует строку между 35 и 50 символами?

Нет, копируется 50 символов начиная с 35, т.е. интервал [35; 84]

Сообщение от Зод

Грузить документ синапса в мемо?

Как душе угодно. Хотя если визуализация не нужна, то можно, например, в string или какой-нибудь другой тип

Сообщение от Зод

а чем это вам мой код не понравился?)

нечитабельно, сложно анализировать, легко запутаться

[Зод]

Сообщение от astecenko

Зод приведите пример анализируемой страницы и что Вы хотите из нее вытащить. Явно Вы сильно усложнили код.
Ну и возможно (с кодом не разбирался) Вам поможет PosEx

http://clubs.ya.ru/4611686018427412111/
дату правильную, в данном случае 9 июля.

Сообщение от eoln

Нет, просто молча копировалось не то, что надо или не копировалось вообще


Нет, копируется 50 символов начиная с 35, т.е. интервал [35; 84]


Как душе угодно. Хотя если визуализация не нужна, то можно, например, в string или какой-нибудь другой тип

нечитабельно, сложно анализировать, легко запутаться

ну так в этом и смысл сверяться с словом. Если бы копировалась нето то на одном из этапов просто индексы для копирования пос бы не нашел и результат 0.

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

Можно и в стринг но я уже привык как то к мемо.
Для себя только так пишу, разметку делать все равно смысла нет. Вот только как разметка отражается функционнал и подленность кода для меня загадка)

Сообщение от evg_m

Здесь кроме того n2 индекс в одной строке s использован для выделения в совсем другой строке i2.

принципиальной разницы не вижу в том где брать положение.
вот взял я строчку в 70 символов и урезал по 20-60, далее снова урезаю с 20-70, все равно в пос попадет только 20-69 не? откуда ему лишние символы брать?

[evg_m]

s:='1234567';
r:=copy(s,2,5); //5 символов начиная с 2 т.о. r:='23456';

принципиальной разницы не вижу в том где брать положение.

мы получаем НОВУЮ строку в которой СОВСЕМ другие индексы по сравнению с исходной.

n1:=pos('4',r); // в этой (r) строке 4 стоит на 3 месте. 
n2:=pos('4',s); // в этой (s) строке 4 стоит на 4 месте. 
r2:=copy(s, 3, ...); // r2:='34567';
r3:=copy(r, 3, ...); // r3:='456';
r4:=copy(s, 4, ....); // r4:='4567';
r5:=copy(r, 4, ....); // r5:='56';

а почему в третьей строчке n1+2? мы же n1 определяем как:

copy paste подводит. Конечно же

 n1:=Pos('О клубе,s);
 n2:=Pos('search_settings',s);
i2:=Copy(s,n1+2,n2);

Кстати здесь есть еще и алгоритмическая ошибка.
Всегда есть вероятность что 'seach_settings' встретиться в тексте раньше чем 'О клубе'. Знаю, что скажете "такого не может быть никогда, потому что не может быть". но как показывает опыт невероятное обязательно сбывается, даже в том случае если этот текст (который разбираете) вы пишете сами же. Например подвел невнимательный copy paste. смотри пример выше.
Для этого пригодится PosEx

 n1:=Pos('О клубе,s);
 n2:=PosEx('search_settings',s, n1);
i2:=Copy(s,n1+2, <сколько там будет символов от n1+2 до n2 ?>);

[Зод]

Ну так это я понимаю, еще с showmessage определяю что находится. +1 стоит что бы слово перекрыть. Например есть текст: Ванечка, Катюшка,НГТУ, НГТУ, Ванечка 12. Мне нужно к примеру извлечь ВАнечка 12. Отсюда я нахожу pos(НГТУ) +1 потом от НГТУ до конца( максимум строки=38) и далее получается поиск Ванечка, в итоге получается нормальный результат. Длина везде стоит максимум (это больше чем будет в итоге) Поскольку слова одинаковые то мы их обрезаем +1 дабы не находились второй раз. Это я все знаю, читал про пос.
У меня вопрос был в другом почему пос не ищет слово конкретное. В документе куча b-link, уникальных слов мало. Поэтому я ищу первое b-link и сразу текст уменьшаю дабы первый b-link ушел. Дальше ищу b-link (второй уже) и его тоже обрезаю (зачем? сам не помню)) далее ищу ключевое слово это месяц, результат поиска сравниваю с названием месяца. Если слова совпали то поиск выполнен успешно.
Вот здесь где моя ошибка?
У меня более 90% случаев выполняются нормально но бывает так:
находит первый b-link, урезает его, а вместо второго b-link находит НЕ ПЕРВЫЙ в тексте а хрен знает какой по счету (и не последний) как так то?
В результате чего находится не первое значение и соответственно не правильно опознается месяц.
Это тоже самое что:

s:='1234567890174937483987493JPEG3648384578JPEG....JPEG53647csdsJPEG,,,JPEG';
i2:=Copy(i2,Pos('JPEG',i2)+2,20);
i2:=Copy(i2,Pos('JPEG',i2)-1,Pos('JPEG',i2)+7);

и получить в результате JPEG,,,
почему нашелся не ПЕРВЫЙ JPEG а предпоследний(и не последний, в чем логика поса?)?

[astecenko]

Не понятно, почему Вы привязались к этому b-link, насколько я понял этот класс используется для форматирования ссылок вообще, коих в анализируемой странице куча. Даты форматируются классом b-date, почему бы не анализировать по нему.
Например: ваша искомая дата "9 июля" отформатирована так

<span class="b-date"><a href="http://clubs.ya.ru/4611686018427412111/replies.xml?item_no=48" class="b-link">9 июля 2010 года, 16:16</a></span>

Если посмотреть другие даты то увидим что они отформатированы аналогично:

<span class="b-date"><a href="*" class="b-link">*</a></span>

Что Вам мешает используя цикл по PosEx перебирать все соответствия маске

<span class="b-date"><a href="

Потом в теле цикла опять же с помощью PosEx находить первый символ ">" и первый символ "<" между ними и будет текст с датой. Так можете перебрать все даты на странице. Получив текст даты, тут же в цикле анализируйте его как Вам угодно. Итого у Вас будет 3 вызова функции PosEx для того чтобы найти дату (и т.д. в цикле). Ничего обрезать не надо.

[evg_m]

и получить в результате JPEG,,,
почему нашелся не ПЕРВЫЙ JPEG а предпоследний(и не последний, в чем логика поса?)?

Логика Pos в поиске именно в том месте где указали.

s:='1234567890174937483987493JPEG3648384578JPEG....JPEG53647csdsJPEG,,,JPEG';
А i2 чему равно??? НЕИЗВЕСТНО!!!! дальше мы работаем с неизвестными данными i2
i2:=Copy(i2,Pos('JPEG',i2)+2,20); // потому что ищем черт знает где странно что вообще что-то нашли!!!
а теперь еще и копируем незнамо-что !!!
i2:=Copy(i2,Pos('JPEG',i2)-1,Pos('JPEG',i2)+7); // продолжаем работать непойми с чем!!!!

s:='1234567890174937483987493JPEG3648384578JPEG....JPEG53647csdsJPEG,,,JPEG';
  i2:=s; //исправляем предыдущее замечание! (теперь знаем что лежит в i2)
// выводим результаты!!!!!!!!!
  self.Memo1.Lines.Add('I2: '+ I2);
  self.Memo1.Lines.Add(' Pos(''JPEG'',i2) ='+inttostr(Pos('JPEG',i2)));

  i2:=Copy(i2,Pos('JPEG',i2)+2,20);
// еще раз выводим !!!!!!!!!
  self.Memo1.Lines.Add('I2: '+ i2);
  self.memo1.lines.add(' Pos(''JPEG'',i2) =' +inttostr(Pos('JPEG',i2)));

  i2:=Copy(i2,Pos('JPEG',i2)-1,Pos('JPEG',i2)+7);
// еще раз выводим !!!!!!!!!
  self.Memo1.lines.Add('I2: ' +I2);

и смотрим результаты все ОК.

I2: 1234567890174937483987493JPEG3648384578JPEG....JPEG53647csdsJPEG,,,JPEG
 Pos('JPEG',i2) =26
I2: EG3648384578JPEG....
 Pos('JPEG',i2) =13
I2: 8JPEG....