批处理之家 - Powered by Discuz! Board

标题: [文本处理] 批处理和vbs如何返回文本中的某一特定值 [打印本页]

作者: qqqkoko123 时间: 2017-4-26 13:55 标题: 批处理和vbs如何返回文本中的某一特定值

findbyname.txt内容为：
NB99999 2664978801046
NB0011 EB34024851
NB2569 R30972987
NB1234 EB12345678
查询到EB34024851，要返回值为NB0011，即查询到后一个值要返回前一个值的批处理和vbs要如何写？
以下是我写的bat：

@echo off&setlocal enabledelayedexpansion
set F=findbyname.txt
echo 请输入你要查询的号码:
set /p sn=
for /f "tokens=1,2 delims= " %%i in ('type "%f%"') do (
if %%i == "%sn%" ( echo %%i
)else (
echo %%j
)
)
pause
复制代码

可是这个的返回值始终是文本的后一列，要如何改进？并用vbs表示要怎么写？

作者: Batcher 时间: 2017-4-26 16:23

@echo off
setlocal enabledelayedexpansion
set "F=findbyname.txt"
echo 请输入你要查询的号码:
set /p sn=
for /f "tokens=1,2 delims= " %%i in ('type "%f%"') do (
    if "%%j" == "%sn%" (
        echo,%%i
    )
)
pause
复制代码

作者: qqqkoko123 时间: 2017-4-26 19:54

多谢，原来是我自己搞错了，把%%j错以为是%%i，请问如何用vbs表示呢？

作者: WHY 时间: 2017-4-26 21:55

Dim strFile, strInput

strFile = "1.txt"

Do
    strInput = InputBox("input:")
    If IsEmpty(strInput) Then WSH.Quit()
Loop Until strInput <> ""

Dim fso, objFile, arr
Set fso = CreateObject("Scripting.FileSystemObject")
Set objFile = fso.OpenTextFile(strFile, 1)

While Not objFile.AtEndOfStream
    arr = Split(objFile.ReadLine, " ")
    If UBound(arr) > 0 Then
        If arr(1) = strInput Then MsgBox arr(0)
    End If
Wend

objFile.Close()
Set objFile = Nothing : Set fso = Nothing
复制代码

作者: qqqkoko123 时间: 2017-4-27 09:00

非常感谢二位帮我解决了这个难题

:):)

欢迎光临批处理之家 (http://www.bathome.net/)