China DOS Union

I need all TXT files in a folder to be named using the text on the first line as the filename~

Note: before the first line of text, there are many blank lines. If the blank lines can be removed, that's also fine.

─────────────────　Moderation record　─────────────────
Action by: HAT
Operation: Added search keywords to the thread title; added code tags to the code
Note: the original title "Can someone help write a text batch file" was not good for forum searching
Penalty: as a new forum user, exempted from credits penalty
Reminder: recommended to read the following threads
{1415}The Wisdom of Asking Questions
{7326}Must-read for forum newcomers, the basic code of conduct for everyone
{22703}Please don't be an impetuous person
{27314}Negative example teaching material: a small collection of “wonderful” thread titles from this forum
{32667}Anger: those of you who can't even write a clear title, wake up
{32825}This section is strictly cleaning up poor posts
─────────────────　Moderation record　─────────────────

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

Thanks to reply #2~
But~ it doesn't seem to work 'The naming syntax is incorrect'

Each of those text files has a lot of blank space at the beginning

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

Oh~~
Still doesn't work~
But it's much better
The renamed files don't have extensions~
And they're all the same repeated one~

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

Code 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

)

Code 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
:: Can handle long filenames
for /f "tokens=*" %%a in ('dir/a-d/b') do (
set "a=%%a"
setlocal enabledelayedexpansion
call :sub
endlocal
)
goto :eof

:sub

::avoid itself
if "!a!"=="%~nx0" goto :eof
::the if test is to avoid lines that contain only spaces and the [TAB] key
for /f "tokens=*" %%c in ('type "!a!"') do if not "%%c"=="" (ren "!a!" "%%c"&goto :eof)


::this way can handle most special cases

Thanks. Although the text files still don't have extensions,
I have my own way to deal with it.
Problem solved.
Thank you very much~