VBS如何把函数的返回值作为变量的值/赋值给变量？

随风

vbs 如何把命令结果作为变量的值

1. 
   
2. 想把这句获取前一天日期的值取代下面的"strCopy=的值"
   
3. 'wscript.echo dateadd("d",-1,date)
   
4. 
   
5. Dim strCopy
   
6. strCopy="此处为你要输入的文本"
   
7. Call SetClipboardText(strCopy)
   
8. Sub SetClipboardText(Text)   '写入信息到剪切板
   
9.     Dim wsh
   
10.     Set wsh = CreateObject("WScript.Shell")
    
11.     wsh.Run "mshta vbscript:ClipboardData.SetData("&chr(34)&"text"&chr(34)&"," &Chr(34)& Text &Chr(34)& ")(close)",0,True
    
12.     set wsh=Nothing
    
13. End Sub
    
14. 
    
15. '下面的是我依葫芦画瓢,虽能完成粘贴动作,但不知有否欠缺,是否应有什么退出语句.望指点.
    
16. dim wshshell
    
17. set wshshell=createobject("wscript.shell")
    
18. wshshell.Sendkeys("^v")
    

复制代码

随风

瞎套

1. Dim strCopy
   
2. strCopy=dateadd("d",-1,date)
   
3. Call SetClipboardText(strCopy)
   
4. Sub SetClipboardText(Text)   '写入信息到剪切板
   
5.     Dim wsh
   
6.     Set wsh = CreateObject("WScript.Shell")
   
7.     wsh.Run "mshta vbscript:ClipboardData.SetData("&chr(34)&"text"&chr(34)&"," &Chr(34)& Text &Chr(34)& ")(close)",0,True
   
8.     set wsh=Nothing
   
9. End Sub
   
10. 
    
11. '模拟按键 粘贴
    
12. dim wshshell
    
13. set wshshell=createobject("wscript.shell")
    
14. wshshell.Sendkeys("^v")

复制代码