【已解决】批处理怎么按照关键词分割txt

8532200 · 发表于 2020-8-28 14:22:07

去搜了以下论坛的帖子，，，搜索了关键词分割txt 还是没有我要的

特地来求助大神

文件夹里面有很多子文件夹，里面都有txt

txt里面需要按照关键词分割

目前我用的是TXT杀手。可以完美解决但是不能处理批量文件

比如子文件夹里面有个txt，txt内容是

qwert <li><a href="http://www.imomoe.jp/view/5040.html" title="我的妹妹不可能那么可爱"><img src="http://pic.xiaomingming.org/FileUpload/1696.jpg" alt="我的妹妹不可能那么可爱" />
我的妹妹不可能那么可爱我的妹妹哪有这样就最终回</a><em style="filter:progid

XImageTransform.Microsoft.Matrix(SizingMethod='auto expand',M11=0.7,M12=0.7,M21=-0.7,M22=0.7);">更新至16</li>

qwert <li><a href="http://www.imomoe.jp/view/4117.html" title="我的妹妹不可能那么可爱第二季"><img src="http://pic.xiaomingming.org/FileUpload/2679.jpg" alt="我的妹妹不可能那么可爱第二季" />
 我的妹妹不可能那么可爱第二季我的妹妹哪有这么可爱</a>更新至16</li>

qwert <li><a href="http://www.imomoe.jp/view/4987.html" title="Angel Beats"><img src="http://pic.xiaomingming.org/FileUpload/1747.jpg" alt="Angel Beats" />
 Angel Beats另一个结局</a>更新至15</li>

这个文本里面有三个关键词qwert。求按照这个关键词分割。分割后生成的文件名随意就可以了。

比如上面的例子分割后是三个txt，分别是1，，2，，，3.txt

其中1.txt打开后是这样

qwert <li><a href="http://www.imomoe.jp/view/5040.html" title="我的妹妹不可能那么可爱"><img src="http://pic.xiaomingming.org/FileUpload/1696.jpg" alt="我的妹妹不可能那么可爱" />
 我的妹妹不可能那么可爱我的妹妹哪有这样就最终回</a>更新至16</li>

求大神帮忙。感激不尽。。。解决留下支付宝或者微信给与小小感谢。。。主要是感激

zaqmlp · 发表于 2020-8-28 14:28:47

把几个源文件打包上传或发网盘

8532200 · 发表于 2020-8-28 14:38:17

本帖最后由 8532200 于 2020-8-28 15:21 编辑

回复 2# zaqmlp

已上传

zaqmlp · 发表于 2020-8-28 14:58:28

<# :
cls
@echo off
cd /d "%~dp0"
powershell -NoProfile -ExecutionPolicy bypass "Invoke-Command -ScriptBlock ([ScriptBlock]::Create([IO.File]::ReadAllText('%~f0',[Text.Encoding]::Default))) -Args '%~dp0'"
pause
exit
#>
$word="qwert";
$path=$args[0].trimend('\');
$newpath=$path+'\#result';
$files=@(dir -liter $path -recurse|?{('.txt' -eq $_.Extension) -and ($_ -is [System.IO.FileInfo])});
$enc=[Text.Encoding]::Default;$regstr=[regex]::Escape($word)+'[\s\S]+?(?='+[regex]::Escape($word)+'|$)';
for($i=0;$i -lt $files.length;$i++){
write-host $files[$i].FullName;
$newfolder=$newpath+'\'+$files[$i].Directory.Name;
if(-not (test-path -liter $newfolder)){[void](md $newfolder -force);};
$text=[IO.File]::ReadAllText($files[$i].FullName,$enc);
$m=[regex]::matches($text,$regstr);$n=1;
foreach($it in $m){
$newfile=$newfolder+'\'+$files[$i].BaseName+'_'+$n.toString()+$files[$i].Extension;
[IO.File]::WriteAllText($newfile, $it.groups[0].value, $enc);
$n++;
};
}

复制代码

zaqmlp · 发表于 2020-8-28 15:10:47

说好的红包呢

8532200 · 发表于 2020-8-28 15:11:05

回复 4# zaqmlp

已支付十元。。。真的感激不尽。目前实测没有任何问题。。。谢谢

qixiaobin0715 · 发表于 2020-8-28 15:57:15

回复 1# 8532200
其实论坛里有类似的代码：
http://www.bathome.net/thread-8001-1-1.html

8532200 · 发表于 2020-8-28 15:58:39

回复 7# qixiaobin0715

谢谢。。已经解决了。感谢回复

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[文本处理] 【已解决】批处理怎么按照关键词分割txt

评分

[文本处理] 【已解决】批处理怎么按照关键词 分割txt

评分

[文本处理] 【已解决】批处理怎么按照关键词分割txt