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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 09.09.2009, 15:35   #1
Tomatos
Пользователь
 
Регистрация: 29.05.2009
Сообщений: 31
По умолчанию Как поправить строку в HTML - коде?

Здравствуйте

Проблема в следующем:

Имеется Веб страница (reestr.html) нужно:

Найти строку в HTML-коде данной страницы:
<DIV align=center>&nbsp;</DIV></TD> и вставить в нее определенное
значение, например

<DIV align=center>&nbsp; Индекс 623400 </DIV></TD>

как это можно сделать?

PS. страница локальная, располагается на компе

Последний раз редактировалось Tomatos; 09.09.2009 в 15:38.
Tomatos вне форума Ответить с цитированием
Старый 09.09.2009, 15:36   #2
Utkin
Старожил
 
Аватар для Utkin
 
Регистрация: 04.02.2009
Сообщений: 17,351
По умолчанию

Загрузи в Мемо, найди искомую строку и замени на свою.
Маньяк-самоучка
Utkin появился в результате деления на нуль.
Осторожно! Альтернативная логика
Utkin вне форума Ответить с цитированием
Старый 09.09.2009, 15:40   #3
Tomatos
Пользователь
 
Регистрация: 29.05.2009
Сообщений: 31
По умолчанию

А как мне получить HTML код данной страницы?
Если можно напишите с кодом..
Tomatos вне форума Ответить с цитированием
Старый 09.09.2009, 15:44   #4
Tomatos
Пользователь
 
Регистрация: 29.05.2009
Сообщений: 31
По умолчанию

Лично я так себе это представляю:
получил HTML-код страницы далее

While not EOF (F) do begin
READLN(F,S);
IF S=Etalon then... вот еще проблема как заменить именно данную строку в коде HTML
end;
Tomatos вне форума Ответить с цитированием
Старый 09.09.2009, 15:45   #5
postal2
Форумчанин
 
Аватар для postal2
 
Регистрация: 31.10.2008
Сообщений: 215
По умолчанию

только что где-то обсуждалось..

Поиск по форуму в помощь

Код:
While not EOF (F) do begin
READLN(F,S);
IF S=Etalon then... вот еще проблема как заменить именно данную строку в коде HTML
end;
Это паскаль, а мы как-то в разделе дельфей сидим..

Utkin же всё правильно написал..
[Ferox]
postal2 вне форума Ответить с цитированием
Старый 09.09.2009, 15:45   #6
Hollander
Участник клуба
 
Аватар для Hollander
 
Регистрация: 03.05.2007
Сообщений: 1,189
По умолчанию

У memo есть методы(вроде такие):
LoadFrom() - загрузка файла
SaveTo() - сохранение в файл
Hollander вне форума Ответить с цитированием
Старый 09.09.2009, 15:48   #7
Utkin
Старожил
 
Аватар для Utkin
 
Регистрация: 04.02.2009
Сообщений: 17,351
По умолчанию

А где у тебя эта страница живет?
Код:
memo1.Lines.LoadFromFile('c:\reestr.html');
- грузим в Мемо
memo1.Count - число строк в Мемо.
Просто в цикле сверяешь со своей строкой, есть нюанс: строки начинаются от нуля -
Код:
for i:=0 to memo1.Count-1 do
Но предварительно проверь есть ли в твоей странице хотябы одна строка, иначе получишь ошибку.
Проверка вообще просто:
Код:
if Memo1.Lines.String[i]='<DIV align=center>&nbsp;</DIV></TD>' then Memo1.Lines.String[i]='<DIV align=center>&nbsp; Индекс 623400 </DIV></TD>';
Сохранить файл:
Код:
memo1.Lines.SaveToFile('c:\reestr.html')
Программу не даю принципиально - я указал все для ее составления, написать сам сможешь.
Маньяк-самоучка
Utkin появился в результате деления на нуль.
Осторожно! Альтернативная логика
Utkin вне форума Ответить с цитированием
Старый 09.09.2009, 15:53   #8
Tomatos
Пользователь
 
Регистрация: 29.05.2009
Сообщений: 31
По умолчанию

Спасибо огромное!!!
Tomatos вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Подскажите как поправить SQL запрос МишаК SQL, базы данных 3 16.07.2009 16:22
Как при нажатии на строку в Listbox передавать нажатую строку в переменную Михаил Юрьевич Общие вопросы Delphi 5 16.03.2009 12:59
помогите поправить! koyot Работа с сетью в Delphi 4 13.02.2008 18:46
Поиск в HTML-коде _SERGEYX_ Работа с сетью в Delphi 15 17.01.2008 12:54
Поиск ключевых слов в html коде NEOkill Работа с сетью в Delphi 2 02.03.2007 00:33