WHY

type a.txt|findstr /r /c:"^[0-9][0-9][0-9]0 " /c:"^[0-9][0-9][0-9][0-9]0 ">b.txtCOPY

WHY

楼主既然有UE，直接用UE好了，不一定非得用脚本实现（前提是要会点正则）

“搜索”菜单——查找——查找内容输入：^\d{3,4}0\s.*$——勾选正则表达式：Perl——显示行
复制结果就OK了