sed "0,/^天津$/d; /^北京$/,$d" a.txt > b.txt
复制代码

@echo off
(for /f "tokens=1* delims=:" %%a in ('findstr /n .* a.txt') do (
  if "%%b" equ "北京" set "flag="
  if defined flag echo,%%b
  if "%%b" equ "天津" set "flag=a"
))>new.txt
start new.txt
复制代码

sed "0,/天津/d; /北京/,$d" a.txt > b.txt
复制代码

set fso = CreateObject("Scripting.FileSystemObject")
text = fso.OpenTextFile("a.txt").ReadAll
Set re = New RegExp
re.Pattern = "天津[\s\S]*北京"
fso.OpenTextFile("b.txt",2,true).Write re.Execute(text)(0)
复制代码

@echo off&setlocal enabledelayedexpansion
(for /f "tokens=1* delims=:" %%a in ('findstr /n .* a.txt') do (
  if "%%b" neq "" (
    set "str=%%b"
    if "!str!" neq "!str:北京=!" set "flag="
    if defined flag echo,%%b
    if "!str!" neq "!str:天津=!" set "flag=a"
    ) else (
    echo,
  )
))>new.txt
start new.txt
复制代码