[文本处理] 批处理如何删除含A内容以上文本、及含B内容以下文本，保留中间的文本？

kidzgy

[删除的内容]
[删除的内容]
[删除的内容]
Array.prototype.p = Array.prototype.push;   [本行也删除]

[保留的内容]
[保留的内容]
[保留的内容]
[保留的内容]
[保留的内容]

delete(Array.prototype.p);     [本行也删除]
[删除的内容]
[删除的内容]
[删除的内容]
复制代码

须注意：【Array.prototype.p = Array.prototype.push; 】 【delete(Array.prototype.p); 】内容在全文搜索均仅有一个结果，如何删除【Array.prototype.p = Array.prototype.push; 】本行内容及以上的所有文本、【delete(Array.prototype.p); 】本行内容及以下的文本？且最终的效果是保留内容上下无空白行？

预期效果如下：

[保留的内容]
[保留的内容]
[保留的内容]
[保留的内容]
[保留的内容]
复制代码

测试文件：
由于压缩包超过50KB，无法上传至此，故用外链。测试文件系由Snap2HTML生成的html文件。
https://wwi.lanzoup.com/iUDU114kcw4j


我刚刚灵光一闪，换了个思路，发现【findstr /i "D.p([" %1 > "temp.html"】这样的方法即可提取出所需的内容。
由于生成多个的html是可以拼接的，还是很好奇，如何运用开始的思路来分离文本？

77七

@echo off
rem 注意将代码中的两处字符串替换为文本中的整行，包含行首、尾空格（如有）。
(for /f "useback delims=" %%a in ("1.txt") do (
	if "%%a" equ "delete(Array.prototype.p);" (
		goto :next
	)
	if defined n (
		echo %%a
	)
	if "%%a" equ "Array.prototype.p = Array.prototype.push;" (
		set n=1
	)
))>"2.txt"
:next
pause
复制代码

hfxiang

