[文本处理] [已解决]BAT如何提取文本内容并有序排列（2）

@echo off
setlocal enabledelayedexpansion
>"汇总.csv" echo,文件名,Type,Thickness,BaseRadius
for %%a in (*.txt) do (
echo %%a
>>$1 findstr /n .* "%%a"
for /f "tokens=1* delims=:" %%b in ('findstr /n "InitialData" "$1"') do set n=%%b
set m=1
for /f "tokens=1* delims=:" %%c in ('type "$1"') do (
if !m! geq !n! (
>>$2 echo,%%d
if "%%d" == "" call :aa "%%a"
)
set /a m+=1
)
del $*
)
pause & exit
:aa
>>$3 findstr "Type" "$2" || >>$3 echo Type=
echo.>>$3
>>$3 findstr "Thickness" "$2" || >>$3 echo Thickness=
echo.>>$3
>>$3 findstr "BaseRadius" "$2" || >>$3 echo BaseRadius=
for /f "delims=" %%i in ($3) do >>$$ echo,%%i,
move $$ $3 >nul
set s=
for /f "tokens=1* delims==" %%i in ('findstr "Type Thickness BaseRadius" "$3"') do set "s=!s!%%j"
>>"汇总.csv" echo,%~n1,!s!
goto :eof
复制代码

@echo off
set "re=\[FineCuttingHsc101\]"
set "fPath=D:\Test\"
set "str=CuttingSpeed,LensSpeed,LensSpeedMaster,LensSpeedSphere,CuttingDepth,SpiralDistance,DotDistance"

pushd "%fPath%"
echo,Name,Side,%str%>"%~dp01.csv"
(for /f "tokens=1,2delims=:" %%i in ('findstr /in "%re%" *.R *.L') do (
        setlocal enabledelayedexpansion
        set "s=%%~xi"
        for /f "tokens=*" %%a in ('more +%%j "%%i"') do (
                set "s1=%%a"
                if "!s1:~,1!" == "[" set flag=1
                if not defined flag set "%%a"
        )
        for %%a in (%str%) do set "s=!s!,!%%a!"
        echo,%%~ni,!s:~1!
        endlocal
))>>"%~dp01.csv"
pause
复制代码