クリップボードの中身をファイルに出力
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
]
開始行:
目次
#Contents
**概要 [#la874bf4]
クリップボードの中身をファイルに出力するスクリプト
**コード [#g3443599]
Set IE = WScript.CreateObject("InternetExplorer.Applicat...
IE.Navigate "about:blank"
Set c =IE.Document.ParentWindow.ClipboardData
d = c.getData("text")
If IsNull(d) Then d =""
Set FSO = CreateObject("Scripting.FileSystemObject")
'保存先
p = "C:\clip.txt"
f = Replace(Date, "/", "") & ".txt"
Set t = FSO.OpenTextFile(p & f,8,True)
t.WriteBlankLines(1)
t.WriteLine Time
t.WriteLine d
t.Close
終了行:
目次
#Contents
**概要 [#la874bf4]
クリップボードの中身をファイルに出力するスクリプト
**コード [#g3443599]
Set IE = WScript.CreateObject("InternetExplorer.Applicat...
IE.Navigate "about:blank"
Set c =IE.Document.ParentWindow.ClipboardData
d = c.getData("text")
If IsNull(d) Then d =""
Set FSO = CreateObject("Scripting.FileSystemObject")
'保存先
p = "C:\clip.txt"
f = Replace(Date, "/", "") & ".txt"
Set t = FSO.OpenTextFile(p & f,8,True)
t.WriteBlankLines(1)
t.WriteLine Time
t.WriteLine d
t.Close
ページ名: