Вытащить ссылку

[-=Virus=-]

Суть такова получает dll мой текст от программы,ссылки такова содержание:
[_url]http://ya.ru[_/url] нужно убрать [_url]_[_/url] и передать дальше ссылку.
Подскажите как реализовать.

[Mifody]

я правильно понимаю:
исходник: [_url]http://ya.ru[_/url]
результат: http://ya.ru
т.е. убрать то, что в квадратных скобках? и сам исходник находтися в массиве текста, или нет?
Если да, то несколько вариантов:
1. регулярные выражения
2. замена (это если только исзодник на входе)
3. поиск вхождений и выдирание из строки нужного (Pos, PosX, Copy)

[-=Virus=-]

вот весь код:

if (dwID = 5) then //проверяем канал на сообщения
begin
//Получаем данные из канала
uSenderLogin := fReadText(bInBuffer, iReadOffset);//Имя отправителя
uSenderIP := fReadText(bInBuffer, iReadOffset);//IP-адрес отправителя
iSenderIcon := fReadInteger(bInBuffer, iReadOffset);//Иконка отправителя
uChannel := fReadText(bInBuffer, iReadOffset);/Канал где размещено сообщения
iMessageMode := fReadInteger(bInBuffer, iReadOffset);//Тип сообщения
uText := fReadText(bInBuffer, iReadOffset);//текст сообщения
if Form2.Edit1.Text=uChannel then //канал откуда брать ссылку

begin
Form1.Show;//открываем форму
Form1.listbox1.Items.add(uText);//добовляем текст
end;
end;

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

[-=Virus=-]

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

я правильно понимаю:
исходник: [_url]http://ya.ru[_/url]
результат: http://ya.ru
т.е. убрать то, что в квадратных скобках? и сам исходник находтися в массиве текста, или нет?
Если да, то несколько вариантов:
1. регулярные выражения
2. замена (это если только исзодник на входе)
3. поиск вхождений и выдирание из строки нужного (Pos, PosX, Copy)

Если не сложно помоги с кодом а то уже голова пухнет.

[W0LF]

function CCopy(S, C1, C2: string): string;
begin
  if C1 <> '' then
    Delete(S, 1, Pos(C1, S) + Length(C1) - 1);
  if C2 <> '' then
    Delete(S, Pos(C2, S), Length(S));
  Result := S;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(CCopy('[_url]http://ya.ru[_/url]', '[_url]', '[_/url]'));
end;

[-=Virus=-]

А как теперь проверить была ли она ссылкой?

[kangreon]

  s := '[_url]http://ya.ru[_/url]';
  if pos('http://',s)<>0 then
    ShowMessage('Это ссылка');

[-=Virus=-]

Я уже сделал так:

function CCopy(S, C1, C2: string): string;
begin
if C1 <> '' then
Delete(S, 1, Pos(C1, S) + Length(C1) - 1);
if C2 <> '' then
Delete(S, Pos(C2, S), Length(S));
Result := S;
end;


if uText= '[_url]'+CCopy(uText, '[_url]', '[_/url]')+'[_/url]' then
В итоге сравнивает текст обычный если же он не ссылка то нечего не происходит