Board logo

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

  1. Dim objIE,fso,f
  2. Set objIE = CreateObject("InternetExplorer.Application")
  3. Set fso=CreateObject("Scripting.FileSystemObject")
  4. Set f=fso.OpenTextFile(fso.GetFolder(".")&"\1.txt",1)
  5. strCopy = f.ReadLine
  6. f.Close
  7. objIE.Navigate("about:blank")
  8. objIE.document.parentwindow.clipboardData.SetData "text", strCopy
  9. objIE.Quit
复制代码





欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2