[文件操作] 批处理如何删除文本中每一行两个指定字符串之间的内容？

@echo off
(for /f "tokens=1-8 delims=-=" %%a in ('type "1.txt"') do (
    echo %%a----%%b----=%%h
))>2.txt
复制代码

@echo off
:: gawk下载：http://www.bathome.net/s/tool/index.html?down&key=gawk
:: 删除每行中“唯一”两个自定义“关键词”中间的内容。
set "fs1=次----"     ||@rem 开头关键词
set "fs2=="          ||@rem 尾部关键词
set "a=1.txt"&set "b=2.txt"
gawk -F"%fs1%" "NF>0{OFS=\"\";print $1,FS,\"%fs2%\",$2,$NF}" "%a%"|gawk -F"%fs2%" "{OFS=\"\";print $1 \"%fs2%\" $NF}" >"%b%"
%b%
pause
复制代码

set "one=----"
set "two=="
for %%i in (one,two)do (
 for /l %%n in (0,1,8192)do if /i not "!%%~i:~%%n,1!"=="" set/a "%%~i_n=%%~n+1"
 echo,!%%~i_n!
)
for /f "delims=" %%i in ('type "%~dp0批处理如何删除文本中每一行两个指定字符串之间的内容.txt"')do (
 set "Character=%%i"
 set "n="
 set "new_one="
 set "new_two="
 for /l %%n in (0,1,8192)do if /i not "!Character:~%%~n,1!"=="" if /i "!Character:~%%~n,%one_n%!"=="!one!" (
  set/a "n+=1"
  if !n!==2 (
   set "new_one=!Character:~0,%%~n!"
  )
 )else if /i "!Character:~%%~n,%two_n%!"=="!two!" (
  set "new_two=!Character:~%%~n!"
 )
 echo,!new_one!!new_two!
)
复制代码

::on error resume next
:sub class_bat
	echo off&cls
	cscript -nologo -e:vbs "%~0"
	pause
	exit sub
:end sub
set fso=createobject("scripting.filesystemobject")
set regexp=new regexp
File="123.txt"
regexp.global=-1:regexp.ignorecase=-1
regexp.pattern="([\u4e00-\u9fff0\w]*-{4}[\u4e00-\u9fff0\w]*-{4}).*(?==[\u4e00-\u9fff0\w]*)"
read=fso.opentextfile(File).readall
change=RegExp.Replace(read,"$1")
wsh.echo "演示结果:"
fso.createtextfile("new_"&File).write change
wsh.echo change
set fso=nothing:set regexp=nothing
复制代码