Помогите вытянуть нужный текст из memo

[XazzzI]

Здраствуйте все !
У меня такая проблемка : в memo1 лежит код html странички , полученый из TWebBrowser . В этом коде регулярно повторяются промежутки типа :

<tr>
<td align='center'>ХХХХХ</td>
<td align=center><a href='index2.php?cf=akk-plus2&mid=ХХХХХ'>текст произвольной длинны</a></td>
<td align=center>Х.ХХХ</td>
<td align=center>ХХ.ХХ.ХХХХ</td>
<td align=center><a href='index2.php?cf=akk-delete2&sid=ХХХХХХХХ' onclick='if (!confirm("Вы уверены?"))return false;'><img src='/i/delete.gif' alt='Удалить' width='15' height='15' border='0'></td>
</tr>

Там где ХХХ вместо иксов могут быть любые цыфры , также текст тоже может быть любой , и раз чеез раз самый первый тег меняется на <tr id='bgtbldark'> . Из этих блоков мне нужно вытащить : адрес ссылки и ее текст , и то число , которое идет сразу за ссылкой , вида Х.ХХХ . Слышал , что это както можно сделать при помощи регулярных выражений , но как ? или может есть метод попроще ? подскажите мне пожалуйста .

[Utkin]

Можно и просто функциями:
1. Ищет в Мемо от указанного смещения фрагмент строки <tr
2. Отсчитывает от указанного смещения нужное количество строк и извлекает из строки название ссылки
3. Отсчитывает от указанного смещения нужное количество строк и извлекает из строки ссылку
Что-то в этом роде.

[XazzzI]

хорошо , но как это реализовать на практике ?
1. Ищет в Мемо от указанного смещения фрагмент строки <tr
но ведь в файле не только нужные мне строки начинаются на <tr !
2. Отсчитывает от указанного смещения нужное количество строк и извлекает из строки название ссылки
опять же , допустим мы нашли какой-то левый тр , тогда все закончится дефолтом . Да и извлечь адрес ссылки немного проблематично , как по мне ...
ладно , попробую организовать что-то подобное ... но все-же , проблема с поиском и доставанием нужного остается открытой ...

[Utkin]

1. После <tr пусть ищет <td align='center'> в следующей строке, а в следующей строке <td align=center>. Мало? Пусть дальше заглянет.
Это не проблема, у тебя все упирается только в смещение в Memo.

[Ntlegend]

XazzzI, почитай про функцыи Pos, PosEx и Copy.. с их помощью ты можешь реализовать парсер любой сложности..

1. Ищет в Мемо от указанного смещения фрагмент строки <tr
но ведь в файле не только нужные мне строки начинаются на <tr !

перед нужным тебе блоком должно быть какоето выражение которое всегда одинаково.. находи его и от него ищи уже нужный тебе блок
или второй вариант:

допустим мы нашли какой-то левый тр , тогда все закончится дефолтом

обьявляем свою струкруту.. и переменную этой структуры.. находим поле <tr предпологаем чсто оно то что нам нужно.. и начинаем от него отщитывать все смещения и ссылки для заполнения одного дблока.. если в конце блока переенная нашей структуры заолнена не полностью - значит это "левый" блок.. очищиаем переменную.. переходим к следующему блоку..

если "левый" блок меньше "нужного" - то нужно делать дорполнительно проверку на окончание блока..
удачи

[Impuls1989]

Я бы посоветовал так:
Так как в делфи строки длиной до 2Гб советую все, что между тегами <tr> и </tr> запихнуть в одну строку (так не нужно будет мучаться с переходами на новую строку в memo)
Далее при помощи pos("</a>",s) ищем конец ссылки. Смещаемся в лево по строке, пока не встретим ">" при помощи copy(s,позиция символа >,pos("</a>",s)-позиция символа+1) находим текст ссылки.
Далее все просто: с pos("</a>",s)+3 ищем открывающий тег > и идем до закрвыающего </td>. Вот вам и X.XXX

[IceExecutioner]

можно попробовать использовать

function AnsiPos(const Substr: string; const S: string): Integer;

, где Substr - это то что ты ищешь, S - строка в которой ты ищешь, данная функция вернёт номер позиции с которой начинается подстрока

Locates the position of a substring.

Pascal
function AnsiPos(const Substr: string; const S: string): Integer;
File
SysUtils

Description
Call AnsiPos to obtain the byte offset of the Substr parameter, as it appears in the string S. For example, if Substr is the string "AB", and S is the string "ABCDE", AnsiPos returns 1. If Substr does not appear in S, AnsiPos returns 0.

Note: This function supports multi-byte character sets (MBCS).

[XazzzI]

Сделал все гораздо проще . Строка с сылкой всегда начинается на <td><a href='index2.php...' , я это ищю функцией pos , если возвращает 0 - строку удаляю , иначе обрезаю и восстанавливаю предыдущюю строку в которой число X.XXX . Еще один вопрос : есть ли в дельфи функция аналогичная unescape в javascript ? Нужно раскодировать строку типа eval(unescape('%12%05....'));. Собственно , вся проблема в раскодировке этого с процентами . Если знаете , плз , напишите !

[Ntlegend]

эээммм... преобразуй строку в массив чычсел.. а потом функцыей CHR из числа в символ.. либо преобразуй строку в массив байт.. и потом функцыей SetString из байтов в строку..

[IIpopoK]

Смотри тут:
http://programmersforum.ru/showthread.php?t=53615