wh1234567

回复 13# ivor


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

ivor

回复 12# wh1234567


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

wh1234567

回复 3# 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

回复 7# ivor


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

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

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

ivor

回复 6# wh1234567


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

wh1234567

回复 5# ivor


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

ivor

回复 4# wh1234567


    请说明具体问题

wh1234567

回复 3# ivor


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

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

canyuexiaolang

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

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

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