Конференция VBStreets

**moris** » 27.01.2005 (Чт) 17:34

Не подскажите как написать на VB программу генерирующию html страницы из данных - текст + фоторгафии. Спасибо...

**Amed** » 27.01.2005 (Чт) 17:41

А что тут генерировать? Расскажите поподробнее, а то ответ будет прост:

Код: Выделить всё: strHTML = "<HTML><BODY>" & vbCrLf & strText & vbCrLf & "<IMG SRC="C:\123.bmp"></BODY></HTML>"

**moris** » 27.01.2005 (Чт) 17:50

Скажем так. В одной папке лежат тектовики, в другой фотки, когда загружается из головного каталога html страничка - и соответственно подгружаются фотки и текстовики. Фотографии-это вид товара, текстовик - описание к нему. Следовательно, названия у них одинаковый. Программа сверяет назавния фотографии и текстовика и ставит изображение и под ним описание. ПОсле этого можно добывить соответственно в каталог фотографию и описание и при следующем запуске программы на просмотр - html - страничка сгенирируется уже с добавлением этой фотки и текста... Надеюсь, я правильно описал и вы поняли, чего я хочу... Сама эта страничка просматривается в стандартном браузере написаном на VB. Он (браузер) уже написан...(вернее из примеров взят)
Спасибо.

**Sedge** » 27.01.2005 (Чт) 18:07

Непонятно.
1. Html файл просматривается программой на локальной машине или по сети?
2. Этот твой текст с фотками - он должен генерироваться с какой-то периодичностью (допустим раз в день) или в тот момент, когда программа запрашивает страницу?

**Amed** » 27.01.2005 (Чт) 18:12

На форме FileListBox с путём к папке с текстовиками и фильтром "*.txt"...
Код примерно такой (пишу, не проверяя синтаксис):

Код: Выделить всё: Private Sub GenarateMainHTML() Dim i As Integer Dim sDescr As String Dim sFile As String For i = 1 To File1.ListCount - 1 Open "C:\project\index.html" For Input As #1 Print #1, "<HTML>" Print #1, "<BODY>" Open "C:\project\text\" & File1.List(i) For Input As #2 Line Input #2, sDescr Line Input #2, sFile Close #2 Print #1, "Товар №" & i & ":" & vbCrLf Print #1, "<B>Описание:</B> & vbCrLf Print #1, sDescr & vbCrLf Print #1, "<B>Картинка:</B> & vbCrLf Print #1, "<IMG SRC=""" & sFile & """>" Print #1, "vbCrLf Next i Print #1, "</BODY>" Print #1, "</HTML>" Close #1 End Sub

Sedge, по-моему, генерироваться должен тогда, когда запускается написанный браузер (или щёлкается кнопка в нём)...

**moris** » 27.01.2005 (Чт) 18:19

Спасибо...

Попробую - отпишусь, что получилось...

**moris** » 27.01.2005 (Чт) 18:24

Sedge писал(а):Непонятно.
1. Html файл просматривается программой на локальной машине или по сети?
2. Этот твой текст с фотками - он должен генерироваться с какой-то периодичностью (допустим раз в день) или в тот момент, когда программа запрашивает страницу?

На локальной машине...
Текст и фотки генерируются только, когда запускается программа, вернее начинается просмотр данной htm страници в этой программе при ее старте... Большего не надо... Нет смысла, хотя можно и так зделать, но это не суть важно...

**dub** » 27.01.2005 (Чт) 21:37

ушло на личку
надеюсь разберешся

что не понятно - пиши

**moris** » 28.01.2005 (Пт) 0:54

dub писал(а):ушло на личку
надеюсь разберешся

что не понятно - пиши

Пасиб. Посмотрю, если что - напишу....

Буду разбираться...

**moris** » 31.01.2005 (Пн) 14:44

dub - прога прикольная... Спасибо ))) :lol:

И текст теперь добавляется под фотками.))) Только если много фоток, она не обрабатывает. Пишет ошибку run-time error. Станичка генерируется, но не все фотки можно добавить, а где-то 60. :cry:

**dub** » 01.02.2005 (Вт) 1:30

)
я дал просто исходник, а что там не так, я думаю можно разобраться...
было бы желание

)

**moris** » 01.02.2005 (Вт) 1:34

Спасибо... Уже разобрался...

Конференция VBStreets

Генерация HTML на VB

Генерация HTML на VB

Кто сейчас на конференции