VPF::Запись в html файл - Форум программистов

zhefran

Дата 2.10.2007, 16:47 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 237
Регистрация: 27.9.2007
Где: Винница-Киев-Ирпе нь-?, Украина

Репутация: нет
Всего: нет

мне надо записывать результаты в html файл. как єто можно сделать?
Покатит ли:

Код


 fName := CurrntDir+'\log.html';
                AssignFile(f, fName);
                Append(f);  
                writeln(f, datetostr(date)+' '+timetostr(time)+': все работает');
                CloseFile(f);

+ теги или нет?
если возможно, то покажите на примере! smile

Это сообщение отредактировал(а) zhefran - 2.10.2007, 16:49

--------------------

Ніщо нізвідки не виникає і нікуди не дівається!Лечение компьютеров от вирусов! Бесплатно!

Alexeis

Дата 2.10.2007, 17:02 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459

HTML файл это обычный текстовый файл. В него можно писать также как в любой файл, лишь бы то что записывается соответствовало стандарту HTML.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Негодяй

Дата 2.10.2007, 17:06 (ссылка)

(нет голосов)

Загрузка ...

Порядочный

Профиль
Группа: Завсегдатай
Сообщений: 1513
Регистрация: 13.2.2005
Где: Kazakhstan, Almat y

Репутация: нет
Всего: 32

Покатит и с тегами:

Код


var f:textfile;
begin
AssignFile(f, 'a.html');
                Append(f);
                writeln(f, '<b>ura!<b>');
                CloseFile(f);
end;

zhefran

Дата 2.10.2007, 18:28 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

как добавлять запись в предпоследнюю строку?

--------------------

Ніщо нізвідки не виникає і нікуди не дівається!Лечение компьютеров от вирусов! Бесплатно!

BaD_SeCt0R

Дата 2.10.2007, 19:09 (ссылка)

(нет голосов)

Загрузка ...

Lazy Coder

Профиль
Группа: Участник
Сообщений: 432
Регистрация: 9.10.2006
Где: Анапа

Репутация: нет
Всего: 18

Нужно с конца файла искать символ перехода (#13), а затем с следующий такой символ. Все, что между этими символами - твоя строка.

PS можно искать и с начала

Это сообщение отредактировал(а) BaD_SeCt0R - 2.10.2007, 19:14

--------------------

Кто владеет информацией - владеет миром. (С) Френсис Бэкон.

Alexeis

Дата 2.10.2007, 20:12 (ссылка)

(голосов:1)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459

Цитата(zhefran @ 2.10.2007, 18:28

)

как добавлять запись в предпоследнюю строку?

Вооот началось. Либо паскаль либо делфи smile

. Если делать как это принято в делфи, то строки нужно добавлять в StingList, у него есть метод SaveToFile Для сохранения и методы add для добавления в конец, insert для вставки в нужную позицию, а также возможность объединения таких StingList ов.

--------------------

zhefran

Дата 3.10.2007, 09:04 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Спасибо, я разобрался

Код


begin
f:= TStringList.Create();
f.LoadFromFile('d:\a.html');// Çàãðóæàþ ôàéë
f.Insert(f.Count-1,'<tr><td>9:00</td><td>event</td></tr>');
f.SaveToFile('d:\a.html');
f.Free;
end;

--------------------

Ніщо нізвідки не виникає і нікуди не дівається!Лечение компьютеров от вирусов! Бесплатно!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »