我如何编写一个脚本，将Safari中打开的网页保存到某个路径？
（代码将在稍后用于更复杂的脚本，因此使用系统事件的kludgy解决方案将不会这样做。）很多谷歌搜索使用保存源函数的脚本让我很不知情所以答案这可能是互联网上的第一个。我粘贴了一些下面可能有用的东西。
Safari的AppleScript字典中的这两个条目看起来很有用：
文档 n [另请参阅标准套件]：表示窗口中活动标签的Safari文档。
属性：
- 来源（文字，r / o）：当前加载在文档中的网页的HTML源代码。
- 文字（文字，r / o）：当前加载在文档中的网页文本。对文本的修改不会反映在网页上。
- 网址（文字）：文件的当前网址。
以后：
保存 v ：保存对象。
保存说明符：命令的对象
- [ as text]：保存数据的文件类型。
- [ in alias]：保存对象的文件。
此脚本会保存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
这是我到目前为止所写的：
这是我的第一次尝试：
tell application "Safari"
set pageToSaveSafariWindowIn to "Q:Ø:"
set pageToBeSaved to front window
save document pageToBeSaved as source in alias pageToSaveSafariWindowIn
end tell
以下是生成的日志：
tell application "Safari"
get window 1
--> window id 6017
save document (window id 6017) as source in alias "Q:Ø:"
--> error number -1700 from window id 6017 to integer
和
错误“Safari出错：无法将窗口ID 6017转换为整数类型。”数字-1700从窗口ID 6017到整数
另一次尝试：
tell application "Safari"
save source of document in "Q:Ø:"
end tell
给出结果日志：
错误“无法获取文档来源。”编号为-1728，来自文件的
答案 0 :(得分：4)
我发现了我认为更好/更简单的解决方案：
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”似乎仅在网页完全加载后才填充正确的源文本。因此需要延迟。也许你可以使用更低的延迟。
有一些解决方案建议使用卷曲。我没有尝试过，但我认为对于动态生成的页面，这可能会有问题。
以上适用于OSX 10.8.4。未针对其他版本进行测试。
答案 1 :(得分：2)
Automator会这样做。这是工作流程 - http://cl.ly/450m0Q21463p16322P1i。
Automator - ＆gt;行动 - ＆gt;互联网 - ＆gt; Get Current Webpage from Safari - ＆gt; Download Urls。
答案 2 :(得分：2)
这是一种保存标签窗口的方法。最初的UI处理程序是由StefanK aka编写的。 Macscripter的Stefan Klieme成名。它考虑了webarchives文件的结尾，当Safari有疑问时，您可以调整是否要覆盖或忽略已写入的文件。它不保存重复的选项卡，您可以设置一个属性来决定它在保存时是否关闭选项卡。
请查看MacScripter，脚本中的直接链接，用于任何更新。
你可以使用wget进行overcourse，但是我选择了UI Scripting，因为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
享受
答案 3 :(得分：2)
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"
您可以将其重复抛出，它会将每个列出的stite中的每个源代码附加到您创建的文档的末尾。即。
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
答案 4 :(得分：0)
如果您要手动执行此任务，您可以在Safari中查看源代码，将源代码复制到剪贴板，进入HTML源代码编辑器并制作新文档，粘贴源代码，选择保存并导航到Documents文件夹，命名文档，然后保存。
因此，当您想要编写AppleScript来执行此任务时，关键是您仍然希望使用相同的应用程序，但不是手动运行它们，而是使用AppleScript运行它们。一个很棒的AppleScriptable HTML源代码编辑器是TextWrangler，它是免费的Mac App Store。
一旦你同时拥有一个Web浏览器（Safari）来从网络获取HTML源代码和一个HTML源代码编辑器（TextWrangler）来创建和保存HTML文档，你可以编写一个非常小的，非常容易编写的，非常容易阅读，非常容易维护像这样的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文档。这些是两个应用程序各自非常擅长的任务。你不必问两次或做很多解释。