@echo off
setlocal enabledelayedexpansion

REM 读取多层目录下的.lvm文件数据并提取电压输出值
for /f "delims=" %%a in ('dir /a-d/s/b *.lvm') do (
    set n=0&set/a m+=1
    for /f "tokens=3" %%b in ('type "%%a"') do (
    set/a n+=1&set str!m!!n!=%%b
    )
)
(for /l %%a in (1 1 !n!) do (
    for /l %%b in (1 1 !m!) do (
    set/p=!str%%b%%a! <nul
    )
echo.
))>new.lvm

REM 删除前几行无效数据
@for %%i in (*.lvm) do @more +7 "%%i">$&move $ "%%i"

REM 读取new.lvm文件内容并按行解析
for /f "tokens=*" %%a in (new.lvm) do (
    set "line=%%a"
    set "validLine="
    set "validElements=0"
    
    REM 将一行数据按空格或其他空白内容分隔成数组
    for %%b in (!line!) do (
        set "element=%%b"
        
        REM 检查数组元素是否为有效数字或小数点
        echo !element! | findstr /r "[0-9]*\.[0-9]*" >nul
        if !errorlevel! equ 0 (
            REM 找到有效元素，将其连接到validLine变量
            if defined validLine (
                set "validLine=!validLine!,!element!"
            ) else (
                set "validLine=!element!"
            )
            set /a validElements+=1
        )
    )
    REM 将满足要求的有效行写入new.csv文件
    if !validElements! geq 1 (
        echo !validLine! >>new.csv
        echo 数据提取中...
        
        ren new.csv new.xlsx
    )
)
endlocal

echo 提取数据完成，将于1s后关闭窗口！
ping 127.1 -n 2 >nul

REM excel一列转多列多行的公式：=OFFSET($C$1,(COLUMN(C1)-3)*81+(ROW(C1)-1),)&""
复制代码

for /f "delims=" %%a in ('dir /a-d/s/b *.lvm') do (
    set n=0&set/a m+=1
    for /f "tokens=3" %%b in ('type "%%a"') do (
    set/a n+=1&set str!m!_!n!=%%b
    )
)
(for /l %%a in (1 1 !n!) do (
    for /l %%b in (1 1 !m!) do (
    set/p=!str%%b_%%a! <nul
    )
echo.
))>new.lvm
复制代码

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%a in ('dir /a-d/s/b *.lvm') do (
     set n=0
     for /f "usebackq tokens=3" %%b in ("%%a") do (
          set/a n+=1
          for %%c in (!n!) do set _!n!=!_%%c! %%b
     )
)

(for /l %%a in (8,1,!n!) do (
      set "str="
      for %%b in (!_%%a!) do (
           set s=%%b
           if "!s:~,1!" == "-" (set t=-&set "s=!s:~1!") else set "t="
           for /f "delims=.0123456789" %%c in ("!s!") do set "s="
           if defined s set str=!str!,!t!!s!
      )
      echo!str!
))>new.csv

pause
复制代码

@echo off&pause&chcp 936 >nul

set max=10000
set m=10000

cd.>______1.csv
for /R %%a in ("*.lvm") do (
set /a m+=1
set file=%%a
call :aaa
echo,
)>>______1.csv

for /l %%a in (%max%,-1,10000) do set array%%a=,
for /f "delims=" %%a in (______1.csv) do (
set l=10000
for %%b in (%%a) do (
setlocal enabledelayedexpansion
for %%c in (!l!) do (
for %%d in ("!array%%c!") do endlocal&set array%%c=%%~d,%%~b
)
set /a l+=1
)
call :bbb
)
cd.>______2.csv
(for /f "tokens=1* delims==," %%a in ('set array') do echo %%b)>>______2.csv

pause&exit/b

:aaa
set n=10000
set /p=""%file%""<nul
for /f "tokens=3" %%u in ('findstr /b "[-0-9][0-9]*\." "%file%"') do (
set /a n+=1
set /p=,%%%u<nul
)
if %n% gtr %max% set max=%n%
goto :eof

