标题: [已结]VBS把文本内容保存在记事本的结尾 [打印本页]
作者: ka56 时间: 2009-1-8 19:05 标题: [已结]VBS把文本内容保存在记事本的结尾
Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate("about:blank")
str = ie.document.parentwindow.clipboardData.GetData("text")
Const ForWriting = 2
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("a.txt", ForWriting, True)
objFile.Write str
objFile.Close
上面的代码是将剪贴板的字符保存到A.TXT,但会覆盖以前的数据.求个不会覆盖数据的代码.ie.Navigate("about:blank")
str = ie.document.parentwindow.clipboardData.GetData("text")
Const ForWriting = 2
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("a.txt", ForWriting, True)
objFile.Write str
objFile.Close
A.TXT:
我想你
剪贴板的内容"我爱你",运行后想得到的:
A.TXT:
我想你
我爱你
谢谢!!
[ Last edited by HAT on 2009-1-8 at 23:01 ]
作者: HAT 时间: 2009-1-8 19:23
看帮助
| Quote: | |
|
作者: ka56 时间: 2009-1-8 19:48
没学过,有空我去看看...