ygqiang

回复 2# Nsqs


    你好。你这个bat代码，如何与下面的代码合并成1个bat呢？

@echo off&Setlocal EnableDelayedExpansion

set/p useraa=（输入数字，并按回车键）：
set useraa=user%useraa%
echo 变量：%useraa%
pause
复制代码

并且要将你的代码中的456，换成这个变量：%useraa%

就是说：bat代码中，手动输入1个变量值，传送给vbs。
最终实现：用手动输入的变量值，替换某个txt文件中的某个关键字。

谢谢

ygqiang

回复 2# Nsqs


    这个代码，可以将bat的变量，传递给vbs
vbs，如何实现将txt文件中的关键字替换成变量呢？

@echo off&Setlocal EnableDelayedExpansion

set/p useraa=（输入数字，并按回车键）：
set useraa=user%useraa%
echo 变量：%useraa%
pause
cscript //nologo SayHello.vbs "%useraa%"

pause
复制代码

vbs获取bat的变量代码如下：

' 得到参数对象
Set args = WScript.Arguments
' 如果参数个数是一个，正常运行，否则提示错误信息并退出。
If args.Count = 1 Then
  ' 得到第一个变量参数name
 name = WScript.Arguments(0)
  ' 在标准输出中，即控制台的 通道1 输出一行文字
  WScript.StdOut.WriteLine name & "，你好。"
WScript.Echo name
Else
  ' 在标准错误中，即控制台的 通道2 输出一行文字
  WScript.StdErr.WriteLine "参数个数不为1，请重试。"
  ' 退出程序
  WScript.Quit
End If
复制代码

ygqiang

回复 2# Nsqs


    麻烦你了。已经解决。。

' 2>nul&cls&set/p useraa=（输入数字，并按回车键）：
' 2>nul&cls&set useraa=user%useraa%
' 2>nul&cls&echo 修改为：%useraa%&pause&echo %useraa%>$$

' 2>nul&cls&dir /s/b/a-d "c:\client\new.bat"|cscript -nologo -e:"vbs" "%~0"&
' 2>nul&cls&start "" "c:\client\new.bat" &1pause&exit

set fso=CreateObject("Scripting.FileSystemObject")
set ws=wsh.stdin
read0=fso.opentextfile("$$").readall
read0=left(read0,len(read0)-1)
'msgbox read0

do
	f=ws.readline
	read=fso.opentextfile(f).readall
	result=replace(read,"user231",read0)
	fso.createtextfile(f).write result
loop until ws.atendofstream
复制代码