Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.09.2008, 22:36   #1
eldar
Форумчанин
 
Аватар для eldar
 
Регистрация: 04.08.2008
Сообщений: 154
Вопрос Показать динамическую ссылку?

Так вот
Есть код:
Код:
procedure TForm1.Button4Click(Sender: TObject);
var tmp: string;
    i,cnt1,cnt2: integer;
begin
Memo2.Clear;
for i:=0 to Memo1.Lines.Count-1 do
begin
tmp:='view.php?ad=';
cnt1:=Pos(tmp,Memo1.Lines[i]);
if cnt1>0 then
begin
tmp:='ad=';
cnt2:=PosEx(tmp,Memo1.Lines[i],cnt1);
if cnt2>0 then
Memo2.Lines.Add(Copy(Memo1.Lines[i],cnt1,cnt2-cnt1));
end;
end;
end;
end.
Но к сожелению в memo2 показываются вот эти ссылки

view.php?
view.php?
view.php?
view.php?
view.php?
view.php?
view.php?
view.php?
view.php?
view.php?
view.php?
view.php?
view.php?


А мне нужно

Код:
<tr> 
								  <td width="70%" class="al3"><span class="al6">
								  <a class=al4 href=view.php?ad=66649 target=_blank>Tons Of Premium Products</a> 								  
								  </span></td>
								  <td width="10%" class="al5"><span class="al6">
									948852</span></td>
								  <td width="10%" class="al5"><span class="al6">
									58743</span></td>
								  <td width="10%" class="al5"><span class="al6">
									1007595</span></td>
								</tr>
												        </table><br>
					   						
						<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
                        <tr> 
                          <td width="70%" class="al7"><span class="al6"><strong>
						  Reference & Education</strong></span></td>
                          <td width="10%" class="al1"><span class="al6"><strong>Member</strong></span></td>
                          <td width="10%" class="al1"><span class="al6"><strong>Outside</strong></span></td>
                          <td width="10%" class="al1"><span class="al6"><strong>Total</strong></span></td>
                        </tr>
														<tr> 
								  <td colspan="4" class="al2"><span class="al6">
								  No Current Ads</span></td>
								 </tr>
											        </table><br>
					   						
						<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
                        <tr> 
                          <td width="70%" class="al7"><span class="al6"><strong>
						  Travel & Accommodation</strong></span></td>
                          <td width="10%" class="al1"><span class="al6"><strong>Member</strong></span></td>
                          <td width="10%" class="al1"><span class="al6"><strong>Outside</strong></span></td>
                          <td width="10%" class="al1"><span class="al6"><strong>Total</strong></span></td>
                        </tr>
														<tr> 
								  <td colspan="4" class="al2"><span class="al6">
								  No Current Ads</span></td>
								 </tr>
											        </table><br>
					   						
						<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
                        <tr> 
                          <td width="70%" class="al7"><span class="al6"><strong>
						  Arts & Entertainment</strong></span></td>
                          <td width="10%" class="al1"><span class="al6"><strong>Member</strong></span></td>
                          <td width="10%" class="al1"><span class="al6"><strong>Outside</strong></span></td>
                          <td width="10%" class="al1"><span class="al6"><strong>Total</strong></span></td>
                        </tr>
													
								<tr> 
								  <td width="70%" class="al3"><span class="al6">
								  <a class=al4 href=view.php?ad=67104 target=_blank>WOW - For Making Tons Of Gold... Fast!</a> 								  
								  </span></td>
								  <td width="10%" class="al5"><span class="al6">
									222305</span></td>
								  <td width="10%" class="al5"><span class="al6">
									11221</span></td>
								  <td width="10%" class="al5"><span class="al6">
									233526</span></td>
								</tr>

Тоесть вот

view.php?ad=67104
view.php?ad=66649
eldar вне форума Ответить с цитированием
Старый 29.09.2008, 22:42   #2
eldar
Форумчанин
 
Аватар для eldar
 
Регистрация: 04.08.2008
Сообщений: 154
По умолчанию Извините ступил просто болею голова болит сам нашёл ответ


Код:
procedure TForm1.Button4Click(Sender: TObject);
var tmp: string;
    i,cnt1,cnt2: integer;
begin
Memo2.Clear;
for i:=0 to Memo1.Lines.Count-1 do
begin
tmp:='view.php?ad';
cnt1:=Pos(tmp,Memo1.Lines[i]);
if cnt1>0 then
begin
tmp:='target=_blank>';
cnt2:=PosEx(tmp,Memo1.Lines[i],cnt1);
if cnt2>0 then
Memo2.Lines.Add(Copy(Memo1.Lines[i],cnt1,cnt2-cnt1));
end;
end;
end;
end.
eldar вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
показать кол-во и сумму приходов Romuald Microsoft Office Excel 10 02.09.2008 14:17
Показать защитную картинку с кодом eldar Работа с сетью в Delphi 5 28.08.2008 11:01
Считывание файла в динамическую память Mephistopheles Помощь студентам 2 20.05.2008 23:57
Как показать уведомения? UnD)eaD)Snake Win Api 6 16.08.2007 23:23
Показать свойства шолku Общие вопросы Delphi 2 28.12.2006 09:56