使用 AppleScript 保存 Safari 中打开的网页的源代码

Question

如何编写一个脚本，将 Safari 中打开的网页保存到某个路径？

（该代码稍后将用于更复杂的脚本，因此使用系统事件的笨拙解决方案是行不通的。）很多谷歌搜索找到一个使用保存源功能的脚本让我非常不知情，所以这个答案可能是互联网上的第一个。我在下面粘贴了一些可能有用的内容。

潜在有用的东西

Safari 的 AppleScript 字典中的这两个条目看起来很有用：

文档 n [另请参阅标准套件]：代表窗口中活动选项卡的 Safari 文档。

属性：

• source（文本，r/o）：文档中当前加载的网页的 HTML 源代码。
• 文本 (text, r/o)：文档中当前加载的网页文本。对文本的修改不会反映在网页上。
• URL（文本）：文档的当前 URL。

以及后来：

save v ：保存对象。

保存说明符：命令的对象

• [as text]：保存数据的文件类型。
• [in 别名]：保存对象的文件。

几乎可以完成我想要的任务的脚本

该脚本确实保存了 HTML 文档，但与手动使用 Safari 的“导出为页面源”功能保存的文件相比，输出看起来很糟糕：

tell application "Safari"
(* Get a reference to the document *)
set myDoc to document of front window

(* Get the source of the page *)
set mySrc to source of myDoc

(* Get a file name *)
set myName to "Message_" & "0001" & ".html" -- the # will be modified later

tell application "Finder"
    (* Get a path to the front window *)
    set myPath to (target of front window) as string

    (* Get a file path *)
    set filePath to myPath & myName

    (* Create a brand new file *)
    set openRef to open for access (myPath & myName) with write permission

    (* Save the document source *)
    write mySrc to openRef

    (* Close the file *)
    close access openRef
end tell

这是我到目前为止编写的内容：

我已经编写的脚本到目前为止写的

1. 这是我的第一次尝试：

   告诉应用程序“Safari”
       将 pageToSaveSafariWindowIn 设置为“Q:Ø:”
       将 pageToBeSaved 设置为前窗口
       将文档 pageToBeSaved 保存为别名 pageToSaveSafariWindowIn 中的源
   结束告诉
   

   以下是生成的日志：

   告诉应用程序“Safari”
       获取窗口1
           -->窗口 ID 6017
       将文档（窗口 ID 6017）保存为别名“Q:Ø:”中的源
           -->错误号 -1700 从窗口 ID 6017 到整数
   

   和

   <块引用>

   错误“Safari 出现错误：无法将窗口 ID 6017 转换为整数类型。”数字 -1700 从窗口 id 6017 到整数

2. 另一个尝试：

   告诉应用程序“Safari”
       将文档来源保存在“Q:Ø:”中
   结束告诉
   

   给出结果日志：

   <块引用>

   错误“无法获取文档来源。”文档的“class conT”中的编号 -1728

Answer 1

我找到了我认为更好/更简单的解决方案：

tell application "Safari"
activate
set URL of document 1 to "http://www.apple.com"
delay 5
set myString to source of document 1
end tell
set newFile to POSIX file "/Users/myUsername/test.html"
open for access newFile with write permission
write myString to newFile
close access newFile

注意：

• “文档 1 的源代码”似乎仅在网页完全加载后才填充正确的源文本。因此需要延迟。也许你可以使用较低的延迟。

• 有一些解决方案建议使用curl。我还没有尝试过这个，但我认为对于动态生成的页面这可能会出现问题。

• 以上适用于 OSX 10.8.4。未针对其他版本进行测试。

Answer 2

这是保存充满选项卡的窗口的一种方法。最初的 UI 处理程序是由 StefanK aka 编写的。 Macscripter 的 Stefan Klieme 名声大噪。它会考虑 webarchives 文件结尾，当 Safari 不确定时，您可以调整是否要覆盖或忽略已写入的文件。它不保存重复的选项卡，您可以设置一个属性来决定保存时是否关闭选项卡。

请查看 MacScripter，脚本中包含直接链接，以获取任何更新。

