[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
把 绝对路径 作为脚本参数传递给 PowerShell 脚本
get-ChildItem(dir)、get-Content(gc)、set-Content(sc) 这些 cmdlet 用参数 -LiteralPath 代替 -Path
当路径或文件名出现"["字符时可以避免报错。
  1. <# :
  2. @echo off
  3. PowerShell -c ". ([ScriptBlock]::Create((gc -Literal '%~f0') -join \"`r`n\")) '%~dp0'"
  4. pause & exit/b
  5. #>
  6. param([string]$path);
  7. $reg = '^(\d\d:\d\d:\d\d,\d\d\d)\s*-->\s*(\d\d:\d\d:\d\d,\d\d\d)$';
  8. forEach( $file In (dir -Literal $path -Filter *.srt) ){
  9.     $arr = gc -Literal $file.FullName -Enc UTF8 -ReadCount 0;
  10.     $count = $arr.Count;
  11.     for( $i = 0; $i -lt $count; $i++ ){
  12.         if( $arr[$i] -match $reg ){
  13.             $T1 = [DateTime]$matches[1].Replace(',', '.');
  14.             $T2 = [DateTime]$matches[2].Replace(',', '.');
  15.             if( ($T2 - $T1).TotalSeconds -gt 5 ){
  16.                 $arr[$i] = $matches[1] + ' --> ' + $T1.AddSeconds(5).ToString('HH:mm:ss,fff');
  17.             }
  18.         }
  19.     }
  20.     sc -Literal $file.FullName -Enc UTF8 -Value $arr;
  21. }
复制代码

TOP

返回列表