批处理读取ini文件

发布网友

我来回答

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%

声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com