[文本处理] 批处理如何从剪粘板读取内容？【已解决】

lovealei

我用VBS调用一个DLL文件，转换得到一个数据并输出到剪粘板，要怎样才能把这个数据读取并赋值给BAT的一个变量

下面的是VBS代码，

Set enc = CreateObject("Base64Lib.Base64Object")

realname = InputBox("请输入姓名:", "+++++++++++++++++++++++++++++", "请在这里输入姓名")
'if realname="" then wscript.quit
jmname = enc.Base64Encode(realname, 1, 1)

Set objIE = CreateObject("InternetExplorer.Application")  
objIE.Navigate("about:blank")  
objIE.document.parentwindow.clipboardData.SetData "text", jmname 
objIE.Quit 
复制代码

这里jmname的值已经复制到剪粘板了，在批处理中我要怎么拿来用？


谢谢!

CrLf

可以用 cscript 调用 vbs：

@echo off
for /f "delims=" %%a in ('cscript /nologo base64.vbs') do set "jmname=%%a"
echo 取得的 jmname=%jmname%
pause
复制代码

base64.vbs 写成：

Set enc = CreateObject("Base64Lib.Base64Object")

realname = InputBox("请输入姓名:", "+++++++++++++++++++++++++++++", "请在这里输入姓名")
'if realname="" then wscript.quit
jmname = enc.Base64Encode(realname, 1, 1)
wscript.echo jmname
复制代码

lovealei

哇，哥的效率真是快，我先去测试，行了再好好学习是什么意思