Всем привет, подскажите плз. Как программно сделать что бы из вида Code: http://my.mail.ru/mail/semirag http://my.mail.ru/inbox/kavaru Преобразовывалось в Code: semirag@mail.ru kavaru@inbox.ru То есть у нас есть ссылка - Code: http://my.mail.ru/mail/semirag /mail/ - означает домен /semirag - означает логин Я так понимаю что тут по аналогии парсера ? Но вот не понимаю, как сделать что бы он всё расставлял по своим местам, и добовлял "@" , и к домену ещё дописывал ".ru" . Есть у кого-то такие примеры ?
Желательно код, что бы я мог сам понять как это вообще делается, и использовать в дальнейшем. Желательно даже с комментами. Но можно и просто прогу, если не затруднит ) Заранее благодарен.
как вариант можешь воспользоваться моей прогой: /showthread.php?p=2394528#post2394528 В 4 шага сможешь изменить весь список Дано Code: http://my.mail.ru/mail/semirag http://my.mail.ru/inbox/kavaru 1. Замена http://my.mail.ru/ на @ Code: @mail/semirag @inbox/kavaru 2. Замена / на .ru/ Code: @mail.ru/semirag @inbox.ru/kavaru 3. Указываем указатель на "/" и жмем "Y;X" Code: semirag/@mail.ru kavaru/@inbox.ru 4. Замена / на пустоту Code: semirag@mail.ru kavaru@inbox.ru
Спасибо, сейчас попробую ) Странный спобоб конечно, но всё же он работает ) Хоть как-то ) Ну в принципе по аналогии этих действий, попробую написать код.... хотя наврятли получиться у меня )
function MyStr(st:String):string; var st1:String; begin st1:=st; while pos('/',st1)<>0 do delete(st1,1,pos('/',st1)); delete(st,pos('/'+st1,st),length(st1)+1); while pos('/',st)<>0 do delete(st,1,pos('/',st)); result:=st1+'@'+st+'.ru'; end;