clipコマンドを利用して文字列をクリップボードにコピーするVBScriptです。
Option Explicit
Dim s
s = "こんにちは" & vbTab & """田中""" & vbTab & "さん"
PutInClipboardText s
MsgBox "文字列をクリップボードにコピーしました。" & vbCrLf & "文字列:" & s
Public Sub PutInClipboardText(ByVal str)
Dim cmd
cmd = "cmd /c ""echo " & str & "| clip"""
CreateObject("WScript.Shell").Run cmd, 0
End Sub
XPは標準でclipコマンドが入っていなかったような記憶がありますが、7では標準でclipコマンドが使えるようだったのでスクリプトを書いてみました。
以前に書いたInternet Explorerを使ったスクリプトよりも軽くて使いやすいです。
この記事へのコメントはありません。