本帖最后由 apang 于 2012-2-5 22:17 编辑
| @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 loopCOPY |
|