@echo off
(for /f "delims=" %%a in (1.txt) do (
set "str=%%a"
setlocal enabledelayedexpansion
set "str=!str:Ver=Ver=Ver!"
set "str=!str:能=能=!"
set "str=!str:题=题=!"
echo,!str!
endlocal
))>$
for /f "tokens=2 delims==" %%a in ($) do echo %%a
del $&pause
复制代码

@echo off
(for /f "delims=" %%a in (1.txt) do (
   set "str=%%a"
   setlocal enabledelayedexpansion
   echo !str:*Ver=Ver!
   endlocal
))>b.txt
pause
复制代码

@echo off
(for /f "delims=" %%a in (a.txt) do (
   set "str=%%a"
   setlocal enabledelayedexpansion
   set str=!str:ver=^

Ver!
   set str=!str:功能=功能^

!
   set str=!str:问题=问题^

!
   echo,!str!
   endlocal
))>$
more $|findstr /i "^ver">b.txt
del $&pause
复制代码

Set fso = CreateObject("Scripting.FileSystemObject")
text = fso.OpenTextFile("a.txt",1).ReadAll

With New RegExp
   .Pattern = "ver.*?(功能|问题)"
   .Global = True
   .Ignorecase = True
   For Each a in .Execute(text)
      str = str & a & vbCrLf
   Next
End with

fso.CreateTextFile("b.txt",True).Write str
MsgBox "OK"
复制代码