标题: [已解决]复制文字到剪帖板的vbs代码变量获取 [打印本页]
作者: yhcbird 时间: 2010-12-25 11:23 标题: [已解决]复制文字到剪帖板的vbs代码变量获取
strCopy = "农场"
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.document.parentwindow.clipboardData.SetData "text", strCopy
objIE.Quit
上面这段是复制“农场”到剪帖版的vbs代码。我现在想实现“农场”从1.txt中获取。应该如何办到
假设
1.txt中的内容就只有一行 里面只有“农场”2字
也就是说strCopy = " " 这个" " 能不能设置一个变量从1.txt中获取
[ 本帖最后由 yhcbird 于 2011-1-3 12:34 编辑 ]
作者: broly 时间: 2010-12-25 12:14
- Dim objIE,fso,f
- Set objIE = CreateObject("InternetExplorer.Application")
- Set fso=CreateObject("Scripting.FileSystemObject")
- Set f=fso.OpenTextFile(fso.GetFolder(".")&"\1.txt",1)
- strCopy = f.ReadLine
- f.Close
- objIE.Navigate("about:blank")
- objIE.document.parentwindow.clipboardData.SetData "text", strCopy
- objIE.Quit
复制代码
欢迎光临 批处理之家 (http://bathome.net./) |
Powered by Discuz! 7.2 |