hfxiang

回复 18# fzp070


   
俺的电脑太老旧了（2011年买的），目录已用Win10了（已经很卡顿了），win11从没想过尝试安装，有可能是系统问题，但具体原因真不清楚

fzp070

回复 16# hfxiang


    是系统原因吗？我的是Win11系统。
附验证动图 https://wwp.lanzouv.com/izR2l0ednn2b

fzp070

回复 6# pd1

试了下，好像有问题啊，是哪里原因？错误信息见下。
批处理当前目录有 333.txt文档，报错后在目录C:\Windows\System32\WindowsPowerShell\v1.0\放入333.txt文档仍会如下报错：

gc : 找不到路径“C:\Windows\System32\WindowsPowerShell\v1.0\333.txt”，因为该路径不存在。
所在位置 行:6 字符: 4
+ $a=gc .\333.txt
+    ~~~~~~~~~~~~
    + CategoryInfo          : ObjectNotFound: (C:\Windows\Syst...ll\v1.0\333.txt:String) [Get-Content], ItemNotFoundEx
   ception
    + FullyQualifiedErrorId : PathNotFound,Microsoft.PowerShell.Commands.GetContentCommand

无法对 Null 数组进行索引。
所在位置 行:7 字符: 24
+ 0..($a.Length-1) |%{if($a[$_].contains(">楼主")){$_+2}}
+                        ~~~~~~~~~~~~~~~~~~~~~~
    + CategoryInfo          : InvalidOperation: (:) []，RuntimeException
    + FullyQualifiedErrorId : NullArray

无法对 Null 数组进行索引。
所在位置 行:7 字符: 24
+ 0..($a.Length-1) |%{if($a[$_].contains(">楼主")){$_+2}}
+                        ~~~~~~~~~~~~~~~~~~~~~~
    + CategoryInfo          : InvalidOperation: (:) []，RuntimeException
    + FullyQualifiedErrorId : NullArray

请按任意键继续. . .
复制代码

hfxiang

回复 15# fzp070


俺反复测试完全正常，结果如下：

D:\test>gawk "{if(A)if(B!=$0)if(NF){$0=gensub(/<.*>[　\t]*/,\"\",\"g\");print};A=0}/^楼主/{A=1;B=$0}" 1.txt
爷爷是传承五代人的
床尾站着一小仙，男，中批
那日入定，爷爷带

D:\test>gawk "A;A=0;/^楼主/{A=1}" 1.txt
<divclass="bbs-contentclearfix">　　爷爷是传承五代人的
<divclass="bbs-content">　　床尾站着一小仙，男，中批

<divclass="bbs-content">　　那日入定，爷爷带
复制代码

fzp070

回复 14# hfxiang


   文本和批处理，都是ANSI格式的，而且我提前准备了ANSI格式的2.txt和3.txt，待批处理运行后，就变成空的了，而且格式自动转为UTF-8了，你可以亲自试试。谢谢！

hfxiang

回复 13# fzp070


   
脚本及代处理文件（如你的“33.txt”）均需确保为ANSI编码格式方可

fzp070

回复 12# hfxiang


    好精简，不过我刚特意下载试了下，生成的2.txt/3.txt文件内为空且会变成UTF-8格式。是不是代码运用错了？

@echo off
gawk "{if(A)if(B!=$0)if(NF){$0=gensub(/<.*>[　\t]*/,\"\",\"g\");print};A=0}/^楼主/{A=1;B=$0}" 33.txt>2.txt
pause
gawk "A;A=0;/^楼主/{A=1}" 33.txt>3.txt
pause
复制代码

hfxiang

回复 10# hlzj88


   
如果所有信息都保留，5楼的可简化为

gawk "A;A=0;/^楼主/{A=1}" 1.txt>2.txt
复制代码

fzp070

回复 10# hlzj88


    那8楼符合，你试试

hlzj88

谢谢楼上的各位，是要那些行的所有内容。

fzp070

回复 3# hlzj88


   补充去除文字外的字符：

@echo off
setlocal enabledelayedexpansion
for /f "tokens=1 delims=" %%k in ('findstr /n .* 33.txt')do (echo %%k>>44.txt)

for /f "delims=:" %%i in ('findstr /n .">楼主" 33.txt') do (
  echo 楼主标志的行号 %%i
  set /a xy=%%i+1

for /f "tokens=1* delims=:" %%m in ('findstr .* 44.txt')do (
set tt=%%m
if !xy!==!tt! echo %%n>>55.txt
)
)
del /f/q 44.txt
for /f "tokens=1* delims=>　　" %%a in ('findstr .* 55.txt')do (
echo %%b>>66.txt
)
pause
复制代码

最终结果(66.txt内容)：

爷爷是传承五代人的
床尾站着一小仙，男，中批
<br>　　<imgsrc="http://static.tianyaui.com/img/static/2011/imgloading.gif"title="点击图片
那日入定，爷爷带
复制代码

fzp070

回复 3# hlzj88


    如下代码，可以达到楼主你的要求，在55.txt内，文字前面内容未去除

@echo off
setlocal enabledelayedexpansion
for /f "tokens=1 delims=" %%k in ('findstr /n .* 33.txt')do (echo %%k>>44.txt)

for /f "delims=:" %%i in ('findstr /n .">楼主" 33.txt') do (
  echo 楼主标志的行号 %%i
  set /a xy=%%i+1

for /f "tokens=1* delims=:" %%m in ('findstr .* 44.txt')do (
set tt=%%m
if !xy!==!tt! echo %%n>>55.txt
)
)
del /f/q 44.txt
pause
复制代码

最终结果(55.txt内容)：

<divclass="bbs-contentclearfix">　　爷爷是传承五代人的
<divclass="bbs-content">　　床尾站着一小仙，男，中批
<divclass="bbs-content"><br>　　<imgsrc="http://static.tianyaui.com/img/static/2011/imgloading.gif"title="点击图片
<divclass="bbs-content">　　那日入定，爷爷带
复制代码

pd1

http://www.bathome.net/viewthread.php?from=notice&tid=64034
和你的需求一样的帖子

pd1

上面是行号，下面的是内容

<# :
@echo off
powershell -NoProfile -ExecutionPolicy bypass "Get-Content -literal '%~f0' |Out-String|Invoke-Expression"
pause
#>
$a=gc .\333.txt
0..($a.Length-1) |%{if($a[$_].contains(">楼主")){$_+2}}
复制代码

<# :
@echo off
powershell -NoProfile -ExecutionPolicy bypass "Get-Content -literal '%~f0' |Out-String|Invoke-Expression"
pause
#>
$a=gc .\333.txt
0..($a.Length-1) |%{if($a[$_].contains(">楼主")){$a[$_+1]}}
复制代码

hfxiang

如不介意第3方工具gawk（ http://bcn.bathome.net/tool/4.1.0/gawk.exe ），假设下载合并后的文件为“1.txt”，则以下代码可实现

gawk "{if(A)if(B!=$0)if(NF){$0=gensub(/<.*>[　\t]*/,\"\",\"g\");print};A=0}/^楼主/{A=1;B=$0}" 1.txt>2.txt
复制代码