回复 3# CrLf
貌似绕一下必须的,因为一行中可能存在2个或以上的ver----功能- @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
复制代码 vbs来一下- 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"
复制代码
|