Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/15: Рейтинг темы: голосов - 15, средняя оценка - 4.67
Иваныч
1

Как конвертировать *.mht в *.htm, *.html ?

13.01.2009, 18:42. Просмотров 3103. Ответов 4
Метки нет (Все метки)

Ребята не знаю, что и делать - подскажите пожайлуста как побороть такую проблемку:
Есть папка в которой сохранены документы как WEB Archive, Single file (*.mht).
Вопрос - как програмно можно пересохранить их как Web Page, Complete (*.htm, *.html) (програмно потому-что документов около 1000)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.01.2009, 18:42
Ответы с готовыми решениями:

Как сохранить *.htm в *.mht из VB?
В процессе выполнения создается HTML с картинками - как программно сохранить его в виде *.MHT ?

Как работать с файлами *.mht с точки зрения VB6??
Как работать с файлами *.mht с точки зрения VB6?? Всем спасибо

Как запустить html или htm файл на КПК
Столкнулся с тем что запустить html файл на кпк не получается. КПК пишет "Не удаётся открыть файл...

Как вставить htm в javascript в обычный htm чтобы сохранить русские буквы?
Подскажите кто-нибудь!!! Как вставить htm c javascript в обычный htm чтобы сохранить русские...

Как сделать так чтобы пользователь не закрыв another.htm не мог получить фокус на main.htm?
Здравствуйте Уважаемые. Подскажите как сделать. Есть у меня Main.htm в которой у меня открывается...

4
palva
3248 / 2342 / 488
Регистрация: 08.06.2007
Сообщений: 8,445
Записей в блоге: 4
14.01.2009, 23:19 2
Если вы обратились в этот форум, то вы должны знать бейсик. Тогда напишите программу, что-нибудь вроде:
Код
Set sh = CreateObject('WScript.Shell')
Set ie = CreateObject('InternetExplorer.Application')
ie.visible=True
Set fso = CreateObject('Scripting.FileSystemObject')
Set outf = fso.CreateTextFile('convert.log')
Set fld = fso.GetFolder('.')
For Each fi In fld.Files
  If UCase(Right(fi, 4)) = '.MHT' Then
    ie.navigate(fi)
    i1=InStrRev(fi, '.')
    i2=InStrRev(fi, ' ', i1)
    nfi = Mid(fi, i2+1, i1 - i2 - 1)
    Do While ie.busy
      WScript.Sleep 100
    Loop
    sh.SendKeys('{F10}{Down 5}{Enter}' & nfi & '{Enter}')
    Do While ie.busy
      WScript.Sleep 100
    Loop
    outf.WriteLine(fi & ' saved as ' & nfi & '.htm')
  End If
Next
Set fld = Nothing
outf.close
Set outf = Nothing
Set fso = Nothing
ie.quit
Set ie = Nothing
Set sh = Nothing
или приспособьте эту программу под ваши нужды. Когда работает эта программа, компьютер трогать нельзя, чтобы окно эксплорера всё время оставалось активным, поскольку посылки нажатий клавиш идут в активное окно.
0
palva
3248 / 2342 / 488
Регистрация: 08.06.2007
Сообщений: 8,445
Записей в блоге: 4
14.01.2009, 23:22 3
Забыл написать, что программу нужно с расширением .vbs поместить в ту же директорию, где находятся mht-файлы и запустить двойным кликом мыши.
0
Иваныч
18.01.2009, 12:46 4
Palva - большое спасибо за совет!

После небольших переделок почти все заработало (возникли небольшие проблемы при переносе в диалог имен файлов использующих в своем имени разную кодировку символов)

Тема не закрыта - если есть еще советы как решить проблему конвертации - пожайлуста помогите
Иваныч
18.01.2009, 12:47 5
Palva - большое спасибо за совет!

После небольших переделок почти все заработало (возникли небольшие проблемы при переносе в диалог имен файлов использующих в своем имени разную кодировку символов)

Тема не закрыта - если есть еще советы как решить проблему конвертации - пожайлуста помогите
18.01.2009, 12:47
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.01.2009, 12:47

Скрипт для конвертации HTML в MHT
Я сдаюсь. Пытаюсь написать скрипт для того, чтобы сохранить html в mht. Примеры гуглятся и даже...

Как ,doc конвертировать в .html?
Всем здрасти ) Есть у меня текстовый документ Ворда, и я его обработал - сделал жирным нужные...

Как конвертировать HTML в PDF
Формирую документ в HTM и появилась необходимость сохранять его. Подскажите плиз, как можно...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.