回复 1# kidzgy
可试一下第3方工具sed ( http://bcn.bathome.net/tool/4.9/sed.exe )

sed -n -r "/^Array\.prototype\.p = Array\.prototype\.push\;/,/^delete\(Array\.prototype\.p\)\;/{/^$/d;/^Array\.prototype\.p = Array\.prototype\.push\;/d;/^delete\(Array\.prototype\.p\)\;/d;p}" a.txt>b.txt
复制代码

wanghan519

sed删除1到Array那一行，再删除delete到最后一行，也许可以

sed '1,/^Array/d;/^delete/,$d' a.txt
复制代码

kidzgy

77七 发表于 2023-8-5 01:31

   

回复  kidzgy
可试一下第3方工具sed (  )
hfxiang 发表于 2023-8-5 09:24

  两个输出都是空白文件

77七

回复 5# kidzgy


   参考2楼代码第2行。

Five66

input.txt是输入文件名
output.txt是输出文件名
编码ascii

@if (0)//==(0)// echo off&pause&cscript //nologo -e:jscript "%~f0"&pause&exit
@end

var inf,otf,sstr,estr,s,bbb;

inf="input.txt";
otf="output.txt";

sstr="Array.prototype.p = Array.prototype.push;";
estr="delete(Array.prototype.p);";

var fso=new ActiveXObject('scripting.filesystemobject');
inf=fso.OpenTextFile(inf,1,false);
otf=fso.OpenTextFile(otf,2,true);

s='';bbb=0;

while(!inf.AtEndOfStream){
s=inf.ReadLine();
if(s==estr){break;}
if(bbb && s){otf.WriteLine(s);s='';}
if(s==sstr){bbb=1;}
}

inf.Close();otf.Close();fso=null;
复制代码

aloha20200628

用sed.exe（本坛第三方下载）确实比用纯P轻爽 》先粗洗一遍源文，再掐头去尾...

@echo off
set "p1=^Array.prototype.p = Array.prototype.push;$"
set "p2=^delete(Array.prototype.p);"
sed -n "/%p1%/, /%p2%/p" "源文件" | sed -e "/^$/d" -e "$d" -e "1d" 
复制代码

aloha20200628

再给一个尽量简化的纯P版本，与近来数帖 '在界定行之间提取目标数据' 的题型均属同一套路...

@echo off
set "p1=Array.prototype.p = Array.prototype.push;"
set "p2=delete(Array.prototype.p);"
set "got="
for /f "delims=" %%s in (源文件) do (
	if /i "%%s"=="%p1%" (set "got=1") else if defined got (
		if /i "%%s"=="%p2%" (exit/b) else (echo,%%s)
	)
)
复制代码

Batcher

回复 1# kidzgy


    请把文件上传到网盘以便测试代码

kidzgy

回复 7# Five66


   

提示D:\Personal\Desktop\123.bat(19, 5) Microsoft JScript 运行时错误: 输入超出了文件尾


现在已在楼主层附上测试文件。

jyswjjgdwtdtj

'vbs
set fso=createobject("scripting.filesystemobject")
set r=new regexp
sstr="Array.prototype.p = Array.prototype.push;"
estr="delete(Array.prototype.p);"
inf="input.txt";
otf="output.txt";
inf=fso.OpenTextFile(inf,1,false)
otf=fso.OpenTextFile(otf,2,true)
r.pattern=sstr&"(.*)"&estr
r.multiline=true
otf.write r.execute(inf.readall)(0).submatches(0)
复制代码

或许可以吧

77七

test.html

		var D = dirs;
		Array.prototype.p = Array.prototype.push;

D.p(["D:/quest2*0*1680711711*D:/quest2/","CastReceiver_1.5.6_armeabi-v7a_by_Prosmart.by.apk*12505115*1618494146","SKYBOX v1.1.0.465.apk*140533455*1680486331","SKYBOX VR Video Player [1.1.0.525].apk*121507878*1647912077","ssrray-release-3.8.10.1.apk*36174974*1621004286",310721422,"1"])
D.p(["D:/quest2/adb*0*1633840967","aapt.exe*1639424*1619405894","aapt_20210426105805.exe*1639424*1619405894","adb.exe*1974272*1619405894","adb_20210426105805.exe*1974272*1619405895","AdbWinApi.dll*97792*1619405894","AdbWinApi_20210426105805.dll*97792*1619405894","AdbWinUsbApi.dll*62976*1619405894","AdbWinUsbApi_20210426105808.dll*62976*1619405895",7548928,""])



		delete(Array.prototype.p);	// remove alias added above

		$(document).ready(function(){
复制代码

code2

@echo off
chcp 65001 >nul
rem 批处理保存为utf-8编码格式
set "str1=Array.prototype.p = Array.prototype.push;"
set "str2=delete(Array.prototype.p);"
for /f "tokens=1 delims=:" %%a in ('^<"test.html" findstr /n /c:"%str1%" /c:"%str2%"') do (
	if not defined s (
		set s=%%a
	) else (
		set e=%%a
	)
)
(for /f "tokens=1* delims=:" %%a in ('^<"test.html" findstr /n .') do (
	if %%a gtr %s% if %%a lss %e% (
		echo=%%b
	)
))>"out.html"
复制代码

kidzgy

回复 13# 77七


   感谢解答，这个似乎有局限性，用楼主层的文件测试是没有问题的，因为处理的代码比较短，我用另外一个文件测试，会提示 FINDSTR: Line 772 is too long.

这个是新的测试文件：
https://wwi.lanzoup.com/imB4X14kr4kh

kidzgy

另外想请教个问题：

gawk -v "IGNORECASE=1" "{print $0=gensub(/quest2/,\"xyz\",\"g\")>\"test.html\"}" test.html
复制代码

我用上述代码，读取文件和生成文件指向同一个文件的时候，会导致内容缺失。不知道是什么原因？我有时候修改其他文件的时候倒没有这个问题。

或许可以吧
jyswjjgdwtdtj 发表于 2023-8-5 21:16

vbs代码执行时弹错。