[文本处理] 批处理实现删除指定行功能

hacker85

@echo off
set /p m=请输入要删除的行
setlocal enabledelayedexpansion
del temp.txt 2>nul
for /f "tokens=*" %%i in (1.txt) do (
set /a n+=1
if !n! neq %m% echo %%i>>temp.txt
)
del 1.txt
ren temp.txt 1.txt
pause

========================

上面的代码可以实现删除a.txt文件中指定行的功能。
但现在的问题是：
1、我现在有一个文件夹，里面有N多的txt文件，文件名没有什么规律，我现在想删除每个文件的第一行，该怎么实现呢？
2、我发现这段代码在既使是删除一个文件中的第一行的时候运行效率也不是很高，关键在ren这句上吧？如果要是删除好几百个这样的文件的话，我想效率更不会太高的。怎么办呢？

上传一个文件，作为例子，大家尝试一下。

======================分割线===================
注：如果删除指定列呢？或者说可不可以通过这段代码改写出一个同时具有以下三个功能的P程序：
    a、可交互地指定被删除行
    b、可交互地指定被删除列
    c、可交互的同时指定被删除的行和列

如果困难，以分割线上方的问题为主。
谢谢。

canyuexiaolang

删除第一行很easy了。
可交互地指定被删除行也不算很难。

可交互地指定被删除列   这个有点难度。。
可交互的同时指定被删除的行和列    难度同上

但是应该不难。。。说实话拿去给新手练手很不错哦。
等会我写代码。。。哈。我有点事先X了

ivor

删除所有*.txt 第一行

@echo off & setlocal enabledelayedexpansion
for /f "delims=" %%a in ('dir /s /b *.txt') do (
	set indicator=nul
	for /f "useback delims=" %%b in ("%%a") do (
		echo %%b
		set indicator=%%a~
		
	)>>"!indicator!"
	move "%%a~" "%%a"
)
pause
复制代码

再附上多功能版，列数如果大于4请修改:delCols代码块
功能1.指定删除的行数 2.指定删除的列数 3.同时指定行数和列数

@echo off & setlocal enabledelayedexpansion

set /p rows=请输入要删除的行:
set /p cols=请输入要删除的列:

if defined rows call :delRows %rows% & pause
if defined cols call :delCols %cols% & pause

 goto :eof 
:delRows

for /f "delims=" %%a in ('dir /s /b *.txt') do (
        set count = %1
        for /f "useback delims=" %%b in ("%%a") do (
                set /a count += 1
                if !count! neq %1 echo %%b >>"%%a~"
        )
        move "%%a~" "%%a"
)
echo 已经处理完了行数
goto :eof

:delCols
for /f "delims=" %%a in ('dir /s /b *.txt') do (
        for /f "useback tokens=1-4" %%b in ("%%a") do (
                        set 1=%%b
                        set 2=%%c
                        set 3=%%d
                        set 4=%%e
                        set "%1="
                        echo !1!        !2!        !3!        !4! >>"%%a~"
                        

        )
        move "%%a~" "%%a"
)
echo 已经处理完了列数
goto :eof
复制代码

wh1234567

回复 3# ivor


    为什么在我的电脑上运行没有效果呢？

ivor

回复 4# wh1234567


    请说明具体问题

wh1234567

回复 5# ivor


    第一个批处理运行后闪了一下没有处理效果，第二个运行后提示
请输入要删除的行:2
请输入要删除的列:2
系统找不到文件 C:\Document
命令语法不正确。
请按任意键继续. . .
另外楼主好像是：
三个功能的P程序：
    a、可交互地指定被删除行
    b、可交互地指定被删除列
    c、可交互的同时指定被删除的行和列

ivor

回复 6# wh1234567


   sorry to that....问题有些路径含有空格。在我win7下没试出来，因为桌面路径没有空格。
问题已修复

545810831

@echo off 
if not exist a md a 
for /f "delims=" %%i in ('dir /b *.txt') do more +1 "%%i">>"a\%%i.txt"
pause
复制代码

apang

@echo off&setlocal enabledelayedexpansion
set/p lin=请输入要删除第几行:
set/p row=请输入要删除第几列:
for /f "delims=" %%i in ('dir /a-d /b /s *.txt') do (
        (for /f "delims=" %%j in ('type "%%i"') do (
                set n=1&set str=&&call :loop %%j
                echo !str:~3!
         ))>$
(set n=0
        for /f "delims=" %%k in ('type "$"') do (
                set /a n+=1
                if not "!n!"=="!lin!" echo %%k
        ))>$$
move $$ "%%~dpi%%~nxi"&del $
)

:loop
if "%1"=="" goto :eof
if "!n!"=="!row!" shift
shift&set "str=!str!   %1"&set/a n+=1&goto loop
复制代码

wh1234567

回复 7# ivor


    新年快乐，技术超前，办事认真负责，呵呵，不错

apang

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in ('dir /a-d/b/s *.txt') do (
        (set n=0
        for /f "delims=" %%j in ('type "%%i"') do (
                set /a n+=1
                if not "!n!"=="1" echo %%j
        ))>$
        move $ "%%i">nul
)
复制代码

wh1234567

回复 3# ivor


    在删除前加上一个确认的过程功能以防错误删除，也就是说在输入第几行或列后自动提示要删除的该行或列的数据内容，如果确认无误就按回车键进行处理，如果有误可以按某个键返回重新输入，这样就一目了然避免错误删除，可加输出备份功能

ivor

回复 12# wh1234567


    请问你是楼主吗？如果添加确认功能，势必会很繁琐的

wh1234567

回复 13# ivor


    我不是楼主，感觉这个批处理很实用，所以也想着完美完美，呵呵

hacker85

回复 9# apang


    谢谢你的回复，我将近一步测试你的代码。有问题再请教。