中国DOS联盟

For example, there are several text files in a certain folder. I want to extract the first two lines of these text files and combine them to change the names of the text files. I don't know how to do it.

For example, there is this file

Moshidou.txt

The content of the file is as follows

　　Moshidou
　　Author: Xu Qifeng


【Content Introduction】

　　Zhang Rufei, who is proficient in martial arts, accidentally came into contact with an unidentified flying object from planet K after a drunk, and accidentally obtained six pills with the effect of "the six stars of the Southern Dipper master life". These pills can bring back to life people who have died from accidental injuries and quickly restore them to the state before death.
　　From then on, Zhang Rufei embarked on an extraordinary path.

There are 4 half-width characters in front of the file, but since it will be deformed here, two full-width characters are used instead

Now I want to extract the first line and the second line of the file and combine them into the form "《Moshidou》Author: Xu Qifeng.txt". I don't know if it can be done. Thank you

@echo off&setlocal enabledelayedexpansion

for /f "tokens=1* delims=:" %%i in ('findstr /n .* a.txt') do (

    set var=!var!%%j

    set var=!var:　=!

    if %%i equ 2 ren a.txt !var!.txt

)

Try this:

@echo off&setlocal enabledelayedexpansion

for /f "tokens=1* delims=:" %%i in ('findstr /n .* a.txt') do (

    set var=!var!%%j

    set var=!var:　=!

    if %%i equ 2 ren a.txt !var!.txt

)

@echo off&setlocal enabledelayedexpansion

for /f "tokens=1* delims=:" %%i in ('findstr /n .* a.txt') do (

    set var=《!var!》%%j

    set var=!var:　=!

    set var=!var:《》=!

    if %%i equ 2 ren a.txt !var!.txt

)

Hehe, add the book title marks:

@echo off&setlocal enabledelayedexpansion

for /f "tokens=1* delims=:" %%i in ('findstr /n .* a.txt') do (

    set var=《!var!》%%j

    set var=!var:　=!

    set var=!var:《》=!

    if %%i equ 2 ren a.txt !var!.txt

)

I want to do it in batch, not individually. Also, even using a.txt doesn't work. I tested with the following attached files and it failed. For example, the following several files are supposed to be renamed at one time as:
"Magic Fighter" Author: Xu Qifeng.txt
"X逍遥 Seeking Qin Biography" Author: Chu Lingtian.txt
"Monster Biography" Author: Lan.txt. But still, thank you.

set fso=createobject("scripting.filesystemobject")

set folder=fso.getfolder(".")

for each file in folder.files

    if ucase(right(file,3))="TXT" then

        with fso.opentextfile(file)

            n="《" & trim(.readline) & "》"

            n=n & trim(.readline)

            .close

        end with

        file.name=n & ".txt"

    end if

next

```
set fso=createobject("scripting.filesystemobject")
set folder=fso.getfolder(".")
for each file in folder.files
if ucase(right(file,3))="TXT" then
with fso.opentextfile(file)
n="《" & trim(.readline) & "》"
n=n & trim(.readline) & ".txt"
.close
end with
file.name=n & ".txt"
end if
next
```

Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.getfolder(".")
For Each file In folder.files
If UCase(Right(file,3)) = "TXT" Then
With fso.OpenTextFile(file)
n = "《" & Trim(.ReadLine) & "》"
n = n & Trim(.ReadLine)
.Close
End With
file.name = n & ".txt"
End If
Next

Set folder = Nothing
Set fso = Nothing

VBS scripts are still convenient for string processing

@echo off&setlocal enabledelayedexpansion

for /f %%a in ('dir/b *.txt') do (

    for /f "tokens=1* delims=:" %%i in ('findstr /n .* %%a') do (

    set "var=!var!%%j"

    set var=!var: =!

    if %%i equ 2 ren %%a 《%%~na》!var!.txt

    set var=

    )

)

Originally posted by venchia at 2007-7-15 02:30:
I need batch processing, not single processing

Also, even using a.txt doesn't work. I tested with the following attached files and failed

For example, the following several files are intended to be renamed at one time as

"Magic Fighter" ...

Your test failed because of full-width and half-width issues.
Tested the following code with your attachment and it succeeded.

@echo off&setlocal enabledelayedexpansion

for /f %%a in ('dir/b *.txt') do (

    for /f "tokens=1* delims=:" %%i in ('findstr /n .* %%a') do (

    set "var=!var!%%j"

    set var=!var: =!

    if %%i equ 2 ren %%a 《%%~na》!var!.txt

    set var=

    )

)

I couldn't get on before, and just as I got on, I found many solutions. Thanks to all the kind friends above