Вставка текста или html в .notebook

Question

Я хотел бы вставить вывод веб-страницы в блокнот (по сути, текстовый или html-захват экрана). Не нужно, чтобы это было «живым», это просто для справки.

В идеале это будет выглядеть так же, как в веб-браузере. Я хочу, чтобы он был неоценимым, и я не хочу, чтобы передняя часть пыталась отформатировать его как очень ошибочное выражение Mathematica.

(EDIT, чтобы добавить: создать ячейку и сделать «Cell-> Convert To -> Текстовый дисплей "- достаточно хороший способ получить текст, отображаемый без переформатирования переднего конца. Мне интересно, является ли это« правильным »способом сделать это или если есть лучший способ, особенно если бы я хотел для форматирования html или графики тоже)

Answer 1

Если вы просто хотите текст (возможно, со стилями), выберите текст на веб-странице, создайте ячейку Text в Mathematica (cmd-7 на Mac), затем вставьте.

Answer 2

Насколько я знаю, Mathematica не может отображать HTML-страницы. Используя Import, вы можете получать всевозможные вещи из сайтов и файлов на основе html. Один из вариантов, чтобы получить версию на основе текста сайта, как это:

Import["http://reference.wolfram.com/mathematica/guide/Mathematica.html", "Plaintext"] 

Answer 3

Одна возможность конвертировать веб-страницу в PDF, а затем Import этот PDF файл. Этот метод должен дать векторное изображение исходной страницы, которое похоже на то, что вы видите в браузере.

Другая возможность - сделать снимок экрана этой веб-страницы в браузере и вставить ее в Блокнот. Также можно сделать «снимок экрана» с более высоким разрешением, чем ваш монитор, распечатав веб-страницу на каком-то виртуальном принтере, который поддерживает преобразование в растровые форматы (LEADTOOLS ePrint - один из лучших).

---

EDIT

Интересная альтернатива, чтобы сделать скриншоты руками, чтобы использовать Google веб-страницы миниатюр службы. Я не много знаю об этом, но вы можете получить закодированы в JavaScript JPEG эскиз любой веб-страницы с URL, как

http://www.google.com/webpagethumbnail?r=2&f=2&s=300:585&query=wolfram&hl=ru&gl=us&c=11&d=http%3A%2F%2Fintegrals.wolfram.com%2F&b=1&j=google.vs.r&a=D57

Этот URL дает файл со следующим элементом:

["data: image/jpeg; base64,"]

(<data> здесь является аббревиатурой для кодированных данных изображения JPEG).

Мы можем извлечь data в Mathematica следующим образом:

data = Import[ 
    "http://www.google.com/webpagethumbnail?r=2&f=2&s=300:585&query=\ 
wolfram&hl=ru&gl=us&c=11&d=http%3A%2F%2Fintegrals.wolfram.com%2F&b=1&\ 
j=google.vs.r&a=D57"]; 

imageData = 
    StringReplace[ 
    data, __ ~~ "[\"data:image/jpeg;base64," ~~ x__ ~~ "\"]," ~~ __ :> 
    x] 

Я не знаю, как преобразовать imageData дальше, но это лишь вопрос зная JPEG спецификации формата ...

Answer 4

В случае, если вы находитесь на OS X, ctrl + shift + cmd + 4 приводит к изменению курсора на крест с текущими координатами рядом с ним; выбор произвольной прямоугольной области на экране копирует ее в буфер обмена, из которой вы можете вставить ее в mma (в виде растровой графики).

Конечно, существуют способы сделать это в других операционных системах.

Answer 5

Если вы на Windows (с .NET), то вы можете использовать функциональные возможности NETLINK Mathematica в сочетании с WebBrowser класса, чтобы захватить скриншот веб-страницы:

Needs["NETLink`"] 
LoadNETType["System.Drawing.Imaging.ImageFormat", AllowShortContext -> False] 
LoadNETType["System.Windows.Forms.WebBrowserReadyState", AllowShortContext -> False] 

Options[dotNetBrowserScreenshot] = {Width -> 1024, Height -> Automatic}; 
dotNetBrowserScreenshot[uri_, OptionsPattern[]] := 
    NETBlock @ Module[{browser, bitmap, tempFile, image, bounds} 
    , browser = NETNew["System.Windows.Forms.WebBrowser"] 
    ; browser@Width = OptionValue[Width] 
    ; browser@ScrollBarsEnabled = False 
    ; browser@Navigate[uri] 
    ; tempFile = Close@OpenWrite[] 
    ; While[browser@ReadyState =!= System`Windows`Forms`WebBrowserReadyState`Complete 
    , Pause[0.05] 
    ] 
    ; bounds = browser@Document@Body@ClientRectangle 
    ; browser@Height = OptionValue[Height] /. Automatic -> bounds@Height 
    ; bitmap = NETNew["System.Drawing.Bitmap", browser@Width, browser@Height] 
    ; browser@DrawToBitmap[bitmap, bounds] 
    ; browser@Dispose[] 
    ; bitmap@Save[tempFile, System`Drawing`Imaging`ImageFormat`Png] 
    ; bitmap@Dispose[] 
    ; image = Import[tempFile, "PNG"] 
    ; DeleteFile[tempFile] 
    ; image 
    ] 

использование Пример:

Полная веб-страница может быть записана с использованием Height -> Automatic (что является значением по умолчанию). Обратите внимание, что снимок экрана отображается при уменьшенном увеличении.