VBSCRIPT对剪贴板的操作

【寫入剪貼簿】

clipboardData.setData "Text", "(要寫入剪貼簿的字串)"

很簡單的一個方法，應該也不用解釋什麼了，直接來看範例：

<SCRIPT LANGUAGE="VBScript">
    clipboardData.setData "Text", "剪貼簿的操作真簡單！"
</SCRIPT>

[執行]

當您執行了上面那段程式後，剪貼簿內的資料會變成「剪貼簿的操作真簡單！」。也就是說，如果您按下了「右鍵 / 貼上」，出現的文字就是「剪貼簿的操作真簡單！」。
另外，要寫入的文字當然也可以使用變數。請看以下範例：

<script language=VBScript> Dim strWriteText strWriteText = "把變數寫入剪貼簿也很簡單！" </script>

<SCRIPT LANGUAGE="VBScript">
    Dim strWriteText
    strWriteText = "把變數寫入剪貼簿也很簡單！"
    clipboardData.setData "Text", strBoardText
</SCRIPT>

[執行]

【清空剪貼簿】

clipboardData.clearData()

很簡單吧？只要一句話就可以了。

<SCRIPT LANGUAGE="VBScript">
    clipboardData.clearData()
</SCRIPT>

[執行]

【讀取剪貼簿】

strReadText = clipboardData.getData("Text")

這更簡單了！只要短短的「clipboardData.getData("Text")」一句，完全不需要修改。請看範例：

<script language=VBScript> Sub RunCode3() MsgBox "剪貼簿內容：「" & clipboardData.getData("Text") & "」" End Sub </script>

<SCRIPT LANGUAGE="VBScript">
    MsgBox "剪貼簿內容：「" & clipboardData.getData("Text") & "」"
</SCRIPT>

[執行]

【整合範例】

<SCRIPT LANGUAGE="VBScript">
Sub CopyToClipboard()
    Dim strWriteText
    strWriteText = "我會剪貼簿的操作了！"
    clipboardData.setData "Text", strWriteText
    MsgBox "「" & strWriteText & "」" & " 已經複製到剪貼簿"
End Sub
Sub ShowClipboard()
    MsgBox "剪貼簿內容：「" & clipboardData.getData("Text") & "」"
End Sub
Sub ClearClipboard()
    clipboardData.clearData()
    MsgBox "已經清空剪貼簿"
End Sub
</SCRIPT>
<BUTTON onClick="CopyToClipboard">複製到剪貼簿</BUTTON> 
<BUTTON onClick="ShowClipboard">從剪貼簿讀出</BUTTON>
<BUTTON onClick="ClearClipboard">清空剪貼簿</BUTTON>

---

<script language=VBScript> Sub CopyToClipboard() Dim strWriteText strWriteText = "我會剪貼簿的操作了！" clipboardData.setData "Text", strWriteText MsgBox "「" & strWriteText & "」" & " 已經複製到剪貼簿" End Sub Sub ShowClipboard() MsgBox "剪貼簿內容：「" & clipboardData.getData("Text") & "」" End Sub Sub ClearClipboard() clipboardData.clearData() MsgBox "已經清空剪貼簿" End Sub </script> 複製到剪貼簿  從剪貼簿讀出  清空剪貼簿

【清空剪貼簿的補充】(感謝 星君兄的提供 + 提醒)

clipboardData.clearData() = clipboardData.setData "Text", "" ？

這兩者相等嗎？答案是不相等。
clipboardData.clearData() 後，剪貼簿是真的被「清空」了，所以這個時候若讀出剪貼簿內容，將會是「Null」。
而 clipboardData.setData "Text", "" 則是將空字串放入剪貼簿，所以剪貼簿內還是有東西，讀出後則是空字串「」。
不懂？做個實驗就會知道了。首先請先開啟記筆本(或其他文字編輯軟體)，任意輸入一段文字，並複製那段文字。
接著按下下面的第一個按鈕，然後到記筆本中，在選取的文字上做「貼上」的動作。結果是沒有任何事發生，因為此時剪貼簿是空的。
再來，請按下第二個按鈕，並到記筆本中，在選取的文字上「貼上」。結果，那段文字不見了！因為剪貼簿中有空字串，會貼上空字串，所以蓋掉原本的字了。

clipboardData.clearData()

<BUTTON onClick="VBScript: clipboardData.clearData()">clipboardData.clearData()</BUTTON>

---

clipboardData.setData "Text", ""

<BUTTON onClick="VBScript: clipboardData.setData 'Text', ''">clipboardData.setData "Text", ""</BUTTON>

【後記】

既然本篇命名為「剪貼簿操作 (一)」，就表示一定會再有第二集出現。
在 DOB 的更新速度可能不會同步，所以若想先看可到 我的網站。
(網站如果連不上去就表示我沒開機...)