웹 페이지를 함께 묶는 방법이 있습니까?
예를 들어, 이 스레드 를 인쇄하고 싶지만 10 개의 섹션으로 나뉩니다. 보다 쉽고 효율적으로 인쇄하기 위해 어떻게 그것들을 결합 할 수 있습니까?
빠른 웹 기반 솔루션을 선호하지만 간단한 오프라인 도구도 사용할 수 있습니다 (각 섹션을 다운로드하고 수동으로 파일을 하나의 html 파일로 병합했습니다 ...)
편집 : Vista Enterprise에서 Opera를 사용하는 것을 언급하지 않았습니다.
답변:
애드온에 신경 쓰지 않으려면 인쇄 버전에 대한 모든 것을 버리는 사이트 버전이 있는지 확인하십시오.
대부분의 포럼에는 페이징을 제거하고 전체 스레드를 한 페이지에 표시하는 lofi 버전이 종종 있습니다. 요령은 특정 포럼 소프트웨어의 페이지 / 디렉토리를 찾는 것입니다.
귀하의 경우, HealthBoards는 vBulletin에서 실행 중이며 LoFi 경로는 /archive/입니다. 이것은 보드 자체에 대한 디렉토리 다음의 새로운 경로 여야하며 다음과 같습니다.
여기에서 스레드로 다시 이동하여 단일 페이지의 모든 게시물을 볼 수 있습니다.
원래 스레드는 다음과 같습니다.
빠른 방법은 URL t=바로 다음 (및 &URL에서 다음 앰퍼샌드 ( ) 앞 )에서 해당 값을 가져 와서 아래에서 필요에 따라 바꾸는 것입니다.
http://www.healthboards.com/boards/archive/index.php/t-296667.html
이 솔루션은 유닉스에서 작동하지만 비스타와 동등한 것을 찾을 수 있다고 확신합니다.
먼저 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
그런 다음 고양이를 사용하여 연결하십시오. 이 명령에 해당하는 창을 모르지만 반드시 하나 있어야합니다.
cat "printthread.php?t=296667&pp=20&page="* > hello.html
hello.html 파일은 모든 스레드 페이지가있는 하나의 큰 파일입니다. 모든 페이지에 해당 vbulletin 로고가 있다는 사실에 짜증이 날 수 있습니다!
편집 : 여기는 Windows 용 wget 입니다. 물론 다른 다운로드 관리자를 사용할 수도 있습니다.
그리고 여기 창에 파일을 연결하는 방법입니다.
돈을 쓰지 않아도된다면 상용 앱이 있습니다. 나는에서 ClickBook를 사용했습니다 BlueSquirrel 무엇보다도 여러 출력물을 함께 스티치 수있다.
Microsoft Excel을 사용하여 수행 할 수 있습니다 (있는 경우 :)) 웹 쿼리 기능 (메뉴 : 데이터> 외부 데이터 가져 오기> 웹 쿼리)이 있습니다.
VB 매크로를 기록하고 약간의 변경을 수행하여 첫 번째 시트에 주소를 추가 할 수 있습니다. 각 주소는 다음 셀에 있습니다.
http://www.healthboards.com/boards/printthread.php?t=296667&pp=20&page=1 ........................... .................. / boards / printthread.php? t = 296667 & pp = 20 & page = 2 .................. ........................... / boards / printthread.php? t = 296667 & pp = 20 & page = 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