[已解决]求助批处理txt里时间格式的转化和进位问题

vicodin

我的一个txt文件里存储着很多的时长数据，时长是按“小时:分钟:秒.毫秒”的格式存储的。txt里还包含着一些汉字。如下所示：
00:01:04.567        00:01:04.933        00:00:00.367        寒
00:01:59.998        00:01:05.300        00:00:00.997        空
……
现在我的需求是把这个txt里所有的时长数据转化为“分钟：秒：厘秒”的格式（转化后的分钟、秒、厘秒都要求是两位数），替换原始的时间。即把原始的txt转变成下面这样：
01:04:57        01:04:93        00:00:37        寒
02:00:00        01:05:30        00:01:00        空
……

说明：（1）txt中所有时长数据都不超过99分钟，不用考虑第一位分钟的数据超过2位的情况；
（2）在把毫秒化成厘秒时，要求四舍五入。
（3）最主要的难点在于进位。毫秒四舍五入后如果进位，可能会导致分钟数或者秒数变化，这个难点我解决不了，所以来向高手求助，学习一下。
谢谢。

1139054012

BAT

1. @echo off
   
2. :: 时间格式转换工具（hh:mm:ss.SSS → MM:SS:CC）
   
3. :: 支持毫秒四舍五入和自动进位处理
   
4. chcp 65001 >nul
   
5. setlocal enabledelayedexpansion
   
6. 
   
7. :: 检查输入文件
   
8. if not exist "input.txt" (
   
9.     echo ❌ 错误：找不到 input.txt 文件
   
10.     echo 请确保：
    
11.     echo 1. 文件与脚本在同一目录
    
12.     echo 2. 文件名确认为 input.txt
    
13.     pause
    
14.     exit /b
    
15. )
    
16. 
    
17. :: 准备输出文件
    
18. if exist "output.txt" del "output.txt"
    
19. 
    
20. :: 主处理循环
    
21. for /f "usebackq delims=" %%L in ("input.txt") do (
    
22.     set "line=%%L"
    
23.     set "new_line="
    
24.    
    
25.     :: 使用令牌循环处理每行内容
    
26.     for %%T in (!line!) do (
    
27.         set "token=%%T"
    
28.         
    
29.         :: 检查是否是时间格式 (hh:mm:ss.SSS)
    
30.         echo !token!|findstr /r "^[0-9][0-9]:[0-9][0-9]:[0-9][0-9]\.[0-9][0-9][0-9]$" >nul
    
31.         if !errorlevel! equ 0 (
    
32.             call :CONVERT_TIME "!token!"
    
33.             set "new_line=!new_line! !result!"
    
34.         ) else (
    
35.             set "new_line=!new_line! !token!"
    
36.         )
    
37.     )
    
38.    
    
39.     :: 写入输出文件（去掉行首空格）
    
40.     echo !new_line:~1!>>"output.txt"
    
41. )
    
42. 
    
43. echo ✅ 转换完成！结果已保存到 output.txt
    
44. pause
    
45. exit /b
    
46. 
    
47. :: 精确时间转换函数（支持四舍五入和自动进位）
    
48. :CONVERT_TIME
    
49. set "time_str=%~1"
    
50. 
    
51. :: 提取各部分（保持前导零）
    
52. set "h=!time_str:~0,2!"
    
53. set "m=!time_str:~3,2!"
    
54. set "s=!time_str:~6,2!"
    
55. set "ms=!time_str:~9,3!"
    
56. 
    
57. :: 转换为数值（去除前导零）
    
58. for /f "tokens=* delims=0" %%a in ("!h!") do set /a h=%%a
    
59. for /f "tokens=* delims=0" %%a in ("!m!") do set /a m=%%a
    
60. for /f "tokens=* delims=0" %%a in ("!s!") do set /a s=%%a
    
61. for /f "tokens=* delims=0" %%a in ("!ms!") do set /a ms=%%a
    
62. 
    
63. :: 处理空值（全零情况）
    
64. if "!h!"=="" set /a h=0
    
65. if "!m!"=="" set /a m=0
    
66. if "!s!"=="" set /a s=0
    
67. if "!ms!"=="" set /a ms=0
    
68. 
    
