许多朋友经常摘录一些网页内容到其他地方，供查阅、编辑等，在这时，常常要复制两次，一次是内容，接着一次是内容所在的网址。脚本比较简单，只有一个热键，当我们粘贴从网页中复制的内容时，它会自动附加上网页的地址。
脚本
最初我写了这种功能的脚本，但一些方面处理不太好，下面这个脚本是 Lexikos 重写的，比较完善，不影响其他复制粘贴操作。
原理是，从网页复制内容时其中的内容实际上包含了来源，所以直接从中提取。
~^v::
; 最初灵感：http://ahk8.com/thread-4198.html
; 脚本来源（英文）：http://www.autohotkey.com/board/topic/82393-auto-attach-its-url-when-copy-from-a-webpage/#entry525258
Sleep 100
CF_HTML := DllCall("RegisterClipboardFormat", "str", "HTML Format")
bin := ClipboardAll
n := 0
while format := NumGet(bin, n, "uint")
{
size := NumGet(bin, n + 4, "uint")
if (format = CF_HTML)
{
html := StrGet(&bin + n + 8, size, "UTF-8")
RegExMatch(html, "(*ANYCRLF)SourceURL:\K.*", sourceURL)
break
}
n += 8 + size
}
if !sourceURL
return
Clipboard := "`nSource: " sourceURL
Send ^v
Sleep 250
Clipboard := bin
return
使用时开启脚本后与平常一样复制， 然后使用 Ctrl + V 粘贴就行（鼠标粘贴无效）。
实际效果
我复制【其他】Copyheart、改版中的部分内容，如下：
复制网页内容
粘贴到 Word 中后（因内容过宽，右边部分被截除）
粘贴到 Word 中
可以看到在原内容后自动增加了文章的网址，以后复制网页内容（包括从浏览器、CHM 文件等复制的情况）时开启这个脚本就方便多了。
小结
可根据需要调整脚本，上面的脚本中没有注释，如果有兴趣进一步了解原理，请参阅：
- CF_HTML 剪贴板格式的数据结构：HTML Clipboard Format
- 最初的实现思路及改进过程： 上面脚本中的来源链接
网友评论