[已解决]复制文字到剪帖板的vbs代码变量获取

yhcbird

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

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

复制代码