:bbb
set /a ll=max+1
if %l% neq %ll% (
for /l %%y in (%l%,1,%max%) do (
setlocal enabledelayedexpansion
for %%z in ("!array%%y!") do endlocal&set array%%y=%%~z,nil
)
)
复制代码

powershell -Command "& {Import-Csv '___1.csv' -Delimiter "`t" | Export-Excel -Path '___1.xlsx' -Show}"
复制代码

0.021841,0.034476,0.057524,0.021841,0.034476,0.037996,0.026896,0.017917,0.016473,0.046873,0.021037,0.066235,0.021384,0.041630,0.070698
0.019911,0.032562,0.055642,0.019911,0.032562,0.036256,0.025116,0.016234,0.014831,0.044821,0.019360,0.064212,0.019452,0.039908,0.069087
0.017951,0.030625,0.053731,0.017951,0.030625,0.034484,0.023288,0.014520,0.013140,0.042733,0.017666,0.062174,0.017484,0.038172,0.067416
0.016004,0.028708,0.051819,0.016004,0.028708,0.032702,0.021456,0.012811,0.011469,0.040664,0.015969,0.060117,0.015515,0.036426,0.065790
0.014071,0.026792,0.049911,0.014071,0.026792,0.030952,0.019674,0.011120,0.009805,0.038591,0.014306,0.058073,0.013550,0.034686,0.064145
0.012078,0.024837,0.047972,0.012078,0.024837,0.029164,0.017823,0.009389,0.008116,0.036497,0.012603,0.056005,0.011563,0.032951,0.062466
复制代码

set csvfile="R:\old.csv"
set xlsxfile="R:\new.xlsx"
mshta vbscript:execute("With CreateObject(""Excel.Application"").Workbooks.Open("%csvfile%"):.SaveAs "%xlsxfile%",51:.Parent.Quit:End With")(close)
复制代码

@echo off&pause&chcp 936 >nul

rem 将bat代码文件保存为gbk编码的文件
rem 生成的csv的编码为gbk,分割符为英文逗号,因此文件名中最好不要有英文逗号和特殊字符

rem 循环初始值
set iii=10000

rem 数据列最大初始值
set max=10000

rem 文件数量初始值
set m=10000

echo,
rem 递归枚举当前目录下的.lvm文件并提取数据
for /R %%a in ("*.lvm") do (
set n=10000
set file=%%a
echo 开始提取文件"%%a"数据列
call :aaa
echo 提取完成&echo.
set /a m+=1
)

set /a m-=1
echo 开始生成csv文件...&echo,

echo 创建文件 ______a.csv
cd.>______a.csv
for /l %%a in (%iii%,1,%m%) do (
set lll=0
rem 获取变量值并分割,重定向数据到csv文件
for /f "tokens=1* delims==" %%b in ('set array%%a_') do (
if defined lll (
set /p="%%c"<nul
set lll=
) else set /p=,%%c<nul
)
echo,
)>>______a.csv
echo 已生成csv文件&echo.

echo 创建文件 ______b.csv
cd.>______b.csv
setlocal enabledelayedexpansion
rem 重定向数据到csv文件,分隔符为英文逗号,不足最大数据列的用nil填充
(for /l %%y in (%iii%,1,%max%) do (
set lll=0
for /l %%z in (%iii%,1,%m%) do (
if !lll! == 0 (
if "!array%%z_%%y!" neq "" (set/p=!array%%z_%%y!<nul) else set/p=nil<nul
set /a lll+=1
) else (
if "!array%%z_%%y!" neq "" (set/p=,!array%%z_%%y!<nul) else set/p=,nil<nul
))
echo,
))>>______b.csv
echo 已生成csv文件&echo.
endlocal

pause&exit/b

rem 提取文件数据过程
:aaa

set "array%m%_%n%=%file%"

rem 读取文件并提取数据
for /f "tokens=3" %%b in ('findstr /b "[-0-9][0-9]*\." "%file%"') do (
set /a n+=1
setlocal enabledelayedexpansion
for %%c in (!m!_!n!) do endlocal&set array%%c=%%b
)

rem 重设最大数据列值
if %n% gtr %max% set max=%n%
goto :eof
复制代码