批处理之家 - Powered by Discuz! Board

标题: [已解决]复制文字到剪帖板的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://bbs.bathome.net/)