发布网友
共2个回答
热心网友
dim read,str,file
file="c:\c.ini" '文件完整路径
set open=createobject("scripting.filesystemobject")
set shell=createobject("Wscript.Shell")
read=open.opentextfile(file).readall
for each i in split(read,vbcrlf)
if instr(i,"s1=")>0 then str=split(i,"s1=")(1)
next
shell.run "a.exe /a /n " & str
'保存为vbs类型文件追问for each i in split(read,vbcrlf)
if instr(i,"s1=")>0 then str=split(i,"s1=")(1)
next
这三句没看懂,不过我用了right(str,4)这个函数直接把后四位取出来了。
热心网友
@echo off
for /f "delims== tokens=2" %%i in ('find "s1=" ^C:\<c.ini')do call:.,%%i
:.
set v=%~1&set v=%v:~-3%&echo %v%
set/p=以上显示值如果对了,<nul&pause
a.exe /a /n b123%v%