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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 19.08.2013, 14:08   #11
Smagulov85
Форумчанин
 
Аватар для Smagulov85
 
Регистрация: 22.11.2009
Сообщений: 142
По умолчанию

Цитата:
Сообщение от Кольша Посмотреть сообщение
Код:
function Pars(T_, ForS, _T: string): string;
var
  a, b: integer;
begin
  Result := '';
  if (T_ = '') or (ForS = '') or (_T = '') then
    Exit;
  a := Pos(T_, ForS);
  if a = 0 then
    Exit
  else
    a := a + Length(T_);
  ForS := Copy(ForS, a, Length(ForS) - a + 1);
  b := Pos(_T, ForS);
  if b > 0 then
    Result := Copy(ForS, 1, b - 1);
end;//
//....
result:='';
while pos('</td>',str)>0 do//str=text with table
begin
result:=result+pars('<td>',str,'</td>');
Delete(str, 1, Pos('</td>', str) + Length('</td>') - 1);
end;
showmessage(result);
//Писал на коленке в IDE не проверял.
спасибо! все равно каша получается все полученные значения просто сливаются в один текст. а мне надо их как-то перенести в свою html таблицу для работы с ней уже. Наверно придется просто копировать все таблицу с сайта и вставлять к себе
Если помог: Нажми Весы и оставь отзыв!!!
Smagulov85 вне форума Ответить с цитированием
Старый 19.08.2013, 14:40   #12
Кольша
Далеко не
Участник клуба
 
Аватар для Кольша
 
Регистрация: 11.08.2011
Сообщений: 1,512
По умолчанию

Код:
result:=result+pars('<td>',str,'</td>');
Вам не о чем не говорит?
Кольша вне форума Ответить с цитированием
Старый 19.08.2013, 14:59   #13
Smagulov85
Форумчанин
 
Аватар для Smagulov85
 
Регистрация: 22.11.2009
Сообщений: 142
По умолчанию

Цитата:
Сообщение от Кольша Посмотреть сообщение
Код:
result:=result+pars('<td>',str,'</td>');
Вам не о чем не говорит?
да я понял, что туда можно дописать любые строки и разделите, так беда в другом в как мне разделить на строки. В строке 10 ячеек. как отделить их на 10 значений, а потом на следующую строку

Код HTML:
<tr>
<td>значение 1</td>
<td>значение 2</td>
<td>значение 3</td>
<td>значение 4</td>
<td>значение 5</td>
<td>значение 6</td>
<td>значение 7</td>
<td>значение 8</td>
<td>значение 9</td>
<td>значение 10</td>
</tr>
<tr>
<td>значение 1</td>
<td>значение 2</td>
<td>значение 3</td>
<td>значение 4</td>
<td>значение 5</td>
<td>значение 6</td>
<td>значение 7</td>
<td>значение 8</td>
<td>значение 9</td>
<td>значение 10</td>
</tr>
<tr>
<td>значение 1</td>
<td>значение 2</td>
<td>значение 3</td>
<td>значение 4</td>
<td>значение 5</td>
<td>значение 6</td>
<td>значение 7</td>
<td>значение 8</td>
<td>значение 9</td>
<td>значение 10</td>
</tr>
Если помог: Нажми Весы и оставь отзыв!!!

Последний раз редактировалось Smagulov85; 19.08.2013 в 15:01. Причина: исправил
Smagulov85 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Парсинг html... kta87 Общие вопросы Delphi 3 06.04.2012 12:13
парсинг HTML Gregor HTML и CSS 0 07.10.2011 09:24
Парсинг HTML russian-stalker Общие вопросы C/C++ 0 18.12.2010 11:25
парсинг Html eldar Общие вопросы Delphi 4 23.04.2009 20:42
HTML Парсинг BaikalLord Помощь студентам 5 15.12.2008 08:20