@echo off
for /f "delims=" %%a in ('type "清单.txt"') do (
        >"%%a.txt" findstr "%%a" "目标.txt"
)
pause
复制代码

@echo off
for /f "delims=" %%a in ('type "清单.txt"') do (
        >"%%a.txt" findstr /c:"%%a" "目标.txt"
)
pause
复制代码

q aaa-bbb-ccc
a123-111
复制代码

@echo off
for /f "delims=" %%a in ('type "清单.txt"') do (
	>"%%a.txt" (type "目标.txt" | find "%%a")
)
pause
复制代码

findstr /c:""" 1.txt
复制代码

find """" 1.txt
复制代码

function gettext(fp)
    Set objStream = CreateObject("ADODB.Stream")
    objStream.CharSet = "utf-8"
    objStream.Open
    objStream.LoadFromFile fp
   gettext=objstream.readtext
end function
sub writetext(fp,t)
    Set objStream = CreateObject("ADODB.Stream")
    objStream.CharSet = "utf-8"
    objStream.Open
objstream.writetext t
    objStream.savetoFile fp,2
end sub
set re=new regexp
re.global=true
t=gettext("目标.txt")
for each l in split(gettext("清单.txt"),vbcrlf)
if l<>"" then
  re.pattern=".*"&l&".*"
tt=""
  if re.test(t) then
    writetext l&".txt",join(c2a(re.execute(t)),"")
  end if
end if
next
function c2a(c)
execute("dim arr("&c.count-1&")")
for i=0 to c.count-1
arr(i)=c(i)
next
c2a=arr
end function
复制代码

@echo off
>1.txt echo "1
>2.txt echo "123
for /f "delims=" %%a in (1.txt) do (
	findstr /c:"%%a" 2.txt
)
pause
复制代码

gawk "{NR==FNR?a[++M]=$0:b[++N]=$0}END{for(i=1;i<=M;i++){for(j=1;j<=N;j++){if(b[j]~a[i]){print(b[j])>(a[i]\".txt\")}}close(a[i]\".txt\")}}" 清单.txt 目标.txt
复制代码