69. :: 计算总毫秒数（关键步骤）
    
70. set /a total_ms=h*3600000 + m*60000 + s*1000 + ms
    
71. 
    
72. :: 毫秒转厘秒（四舍五入）
    
73. set /a centiseconds=(total_ms + 5) / 10
    
74. 
    
75. :: 计算最终时间（自动处理进位）
    
76. set /a total_seconds=centiseconds / 100
    
77. set /a cs=centiseconds %% 100
    
78. set /a minutes=total_seconds / 60
    
79. set /a seconds=total_seconds %% 60
    
80. 
    
81. :: 处理进位后可能的60秒情况（如 59.995秒 → 应进位为1分钟0秒）
    
82. if !seconds! geq 60 (
    
83.     set /a minutes+=1
    
84.     set /a seconds-=60
    
85. )
    
86. 
    
87. :: 两位数格式化
    
88. set "minutes=0!minutes!"
    
89. set "minutes=!minutes:~-2!"
    
90. set "seconds=0!seconds!"
    
91. set "seconds=!seconds:~-2!"
    
92. set "cs=0!cs!"
    
93. set "cs=!cs:~-2!"
    
94. 
    
95. set "result=!minutes!:!seconds!:!cs!"
    
96. goto :EOF

复制代码

PS1

1. # 设置默认编码为 UTF-8（避免中文乱码）
   
2. $OutputEncoding = [System.Text.Encoding]::UTF8
   
3. try {
   
4.     [Console]::OutputEncoding = [System.Text.Encoding]::UTF8
   
5. } catch {
   
6.     Write-Host "⚠️ 无法设置控制台输出编码（不影响脚本功能）" -ForegroundColor Yellow
   
7. }
   
8. 
   
9. # 获取脚本所在目录
   
10. $scriptDir = Split-Path -Parent $MyInvocation.MyCommand.Definition
    
11. 
    
12. # 输入输出文件路径
    
13. $inputFile  = Join-Path $scriptDir "input.txt"
    
14. $outputFile = Join-Path $scriptDir "output.txt"
    
15. 
    
16. # 如果 output.txt 已存在，先删除
    
17. if (Test-Path $outputFile) {
    
18.     Remove-Item $outputFile
    
19. }
    
20. 
    
21. # 检查输入文件是否存在
    
22. if (-not (Test-Path $inputFile)) {
    
23.     Write-Host "❌ 错误：找不到 input.txt 文件，请确保它和脚本在同一个目录下。" -ForegroundColor Red
    
24.     Read-Host "按任意键退出..."
    
25.     exit
    
26. }
    
27. 
    
28. # 定义时间转换函数
    
29. function Format-Time([int]$totalMs) {
    
30.     $centiseconds = [math]::Round($totalMs / 10)
    
31.     $totalSeconds = [math]::Floor($centiseconds / 100)
    
32.     $cs = $centiseconds % 100
    
33.     $minutes = [math]::Floor($totalSeconds / 60)
    
34.     $seconds = $totalSeconds % 60
    
35. 
    
36.     # 确保是整数类型
    
37.     $minutes = [int]$minutes
    
38.     $seconds = [int]$seconds
    
39.     $cs = [int]$cs
    
40. 
    
41.     # 使用英文双引号 + 正确格式化
    
42.     return "{0:D2}:{1:D2}:{2:D2}" -f $minutes, $seconds, $cs
    
43. }
    
44. 
    
45. # 逐行处理文本
    
46. Get-Content -Path $inputFile -Encoding UTF8 | ForEach-Object {
    
47.     $line = $_
    
48. 
    
49.     # 使用正则替换所有 hh:mm:ss.SSS 时间格式
    
50.     $newLine = [regex]::Replace($line, '\b(\d{2}):(\d{2}):(\d{2})\.(\d{3})\b', {
    
51.         param($match)
    
52. 
    
53.         # 提取各部分并转为整数
    
54.         $parts = $match.Value -split '[:.]'
    
55.         $h = [int]$parts[0]
    
56.         $m = [int]$parts[1]
    
57.         $s = [int]$parts[2]
    
58.         $ms = [int]$parts[3]
    
59. 
    
60.         # 计算总毫秒
    
61.         $totalMs = $h * 3600000 + $m * 60000 + $s * 1000 + $ms
    
62. 
    
63.         # 格式化为 MM:SS:CC
    
64.         return Format-Time $totalMs
    
65.     })
    
66. 
    
67.     # 写入输出文件（使用 UTF-8 编码）
    
68.     Add-Content -Path $outputFile -Value $newLine -Encoding UTF8
    
69. }
    
