[文本处理] 读取文件名按特定的格式输出至文本中!

@echo off
set /a num=0
setlocal enabledelayedexpansion
set tmpdir=%~d0\tmp
md %tmpdir% 2>nul
for /f "delims=" %%i in ('dir /ad /b') do (
    for /f "delims=" %%j in ('dir /a-d /b %%i\*.doc') do (
        set /a num1=!num!%%6+1
        if !num1! equ 1 set /a num2+=1
        call :output %%i %%j !num!
        set /a num+=1
    )
)
del /a %tmpdir%\tmp>nul
pause
exit

:output
dir /a-d /b %1\word\*.word>%tmpdir%\tmp
for /f "delims=" %%i in ('more +!num! %tmpdir%\tmp') do (
    if !num1! equ 1 (
        echo ^<p^>>%tmpdir%\%1!num2!.txt
        set str=%2
    )
    if !num1! geq 1 (
        echo ^<a %2 !num1!^>^<word/%%i^>>>%tmpdir%\%1!num2!.txt
    )
    if !num1! equ 6 (
        echo ^<p^>>>%tmpdir%\%1!num2!.txt
        echo ^<p^>!str!^<p^>>>%tmpdir%\%1!num2!.txt
    )
    goto :eof
)
goto :eof
复制代码

@echo off
for %%i in (psp nds bbs) do (
    md %%i 2>nul
    md %%i\word 2>nul
    for /l %%j in (1,1,20) do cd.>%%i\doc%%j.doc&cd.>%%i\word\word%%j.word
)
复制代码

@echo off
set /a num=0
setlocal enabledelayedexpansion
set tmpdir=%~d0\tmp
md %tmpdir% 2>nul
for /f "delims=" %%i in ('dir /ad /b') do (
for /f "delims=" %%j in ('dir /a-d /b %%i\*.doc') do (
set /a num1=!num!%%6+1
if !num1! equ 1 set /a num2+=1
call :output %%i %%j !num!
set /a num+=1
)
)
del /a %tmpdir%\tmp>nul
pause
exit

:output
dir /a-d /b %1\word\*.word>%tmpdir%\tmp
for /f "delims=" %%i in ('more +!num! %tmpdir%\tmp') do (
if !num1! equ 1 (
echo ^>%tmpdir%\%1!num2!.txt
set str=%2
)
if !num1! geq 1 (
echo ^^>>%tmpdir%\%1!num2!.txt
)
if !num1! equ 6 (
echo ^>>%tmpdir%\%1!num2!.txt
echo ^!str!^>>%tmpdir%\%1!num2!.txt
)
goto :eof
)
goto :eof
复制代码

@echo off
setlocal enabledelayedexpansion
for /f "delims=" %%i in ('dir /ad /b') do (
    set /a num=0,num2=0
    for /f "delims=" %%j in ('dir /a-d /b %%i\*.doc') do (
        set /a num1=!num!%%6+1
        if !num1! equ 1 set /a num2+=1
        call :output %%i %%j
        set /a num+=1
    )
    set str1=%%i\%%i!num2!.txt
    if !num1! neq 6 (
        echo ^<p^>>>!str1!
        echo ^<p^>!str!^<p^>>>!str1!
    )
)
del /a "%tmp%\tmp">nul
pause
exit

:output
dir /a-d /b %1\word\*.word>"%tmp%\tmp"
for /f "delims=" %%i in ('more +!num! "%tmp%\tmp"') do (
    if !num1! equ 1 (
        echo ^<p^>>%1\%1!num2!.txt
        set str=%2
    )
    if !num1! geq 1 (
        echo ^<a %2 !num1!^>^<word/%%i^>>>%1\%1!num2!.txt
    )
    if !num1! equ 6 (
        echo ^<p^>>>%1\%1!num2!.txt
        echo ^<p^>!str!^<p^>>>%1\%1!num2!.txt
    )
    goto :eof
)
goto :eof
复制代码

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in ('dir /ad /b') do (
    set/a n=0,s=0,s2=0,n1=0
       for /f "delims=" %%j in ('dir /b /a-d "%%i\*.doc"') do set/a n1+=1&set _!n1!=%%j
          for /f "delims=" %%k in ('dir /b /a-d "%%i\word\word*.word"') do (
             set/a s+=1,s1=s%%6,s2+=1
             call set n2=%%_!s!%%
             if !s2! gtr 6 set s2=1&set var=%%k
             if !s1! equ 1 (
             if !n! neq 0 (
             >>"%%i\%%i!n!.txt" echo;^<p^>
             >>"%%i\%%i!n!.txt" echo;^<p^>!_n!^<P^>
             )
             set/a n+=1
             >"%%i\%%i!n!.txt" echo;^<p^>
             >>"%%i\%%i!n!.txt" echo;^<a !n2! !s2!^>^<word/%%k^>
             call set _n=%%_!s!%%
          ) else >>"%%i\%%i!n!.txt" echo;^<a !n2! !s2!^>^<word/%%k^>
        )
      if !s2! equ 1 (
      >"%%i\%%i!n!.txt" echo;^<p^>
      >>"%%i\%%i!n!.txt" echo;^<a !n2! !s2!^>^<word/!var!^>
      )
      >>"%%i\%%i!n!.txt" echo;^<p^>
      >>"%%i\%%i!n!.txt" echo;^<p^>!_n!^<P^>
    )
  )
)
pause&exit
复制代码