По кнопке создается через Word файл *.htm. Нужно программно залезть в код html этого файла и добавить в тэг <body>

Код

background ='fon1.jpg'

Файлы создаются все время разные, поэтому этот <body> в файле еще найти нужно.
Как текстовый файл этот *.htm не открывается, и вообще ничего не выходит.....

А ты как открываешь файл? Просто в текстовом режиме? + покажи пример такого файла... И вообще... как я уже убедился в Word'е писать странички - не есть гуд!

Я бы для поиска слова боди шел циклом по всем символам, сохраняя последние пять. Шел бы и шел, пока не встретил бы что char[1]='<' and upcase(char[2])='B' and .... И т.д.
Символы, которые мы встречаем во время поиска, созхранять в другой временный файл. Потом когда нашли, пишем пробел, background='тырыпыры' потом опять пробел а потом опять же в цикле до конца файла писать все остальное. Ну а потом переименовать этот временный файл и все.

Не самое красивое решение конечно, но рабочее.

Pakshin A. S.
конечно это есть bad, но другого выхода нет, эти странички в программе создаются учителем математики (это для них прога), а они, как известно, в редких случаях даже знают как на кнопочки нажимать, не то чтобы вебстранички создавать.
они должны наклацать информацию в ворде, а она потом переводится в html чтоб в WebBrowser-e отображаться... вот.

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

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

Код

AssignFile(ffon, D:\Project\1.htm');  Reset(ffon);  Readln(ffon, kod); ......  Closefile(ffon)

ffon - textfile

Fedor

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

Это сообщение отредактировал(а) Люба - 8.1.2005, 18:49

А текст ивеет свои стили/форматирование/шривт?
Добавлено @ 20:48
Если нету, то просто оформляем html

Код

AssignFile(f, 'nonename.html'); rewrite(f); writeln( f, '<html> ' + #13 + '<body>' + #13 + '<p>' + #13); writeln(f, Memo1.Text{Или как там...}); writeln(f, '<p/>' + #13 '</body> ' + #13 + '</html>' + #13); CloseFile(f);

И цвета тут же можно оперделить и все остальное...
Добавлено @ 20:49
а... описалово...

Код

var f: textfile;

Это сообщение отредактировал(а) Pakshin A. S. - 8.1.2005, 20:49

Pakshin A. S.
Имеет форматирование, причем самое разнообразное+картинки+куча формул, которые тока в equation-не набрать можно
в этом-то и дело

Люба А ты не пробовала открывать и читать файл по строчно? и как тут выше уже советовали параллельно писать в другой, должно получиться чтото вроде этого:
if pos('<boby',где ищем)<>0 then в другой файл пишем новй боди с параметрами если поз возвращает ноль тогда тоже пишем в файл то что прочитали.

Люба Тебе точно что делать надо?

Если я правильно понял, нужно у отобразить в TWebBrowser страничку с измененным фоном ?
Если так, то можно сделать таким образом:

Код

var  doc : IHTMLDocument2;  body : IHTMLBodyElement; begin  WebBrowser1.Navigate('g:\index.htm');  doc := WebBrowser1.Document as IHTMLDocument2;  while doc.body = nil do  begin    Sleep(0);    Application.ProcessMessages;  end;  body := doc.body as IHTMLBodyElement;  body.background := 'g:\pictures\wallpapers\1.bmp'; end;

Т.е. грузим в TWebBrowser страничку и меняем фон...

Нууу.... можно и сам файлик менять...

Код

var f,g:textfile; s:sting; begin AssignFile(f, filename); AssignFile(g, filename + '~'); reset(f); rewrite(g); while not eof f do  begin   readln(f, s);   if copy(s, 1, 5) = '<body'    then     s:='<body bgcolor="#800000">';   writeln(f, s);  end; rewrite(f); reset(g); while not eof(g) do  begin   readln(g, s);   writeln(f, s);  end; CloseFile(f); Erase(g); CloseFile(g); end;

Если нужна картинка, то
s:='<body background="../../All%20Users/Документы/Мои%20рисунки/Образцы%20рисунков/Водяные%20лилии.jpg">';

Впринцепе этого достаточно...

Кстати... цвет в hex-коде, как мне понимается...

p0s0l Решение простое, но сохранять страничку из TWebBrowser'a - это, культурно выражаясь, геморрой Так что лучше всего пользоваться TStrings и редактировать сам текстовый файл современными методами

Цитата(December @ 9.1.2005, 13:46)

p0s0l Решение простое, но сохранять страничку из TWebBrowser'a - это, культурно выражаясь, геморрой  Так что лучше всего пользоваться TStrings и редактировать сам текстовый файл современными методами

А зачем сохранять ?
Судя по:

Цитата

, эти странички в программе создаются учителем математики (это для них прога), а они, как известно, в редких случаях даже знают как на кнопочки нажимать, не то чтобы вебстранички создавать. они должны наклацать информацию в ворде, а она потом переводится в html чтоб в WebBrowser-e отображаться... вот. короче вся проблема в том, что юзеры программы не умеют задать фон этого html-файла, хотя впрочем и не должны. надо это за них в программе делать

Я понял, что человек делает в блокноте (или еще где ) странучку .html.
Далее Любина прога изменяет этот .html (добавляет фон) и грузит в TWebBrowser...
Если я это всё правильно понял , то можно два последних шага соединить, и всё сделать в TWebBrowser...
Если же требуется просто изменить .html, но не отображать его в TWebBrowser, то тогда мой способ не подойдёт...

Это сообщение отредактировал(а) p0s0l - 9.1.2005, 14:13

Прямо не знаю, какой способ выбрать, каждый хорош по-своему

p0s0l
Ты все правильно понял , наверное, твой метод в моем случае даже лучше , правда я не особенно его понимаю его по шагам, только принцип
Ты не мог бы объяснить, а то меня могут на защите допрашивать..

Pakshin A. S. С другой стороны на защите могут допрашивать также, почему файлы в папочке при этом бесцветные, короче говоря возможно воспользуюсь и твоим методом. Как бы то ни было

ВСЕМ СПАСИБО!

p0s0l

может нужно еще в uses что-нибудь добавить, а то пишет
[Error] UntSlovnyk.pas(696): Undeclared identifier: 'IHTMLDocument'
[Error] UntSlovnyk.pas(697): Undeclared identifier: 'IHTMLBodyElement'

uses MSHTML, насколько я помню

dm9 точно, спасибо

p0s0l почему-то не работает, выводит вообще без фона, как будто и нет этого кода...
прийдется-таки файлы редактировать...

Pakshin A. S. Таки воспользуюсь твоим методом