您当然可以使用 wget，但我选择了 UI 脚本，因为 wget 可以下载浏览器中已有的内容，并且编程也很麻烦。

    property tlvl : me
    # Release 1.0.1
    # © 2012 McUsr and  put in Public Domain under GPL 1.0
    # Please refer to this post: http://macscripter.net/post.php?tid=30892
    property shallClose : false # set this to false if you don't want to close the windows, just saving them
    property dontOverWriteSavedTabs : false # set this to true if you don't want to overwrite already saved tabs in the folder 
    script saveTabsInSafariWindowsToFolder
        property parent : AppleScript

        property scripttitle : "SafariSaveTabs"
        on run
            if downloadWindowInFront() then return 0 # activates Safari

            local script_cache
            set script_cache to my storage's scriptCache()

            set saveFolder to POSIX path of (getHFSFolder({theMessage:"Choose or create folder to save Safari-tabs in.", hfsPath:DefaultLocation of script_cache as alias}))
            if saveFolder = false then return 0 -- we were obviously mistaken, about what we wanted to do.

            my storage's saveParenFolderInScriptCache(saveFolder, script_cache)

            tell application "Safari"
                tell its window 1
                    local tabc, oldidx
                    set tabc to count tabs of it
                    if not tlvl's shallClose then
                        set oldidx to index of current tab
                        tell tab tabc to do JavaScript "self.focus()"
                    end if
                    local saveCounter
                    set saveCounter to 1 -- regulates setting of save folder to only first time in Safari.
                    repeat while tabc > 0
                        local theUrl, theIdx, theProtocol, alreadyClosed

                        set {theUrl, theIdx, alreadyClosed} to {URL of its current tab, index of its current tab, false}

                        if my isntAduplicateTab(theIdx, it) then

                            set theProtocol to my urlprotocol(theUrl)
                            if theProtocol is in {"http", "https"} then
                                # save it
                                set saveCounter to my saveCurrentTab(saveFolder, saveCounter)
                            else if theProtocol is "file" then
                                # make an alias of it 
                                my makeAliasForAFurl(saveFolder, theUrl)
                            end if
                        else
                            if tlvl's shallClose then
                                close current tab
                                set alreadyClosed to true
                            end if
                        end if

                        if not alreadyClosed and tlvl's shallClose then
                            close current tab of it
                            set tabc to tabc - 1
                        else if not tlvl's shallClose then
                            set tabc to tabc - 1
                            if tabc > 0 then tell tab tabc to do JavaScript "self.focus()"
                        end if
                    end repeat
                    # move forwards
                    if not tlvl's shallClose then
                        tell tab oldidx to do JavaScript "self.focus()"
                    end if
                end tell
            end tell
        end run


        to makeAliasForAFurl(destinationFolder, furl)
            local ti, tids, thefilePath
            set ti to "file://"
            set {tids, AppleScript's text item delimiters} to {AppleScript's text item delimiters, ti}
            set thefilePath to text item 2 of furl
            set AppleScript's text item delimiters to tids
            set theFile to POSIX file thefilePath as alias
            set theFolder to POSIX file destinationFolder
            tell application "Finder"
                make alias at theFolder to theFile
                # I don't care if there was one there from before, as it could equally
                # be a file with the same name.
            end tell
        end makeAliasForAFurl

        to saveCurrentTab(destinationFolder, timeNumber)
            tell application id "sfri" to activate
            tell application "System Events"
                set UI elements enabled to true
                tell process "Safari"
                    keystroke "s" using {command down}
                    tell window 1
                        repeat until exists sheet 1
                            delay 0.2
                        end repeat
                        tell sheet 1
                            if timeNumber = 1 then -- We'll set the savepath upon first call
                                keystroke "g" using {command down, shift down}
                                repeat until exists sheet 1
                                    delay 0.2
                                end repeat
                                tell sheet 1
                                    set value of text field 1 to destinationFolder
                                    click button 1
                                    delay 0.1
                                end tell
                            end if
                            keystroke return
                            delay 0.2
                            if exists sheet 1 then -- We are being asked if we want to overwrite already saved tab
                                if dontOverWriteSavedTabs then
                                    keystroke return # if it was already saved. We don't overwrite it
                                    click button 3
                                else
                                    keystroke tab
                                    keystroke space # we are  to overwrite
                                end if
                            else
                                try
                                    set dummy to focused of sheet 1
                                on error
                                    # click button 1 of panel of application "Safari"
                                    keystroke return

                                    delay 0.2
                                    if exists sheet 1 then -- We are being asked if we want to overwrite already saved tab
                                        if dontOverWriteSavedTabs then
                                            keystroke return # if it was already saved. We don't overwrite it
                                            click button 3
                                        else
                                            keystroke tab
                                            keystroke space # we are  to overwrite
                                        end if
                                    end if
                                end try
                            end if
                        end tell
                    end tell
                end tell
            end tell
            set timeNumber to timeNumber + 1
            return timeNumber
        end saveCurrentTab

        on downloadWindowInFront()
            tell application "Safari"
                activate
                set tabCount to count tabs of its window 1
                if tabCount  0 then set colons to true
            if (offset of "/" in aPath) > 0 then set slashes to true

            if colons and slashes then
                return null
            else if colons then
                set origDelims to ":"
            else if slashes then
                set origDelims to "/"
            else
                return null
            end if
            local tids
            set {tids, AppleScript's text item delimiters} to {AppleScript's text item delimiters, origDelims}
            if aPath = "/" then
                -- we return root when we get root
                set AppleScript's text item delimiters to tids
                return "/"
            end if
            local theParentFolder
            if text -1 of aPath is in {":", "/"} then
                set theParentFolder to text items 1 thru -2 of text 1 thru -2 of aPath
            else
                set theParentFolder to text items 1 thru -2 of aPath
            end if
            set theParentFolder to theParentFolder as text
            if slashes and theParentFolder = "" then set theParentFolder to "/"
            -- sets the root path if we got a folder one level below it
            if colons and (":" is not in theParentFolder) then set theParentFolder to theParentFolder & ":"
            -- we return volumename, if we are given volumename 
            set AppleScript's text item delimiters to tids
            return theParentFolder
        end parentfolder


        script storage
            property cachespath : ((path to library folder from user domain as text) & "caches:" & "net.mcusr." & scripttitle)

            on scriptCache()

                local script_cache
                try
                    set script_cache to load script alias (my cachespath)
                on error
                    script newScriptCache
                        property DefaultLocation : (path to desktop folder as text)
                        # edit any of those with default values
                    end script

                    set script_cache to newScriptCache
                end try
                return script_cache
            end scriptCache

            to saveScriptCache(theCache)
                store script theCache in my cachespath replacing yes
            end saveScriptCache

            to saveParenFolderInScriptCache(theFolderToSaveIn, script_cache)
                local containingFolder
                set containingFolder to (parentfolder of saveTabsInSafariWindowsToFolder for theFolderToSaveIn) & "/"
                local theLoc
                set theLoc to POSIX file containingFolder as alias
                set DefaultLocation of script_cache to theLoc
                my saveScriptCache(script_cache)
            end saveParenFolderInScriptCache
        end script
    end script
    tell saveTabsInSafariWindowsToFolder to run

