4

Есть ли способ сшить (страничные) веб-страницы вместе?

Например, я хочу распечатать эту ветку, но она разделена на 10 разделов; Как я могу объединить их, чтобы сделать печать проще и эффективнее?

Я бы предпочел быстрое веб-решение, но простые офлайновые инструменты также были бы приемлемы (я скачал каждый раздел и вручную объединил файлы в один HTML-файл, прежде чем ...)

Изменить: я забыл упомянуть, что я использую Opera на Vista Enterprise

5 ответов5

4

Если вы используете Firefox, я предлагаю расширение AutoPager . Он пройдет по всем страницам и объединит их в одну большую страницу, а затем вы сможете распечатать всю страницу, созданную для вас.

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

4

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

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

В вашем случае HealthBoards работает на vBulletin, и путь lofi к нему - /archive/ . Это должен быть новый путь после каталога к самим платам, и он будет выглядеть следующим образом:

http://www.healthboards.com/boards/archive/index.php

Оттуда вы можете вернуться к теме и увидеть все сообщения на одной странице.

Быстрая версия ветки vBulletin:

Оригинальная тема здесь:

http://www.healthboards.com/boards/showthread.php?t=296667

Быстрый способ - получить это значение сразу после t= (и перед следующим амперсандом (&) в URL-адресе) и при необходимости заменить его следующим образом:

http://www.healthboards.com/boards/archive/index.php/t-296667.html

2

Это решение работает для 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. конечно, вы могли бы использовать какой-то другой менеджер загрузок

и вот как объединить файлы на окнах.

1

Вы можете сделать это, используя 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
1

Есть коммерческие приложения, если вы не против потратить деньги. Я использовал ClickBook от BlueSquirrel, который, помимо прочего, может склеивать несколько распечаток.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .