Есть ли способ сшить (страничные) веб-страницы вместе?
Например, я хочу распечатать эту ветку, но она разделена на 10 разделов; Как я могу объединить их, чтобы сделать печать проще и эффективнее?
Я бы предпочел быстрое веб-решение, но простые офлайновые инструменты также были бы приемлемы (я скачал каждый раздел и вручную объединил файлы в один HTML-файл, прежде чем ...)
Изменить: я забыл упомянуть, что я использую Opera на Vista Enterprise
Если вы используете Firefox, я предлагаю расширение AutoPager . Он пройдет по всем страницам и объединит их в одну большую страницу, а затем вы сможете распечатать всю страницу, созданную для вас.
Для большинства сайтов он может автоматически объединять отдельные страницы в одну страницу, но для некоторых вы должны указать, где находятся ссылки.
Если вы не хотите беспокоиться о надстройках, вы можете попробовать и посмотреть, есть ли версия сайта, которая выгрузит все для печатной версии.
Для большинства форумов часто существует версия lofi, которая удаляет пейджинг и отображает всю ветку на одной странице. Хитрость заключается в том, чтобы найти страницу / каталог для данного программного обеспечения форума.
В вашем случае HealthBoards работает на vBulletin, и путь lofi к нему - /archive/ . Это должен быть новый путь после каталога к самим платам, и он будет выглядеть следующим образом:
Оттуда вы можете вернуться к теме и увидеть все сообщения на одной странице.
Оригинальная тема здесь:
Быстрый способ - получить это значение сразу после t= (и перед следующим амперсандом (&) в URL-адресе) и при необходимости заменить его следующим образом:
http://www.healthboards.com/boards/archive/index.php/t-296667.html
Это решение работает для Unix, но я уверен, что вы можете найти эквиваленты для Vista.
во-первых, используйте wget для загрузки файлов:
wget -nd -k -p "http://www.healthboards.com/boards/printthread.php?t=296667&pp=20&page="{1,2,3,4,5,6,7,8,9,10} --wait 5
затем используйте кошку, чтобы объединить их. я не знаю windows эквивалент этой команды, но, безусловно, должен быть один:
cat "printthread.php?t=296667&pp=20&page="* > hello.html
файл hello.html будет одним большим файлом со всеми страницами потоков. Вы можете быть раздражены тем фактом, что на всех страницах есть логотип vbulletin!
Редактировать: вот Wget для Windows. конечно, вы могли бы использовать какой-то другой менеджер загрузок
и вот как объединить файлы на окнах.
Вы можете сделать это, используя Microsoft Excel (если у вас есть :)). Он имеет функцию для создания веб-запросов (Меню: Данные> Импорт внешних данных> Веб-запрос).
Я записал макросы VB и внес некоторые изменения, чтобы вы могли добавлять адреса к первому листу, например: (каждый адрес находится в следующей ячейке)
http://www.healthboards.com/boards/printthread.php?t=296667&pp=20&page=1 ........................... ................../ доски / printthread.php?t = 296667 & pp = 20 & page = 2 ........................................... ../boards/printthread.php?т = 296667 & рр = 20 & стр = 3
а затем запустите этот макрос и получите результат. Это помогло мне.
макросы:
Sub Macro2()
'
' Macro2 Macro
'
Dim url As String
Dim count As Integer
Dim resaultSheet As String
Dim adressesSheet As String
adressesSheet = ActiveSheet.Name
resaultSheet = Sheets.Add().Name
Sheets(adressesSheet).Select
Sheets(adressesSheet).Cells(1, 1).Select
ActiveCell.SpecialCells(xlLastCell).Select
count = ActiveCell.Row
Sheets(resaultSheet).Select
Sheets(resaultSheet).Cells(1, 1).Select
For i = 1 To count
url = "URL;" + Sheets(adressesSheet).Cells(i, 1)
With ActiveSheet.QueryTables.Add(Connection:= _
url, Destination _
:=ActiveCell)
.Name = "name"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingAll
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = True
.WebDisableRedirections = True
.Refresh BackgroundQuery:=False
End With
ActiveCell.SpecialCells(xlLastCell).Select
Cells(ActiveCell.Row + 1, 1).Select
Next i
End Sub
Есть коммерческие приложения, если вы не против потратить деньги. Я использовал ClickBook от BlueSquirrel, который, помимо прочего, может склеивать несколько распечаток.