享受

Answer 3

自动机会做到这一点。这是工作流程 - http://cl.ly/450m0Q21463p16322P1i。

自动机->行动->互联网-> 从 Safari 获取当前网页 -> 下载网址。

Answer 4

set hyperlink to "http://www.google.com/"

set sourceCode to (do shell script "curl " & hyperlink)

do shell script "echo " & quoted form of sourceCode & " >> /Users/name/Desktop/test.csv"

您可以重复此操作，它会将每个列出的站点中的每个源代码附加到您创建的文档的末尾。 IE

set hyperlink to "http://www.aRepetitivePageSite.com/2014?page="
set your_count to 1
repeat until your_count = 10
  set sourceCode to (do shell script "curl " & (hyperlink & your_count as string as text))
  do shell script "echo " & quoted form of sourceCode & " >> /Users/name/Desktop/test.csv"
  set your_count to your_count + 1
end repeat

Answer 5

如果您要手动执行此任务，您可以在 Safari 中查看源代码，将源代码复制到剪贴板，进入 HTML 源代码编辑器并创建一个新文档，将源代码粘贴到其中，选择“保存”并导航到“文档”文件夹，命名文档，然后保存。

因此，当您想要编写 AppleScript 来完成此任务时，关键是您仍然想使用这些相同的应用程序，但您将使用 AppleScript 运行它们，而不是手动运行它们。 TextWrangler 是一款出色的 AppleScriptable HTML 源代码编辑器，它可以从 Mac App Store 免费下载。

一旦您同时拥有一个用于从网络获取 HTML 源的 Web 浏览器 (Safari) 和一个用于创建和保存 HTML 文档的 HTML 源代码编辑器 (TextWrangler)，您就可以编写一个非常小、非常容易编写、非常容易的文档。阅读，非常容易维护AppleScript，如下所示：

tell application "Safari"
    activate
    if document 1 exists then
        set theDocumentTitle to the name of document 1
        set theDocumentSource to the source of document 1
        tell application "TextWrangler"
            activate
            set theNewDocument to make new document with properties {name:theDocumentTitle, text:theDocumentSource}
            set theDocumentsFolderPath to the path to the documents folder as text
            set theSaveFilePath to theDocumentsFolderPath & theDocumentTitle & ".html"
            save theNewDocument to file theSaveFilePath
        end tell
    end if
end tell

...它将简单地要求Safari提供其最前面文档的名称和源代码，然后要求TextWrangler使用该信息在您的Documents文件夹中创建和保存匹配的HTML文档。这两个应用程序都非常擅长执行这些任务。您不需要问两次或做很多解释。