[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
yhcbird

Rank: 3Rank: 3

帖子
143 
积分
201 
技术
4  
捐助
0  
注册时间
2010-12-4 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 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

Rank: 7Rank: 7Rank: 7

帖子
881 
积分
2103 
技术
95  
捐助
55  
注册时间
2010-5-23 
2楼
发表于 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 
复制代码
---学无止境---

TOP

返回列表