批处理之家 » BAT求助&讨论 » 【已解决】批处理怎样提取文本前十行内容到新的文本，并删除所有文本前十行内容

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

返回列表发帖

Rank: 1

帖子: 5
积分: 19
技术: 0
捐助: 0
注册时间: 2019-4-14

1楼 跳转到 » 倒序看帖

字体大小: tT

发表于 2019-4-14 15:01 | 只看该作者

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

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

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

1 评分人数

Batcher: 感谢给帖子标题标注[已解决]字样PB + 2

Rank: 5 Rank: 5

帖子: 974
积分: 1275
技术: 94
捐助: 0
注册时间: 2017-10-30

2楼

发表于 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
复制代码

提供bat代写，为你省时省力省事，支付宝扫码头像支付
微信: unique2random

Rank: 1

帖子: 5
积分: 19
技术: 0
捐助: 0
注册时间: 2019-4-14

3楼

发表于 2019-4-14 15:42 | 只看该作者

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

Rank: 5 Rank: 5

帖子: 974
积分: 1275
技术: 94
捐助: 0
注册时间: 2017-10-30

4楼

发表于 2019-4-14 15:47 | 只看该作者

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

回复 3# 奥特

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

提供bat代写，为你省时省力省事，支付宝扫码头像支付
微信: unique2random

Rank: 1

帖子: 5
积分: 19
技术: 0
捐助: 0
注册时间: 2019-4-14

5楼

发表于 2019-4-14 15:56 | 只看该作者

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

Rank: 5 Rank: 5

帖子: 974
积分: 1275
技术: 94
捐助: 0
注册时间: 2017-10-30

6楼

发表于 2019-4-14 15:57 | 只看该作者

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

提供bat代写，为你省时省力省事，支付宝扫码头像支付
微信: unique2random

Rank: 12

帖子: 14947
积分: 46157
技术: 858
捐助: 745
注册时间: 2008-6-9

7楼

发表于 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"
)
复制代码

我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

Rank: 1

帖子: 5
积分: 19
技术: 0
捐助: 0
注册时间: 2019-4-14

8楼

发表于 2019-4-23 14:16 | 只看该作者

辛苦了回复 7# Batcher