返回列表 发帖

[问题求助] VBS脚本如何复制记事本中某行内容到剪贴板?

比如我指定文件为abc.txt,内容如下
aaaaa
bbbbb
ccccc
我想用批处理或者vbs实现复制指定abc.txt第二行的内容到剪贴板,不需要弹窗,可以在脚本运行结束后用ctrl+v粘帖。

本帖最后由 yu2n 于 2014-10-16 11:24 编辑
标题: VBS访问剪贴板的几种方法
作者: Demon
链接: http://demon.tw/programming/vbs-clipboard.html
用Word.Application也可以设置和获取剪贴板内容
'设置剪切板的内容
Dim Word
Set Word = CreateObject("Word.Application")
Word.Documents.Add
Word.Selection.Text = "忘记了,喜欢一个人的感觉"
Word.Selection.Copy
Word.Quit False
'获取剪切板的内容
Dim Word
Set Word = CreateObject("Word.Application")
Word.Documents.Add
Word.Selection.PasteAndFormat(wdFormatPlainText)
Word.Selection.WholeStory
str = Word.Selection.Text
Word.Quit False
WScript.Echo strCOPY


VBS访问剪贴板的几种方法
http://demon.tw/programming/vbs-clipboard.html
『千江有水千江月』千江有水,月映千江;万里无云,万里青天。    http://yu2n.qiniudn.com/

TOP

返回列表