批处理之家 - Powered by Discuz! Board

标题: [文本处理] 【已解决】批处理怎样提取文本前十行内容到新的文本，并删除所有文本前十行内容 [打印本页]

作者: 奥特 时间: 2019-4-14 15:01 标题: 【已解决】批处理怎样提取文本前十行内容到新的文本，并删除所有文本前十行内容

本帖最后由奥特于 2019-4-23 14:19 编辑

批处理TXT 提取文件夹内所有文本前十行内容生成新文本，并删除所有旧文本前十行内容。跪谢！

作者: zaqmlp 时间: 2019-4-14 15:24

本帖最后由 zaqmlp 于 2019-4-14 15:25 编辑

@echo off
set info=互助互利,支付宝扫码头像,感谢赞助
rem 有问题,可加QQ956535081及时沟通
title %info%
start mshta VBScript:Execute("msgbox(""%info%""):close")
cd /d "%~dp0"
md "结果" 2>nul
powershell ^
    $s=@();dir *.txt^|?{$_ -is [System.IO.FileInfo]}^|%%{^
        write-host $_.FullName;^
        $text=@(gc $_.FullName);$t=@();^
        $s+=$text[0..9];^
        if($text.length -gt 10){$t=$text[10..($text.length-1)]};^
        [IO.File]::WriteAllLines(('结果\'+$_.Name), $t, [Text.Encoding]::Default);^
    };^
    out-file -file '合并.log' -input ($s -join \"`r`n\") -enc Default;
pause
复制代码

作者: 奥特 时间: 2019-4-14 15:42

回复 2# zaqmlp
辛苦了大神。这个测试了可以提取前十行，但是没能删除前十行。谢谢大神，我再去找下批量删除前十行的代码就可以了。辛苦了

作者: zaqmlp 时间: 2019-4-14 15:47

本帖最后由 zaqmlp 于 2019-4-14 15:49 编辑

回复 3# 奥特

在“结果”文件夹里，要感谢还是赞助下实际点

作者: 奥特 时间: 2019-4-14 15:56

嗯嗯，看到了，已扫，大神别嫌少啊。回复 4# zaqmlp

作者: zaqmlp 时间: 2019-4-14 15:57

回复 5# 奥特
嗯，一次友好的互助

作者: Batcher 时间: 2019-4-15 09:22

@echo off
set "NewFolder=新文本"
if not exist "%NewFolder%" (
    md "%NewFolder%"
)
for %%a in (*.txt) do (
    sed -n "1,10p" "%%a" > "%NewFolder%\%%a"
    sed -i "1,10d" "%%a"
)
复制代码

作者: 奥特 时间: 2019-4-23 14:16

辛苦了回复 7# Batcher

欢迎光临批处理之家 (http://bbs.bathome.net/)