vbs 调用bat

把下面的bat指令在vbs中运行并且使变量name放到vbs中(尽量不要创建bat文件)for/f"delims="%%ain(名单.txt)do(echo"%%a"|f... 把下面的bat指令在vbs中运行并且使变量name放到vbs中(尽量不要创建bat文件)
for /f "delims=" %%a in (名单.txt) do (
echo "%%a"|find "%zimu%" >nul && (for /f "tokens=2 delims= " %%i in ("%%a") do set name=%%i)||set name=wrong
) 展开

 我来答

1个回答

#热议# 网上掀起『练心眼子』风潮，真的能提高情商吗？

依梦琴瑶

高粉答主

2017-12-07 · 说的都是干货，快来关注

知道顶级答主

回答量：6.9万

采纳率：82%

帮助的人：1.7亿

我也去答题访问个人页

关注

展开全部

Dim objFSO, File, Zimu, StrFile

Zimu = "test"

StrFile = "名单.txt"

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set File = objFSO.OpenTextFile(StrFile, 1 , TRUE)

Do While File.AtEndOfLine <> True

    Str = File.ReadLine

    If Instr(Str,Zimu)>0 Then
        Name = Split(Str," ")
    Else
        Name(1) = "Wrong"
    End If

    Msgbox Name(1) '此句用于测试显示Name的反馈值，正式使用时可以屏蔽掉
    '后续使用时，一定要用 Name(1) 这个变量。

Loop

File.Close

更多追问追答
追问

在运行Name(1) = "Wrong"时，会显示“类型不匹配”，不知道怎么办
追答

不匹配？
我这边测试正常啊！

名单.txt中的内容大致是这样写的
test 哈哈
tt 呵呵

不知道有没有接近您那边的样式？
追问
就只把Zimu换成inputbox，可一旦找不到就报错（就name(1) = "Wrong"那里）


追答

Dim objFSO, File, Zimu, StrFile

Zimu = "test"

StrFile = "名单.txt"

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set File = objFSO.OpenTextFile(StrFile, 1 , TRUE)

Do While File.AtEndOfLine  True

    Str = File.ReadLine

    If Instr(Str,Zimu)>0 Then
        Name = Split(Str," ")(1)
    Else
        Name = "Wrong"
    End If

    Msgbox Name '此句用于测试显示Name的反馈值，正式使用时可以屏蔽掉
    '后续使用时，一定要用 Name 这个变量。

Loop

File.Close

这个正常了。