// * Отлавливаем в browser переход по ссылке
procedure TForm1.WeberBeforeNavigate2(ASender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
var
S: String;
begin
// * Получаем ссылку
S := URL;
// * Сравниваем ссылку с условием
if ( S[1] = 'external.test()' ) then
begin
// * Отменяем переход по ссылке
Cancel := True;
// * Вызываем процедуру
test;
end
end;<?php
$data = 'Something stupid, ul_tra-sh.op@tut.by.ru.wio something stupid';
echo $data . '<br>';
$data = preg_replace( '/\s([a-zA-Z0-9\.\-\_]+@[a-zA-Z0-9\.\-\_]+\.\w+)\s+/', ' ', $data );
echo $data . '<br>';
?>Something stupid, ul_tra-sh.op@tut.by.ru.wio something stupid
Something stupid, something stupid