70. 
    
71. Write-Host "✅ 转换完成，结果已写入 output.txt" -ForegroundColor Green
    
72. Read-Host "按任意键退出..."

复制代码

aloha20200628

回复 1# vicodin

以下代码存为 test.bat 运行，与源文件（假设名为 t.txt，可自定义）同目录，输出文件名为 t.new.txt（可自定义）...

1. 
   
2. @echo off &setlocal & (for /f "tokens=1-4 delims=         " %%a in (t.txt) do (
   
3.    for %%t in (%%a,%%b,%%c) do for /f "tokens=1-3 delims=:" %%x in ("%%t") do for /f "tokens=1-4 delims=:" %%A in ('powershell "$t=3600*%%x+60*%%y+%%z;$t=[math]::round($t,2);[timespan]::fromseconds($t).tostring('hh\:mm\:ss\:ff')" ') do (
   
4.    if %%A gtr 0 (set/a _#m=60*%%A+%%B) else set "_#m=%%B"
   
5.    for /f "tokens=2 delims==" %%m in ('set _#m') do set/p="%%m:%%C:%%D        "<nul)
   
6. ) &echo,%%d)>"t.new.txt"
   
7. type "t.new.txt" &pause&exit/b
   

复制代码

idwma

1. powershell "type 123.txt|foreach{[regex]::replace($_,'[\d:.]+?(\d)\s',{$i=$args[0];$t=[timespan]$i.value;if($i.groups[1].value-ge5){$t+=[timespan]100000};'{0:hh\:mm\:ss\:ff}'-f$t})}"

复制代码

77七

1. @echo off
   
2. cd /d "%~dp0"
   
3. for /f "useback tokens=1-3*" %%o in ("1.txt") do (
   
4.         set str=%%r
   
5.         setlocal enabledelayedexpansion
   
6.         for %%i in ("%%o" "%%p" "%%q") do (
   
7.                 for /f "tokens=1-4 delims=:." %%a in ("%%~i") do (
   
8.                         set /a "s=(1%%a-100)*3600+(1%%b-100)*60+(1%%c-100)+(m=1%%d+5)/2000,n1=100+s/60,n2=100+s%%60"
   
9.                         set /p="!n1:~-2!:!n2:~-2!:!m:~1,2!        "<nul
   
10.                 )
    
11.         )
    
12.         echo=!str!
    
13.         endlocal
    
14. )
    
15. pause

复制代码

aloha20200628

回复 1# vicodin

3楼代码在循环体内逐行调用 powershell 处理，效率不理想，改用 bat+powershell 混编版式，让 powershell 一次性解决问题，依然保持3楼代码的兼容性》一。兼容源文件每行字段分割符可以是空格或制表符；二。源文件中的字段如 01:25:03.997 的处理结果为 85:04:00。以下代码存为 test.bat 运行，与源文件（代码预设名为 t.txt，输出结果文件名为 t.new.txt）同目录...

1. 
   
2. <# ::
   
3. @echo off &powershell "iex(${%~f0}|out-string)">"t.new.txt" &type "t.new.txt" &exit/b
   
4. #>
   
5. gc t.txt | % {
   
6.   $l=$_.split(" `t",[StringSplitOptions]::RemoveEmptyEntries); $tt='';
   
7.   $l[0..($l.length-2)] | % {
   
8.     $t=$_.split(':'); $s=3600*$t[0]+60*$t[1]+$t[2]; $s=[math]::round($s,2);
   
9.     $t=[timespan]::fromseconds($s).tostring('hh\:mm\:ss\:ff').split(':');
   
10.     $m=60*$t[0]+$t[1]; $m='{0:d2}'-f $m; $t=''+$m+':'+$t[2]+':'+$t[3]; $tt+=$t+"`t"; }
    
11.   $tt+$l[$l.length-1]; }; exit
    

复制代码