中国DOS联盟

要求 一个文件夹里的所有txt文档以第一行文字为名字 命名~

注意 第一行文字 应为 前面有很多的空行 如果去掉空行也可以

─────────────────　版务记录　─────────────────
执行：HAT
操作：在帖子标题中增加搜索关键字；代码加code标签
说明：原标题"能否帮忙写个文本批处理"不利于论坛搜索
处罚：论坛新人免于积分处罚
提示：建议阅读以下帖子
{1415}提问的智慧
{7326}论坛新手必读，所有人的基本行为准则
{22703}请不要做浮躁的人
{27314}反面教材：本论坛“精彩”标题小集
{32667}愤怒：那些连标题都写不清楚的人们啊，你们醒醒吧
{32825}本版严厉整顿烂帖
─────────────────　版务记录　─────────────────

[ Last edited by fengch1 on 2009-3-7 at 12:29 ]

@echo off
for /f %%a in ('dir /a-d/b') do call :sub %%a
goto :eof
:sub
for /f "delims=" %%c in (%1) do ren %1 %%~nxc&goto :eof

谢谢2楼的~
不过~似乎不行啊 '命名语法不正确'

那个每个文本前面有很多空

[ Last edited by fengch1 on 2009-2-10 at 18:58 ]

@echo off
for /f %%a in ('dir /a-d/b') do call :sub %%a
goto :eof
:sub
for /f "tokens=*" %%c in (%1) do (
if not "%%c"=="" ren %1 %%~nxc&goto :eof
)

喔~~
还是不行吖~
不过好多了
命名出来的文档都是没有加尾缀~
而且都是重复的一个~

[ Last edited by fengch1 on 2009-2-11 at 18:13 ]

代码 1：
@echo off for %%a in (*.txt) do call :ren "%%a" exit :ren for /f "tokens=*" %%a in (%~s1) do ( ren %1 "%%a.txt" goto :eof )

代码 2：
@echo off setlocal enabledelayedexpansion for %%a in (*.txt) do ( set /p new=<"%%a" ren "%%a" "!new!.txt" )

[ Last edited by tireless on 2009-2-11 at 18:39 ]

@echo off
:: 可处理长文件名
for /f "tokens=*" %%a in ('dir/a-d/b') do (
set "a=%%a"
setlocal enabledelayedexpansion
call :sub
endlocal
)
goto :eof

:sub

::回避自身
if "!a!"=="%~nx0" goto :eof
::if 的判断是为了避开含只有空格和[TAB]键的行
for /f "tokens=*" %%c in ('type "!a!"') do if not "%%c"=="" (ren "!a!" "%%c"&goto :eof)


::如此可处理绝大部分特殊情况

谢谢了 虽然文本依然没有尾缀
但我自己有办法
问题解决了
非常感谢喔~