[文本处理] 请问批处理怎么将txt里hh:mm:ss.000的时长格式转化毫秒？

#&cls&powershell "iex(gc '%~0'|out-string)"&pause
$txt=foreach($line in gc a.txt){
    $newline=@()
    $line.split("",[StringSplitOptions]::RemoveEmptyEntries)|%{
        if($_ -match '\d'){$newline+=([timespan]$_).totalmilliseconds}else{$newline+=$_}
    }
    $newline -join "`t"
}
sc new_a.txt $txt
复制代码

@echo off&setlocal enabledelayedexpansion
cd /d "%~dp0"
(
REM=========================================================
for /f "tokens=1-3,*" %%a in (a.txt) do (
for /f "tokens=1-2,* delims=:" %%e in ('echo %%a') do (
for /f "tokens=1,* delims=." %%g in ('echo %%g') do (
set AD=%%d
set Ha=%%h
set /a Ea=%%e * 60 * 60 * 1000
set /a Fa=%%f * 60 * 1000
set /a Ga=%%g * 1000
set /a AA=!Ea!+!Fa!+!Ga!+!Ha!
)
)
REM=========================================================
for /f "tokens=1-2,* delims=:" %%e in ('echo %%b') do (
for /f "tokens=1,* delims=." %%g in ('echo %%g') do (
set Hb=%%h
set /a Eb=%%e * 60 * 60 * 1000
set /a Fb=%%f * 60 * 1000
set /a Gb=%%g * 1000
set /a AB=!Eb!+!Fb!+!Gb!+!Hb!
)
)
REM=========================================================
for /f "tokens=1-2,* delims=:" %%e in ('echo %%c') do (
for /f "tokens=1,* delims=." %%g in ('echo %%g') do (
set Hc=%%h
set /a Ec=%%e * 60 * 60 * 1000
set /a Fc=%%f * 60 * 1000
set /a Gc=%%g * 1000
set /a AC=!Ec!+!Fc!+!Gc!+!Hc!
)
)
echo,!AA!        !AB!        !AC!        !AD!
)
)  >new_a.txt
echo.
echo,数据处理完毕！！！
echo.
pause>nul
复制代码

[regex]::Replace((gc '.\a.txt' -raw), '(\d+:){2}\d+(\.\d+)?',{[TimeSpan]::Parse($args.value).TotalMilliSeconds})|sc '.\a.txt' -force
复制代码

@echo off
cd /d "%~dp0"
(for /f "tokens=1-4" %%h in ('type "1.txt"') do (
    call :Time2MI %%h
    call :Time2MI %%i
    call :Time2MI %%j
    echo,%%k
))>"2.txt"
goto :eof

:Time2MI
for /f "tokens=1-4 delims=:." %%a in ("%1") do (
    set /a HH=1%%a-100
    set /a MM=1%%b-100
    set /a SS=1%%c-100
    set /a MI=1%%d-1000
)
set /a HH2MM=HH*60
set /a MM+=HH2MM
set /a MM2SS=MM*60
set /a SS+=MM2SS
set /a SS2MI=SS*1000
set /a MI+=SS2MI
set /p "=%MI% "<nul
goto :eof
复制代码