批处理和vbs如何返回文本中的某一特定值

qqqkoko123 · 发表于 2017-4-26 13:55:46

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:28

@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:07

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

WHY · 发表于 2017-4-26 21:55:17

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:28

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

:):)

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[文本处理] 批处理和vbs如何返回文本中的某一特定值