[文本处理] [已解决]批处理BAT如何根据a文本中的字段在b文本中查询，符合条件的输出c文本？

maillard

1、文本a.txt里面有序号和单词
01、bathtub
02、ornament
03、chimney
04、respiratory
05、shoplift
..................

2、词典b.txt里面有对应的单词和中文释义
abandon        vt.放弃,遗弃;n.放任,狂热
abandoned        adj.被抛弃的,自甘堕落的,没有约束的,放荡的
abandonee        n.被遗弃者,被委付者
abandoner        n.遗弃者,委付者
abandonment        n.放弃
......

3、如何实现将a.txt中的单词在b.txt中查询中文释义，并按原序号顺序生成如下c.txt：
01、bathtub        n.浴缸,澡盆
02、ornament         n.装饰物,教堂用品vt.装饰,修饰
03、chimney        n.烟囱,灯罩
04、respiratory        adj.呼吸的

522235677

@echo off & setlocal enabledelayedexpansion
for /f "tokens=2 delims=、" %%a in (a.txt) do (
	for /f "delims=" %%i in ('findstr /c:"%%a#" b.txt') do set /a n+=1&echo !n!、%%i
)
pause
复制代码

你那个b.txt 单词和词意之间是空格还是tab符号？
如果是空格的话你就把代码中#替换为空格
如果是tab则替换tab

maillard

回复 2# 522235677


    非常感谢522235677，代码可以运行，但是有两个问题

1、原文本a.txt里面有序号中的序号不完全是按个位数顺序排列的
01、bathtub
02、ornament
03、chimney
04、respiratory
05、shoplift
06、xxxx
06.1、xxxxx     -------有些地方有小数点
06.2、xxxxx
09、xxxxx       -------有些地方会漏一两个编号

希望输出的结果是完全按原a.txt的编号


2、查询结果是模糊匹配，比如查询sexual，出来下面很多结果，希望输出是精确匹配的结果。

asexual        adj.无性的,无性生殖的
bisexual        adj.两性的,雌雄同体的,[生物]=性体,[精神病]在性欲上受两性吸引的人
heterosexual        adj.异性的,异性爱的n.异性恋的人
homosexual        adj.同性恋的n.同性恋
intersexual        adj.两性间的
.......

522235677

回复 3# maillard

    @echo off & setlocal enabledelayedexpansion
for /f "tokens=1,2 delims=、" %%a in (a.txt) do (
        for /f "delims=" %%c in ('findstr /c:"%%b " b.txt') do echo %%a、%%c
)
pause
复制代码

让你替换那个#就是为了全字匹配。我自己测试都没有问题的

maillard

回复 4# 522235677


    #号已经替换了为tab了

出来很多模糊查询的结果
02.4、amorous        adj.多情的,恋爱的,表示爱情的
02.4、clamorous        adj.大喊大叫的
02.4、glamorous        adj.富有魅力的,迷人的
02.4、unglamorous        adj.没有魅力的,无浪漫色彩的,乏味的,单调的
.......

04、coral        n.珊瑚,珊瑚虫
04、corporal        n.<美>下士adj.肉体的,身体的
04、discifloral        adj.[植](有)盘状花的
04、doctoral        adj.博士的
04、electoral        adj.选举人的,选举的
.........

522235677

回复 5# maillard


    我空格 & tab 都测试ok。

522235677

加群 群名称是批处理之家① 43011867

522235677

findstr "^%%b " b.txt
findstr对tab符号不起作用，坐等高手

apang

回复 8# 522235677

findstr /i "\<%%b\>" b.txt
\< 和 \>相当于vbs中的\b，匹配字符（单词）边界

apang

Set fso = CreateObject("Scripting.FileSystemObject")
txt = fso.OpenTextFile("b.txt").ReadAll
Set f = fso.OpenTextFile("a.txt")
while Not f.AtEndOfStream
    strline = Trim(f.ReadLine)
    If InStr(strLine, "、") Then
        ar = Split(strLine, "、")
        s = s & ar(0) & "、" & RegEx(ar(1)) & vbCrLf
    End If
wend

fso.OpenTextFile("c.txt", 2, true).Write s

Function RegEx(str)
    Set re = New RegExp
    re.Pattern = "\b" & str & "\b[^\r]*"
    re.IgnoreCase = true
    If re.Test(txt) Then
        RegEx = re.Execute(txt)(0)
    Else RegEx = str
    End If
End Function
复制代码

maillard

@echo off & setlocal enabledelayedexpansion
for /f "tokens=1,2 delims=、" %%a in (a.txt) do (
        for /f "delims=" %%c in ('findstr /B  "\<%%b\>" b.txt') do echo %%a、%%c
)>>c.txt
pause

用4楼的代码修改一下测试成功了，10楼的代码暂时还没能看懂，继续学习~~，谢谢各位！