[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
本帖最后由 WHY 于 2018-2-2 22:24 编辑
  1. function MergeFiles($chsFile, $engFile){
  2.     $hash = @{}; $s1 = $s2 = '';
  3.     ForEach($strLine In (type $chsFile)){
  4.         If($s1 -like '[0-9][0-9]:*') { $hash[$s1] = $strLine; }
  5.         $s1 = $strLine;
  6.     }
  7.     ForEach($strLine In (type $engFile)){
  8.         If($s2 -like '[0-9][0-9]:*'){$strLine + ' ' + $hash[$s2];}
  9.         $s2 = $strLine;
  10.     }
  11. }
  12. $chsDir = 'C:\Users\CH6\Desktop\TEDTXTUNICODE\chs1203';
  13. $engDir = 'C:\Users\CH6\Desktop\TEDTXTUNICODE\eng1246';
  14. $mergeDir = 'C:\Users\CH6\Desktop\TEDTXTUNICODE\merge';
  15. If(!(Test-Path $mergeDir)){$null = md $mergeDir;}
  16. ForEach($eng In (dir ($engDir + '\*.txt'))){
  17.     $chsFile = $chsDir + '\' + $eng.Name;
  18.     If(Test-Path $chsFile){
  19.         $arr = MergeFiles $chsFile $eng.FullName;
  20.         Set-Content ($mergeDir + '\' + $eng.Name) $arr -Enc unicode;
  21.     }
  22. }
  23. [Console]::Write('Done');
  24. [Console]::ReadLine()
复制代码

TOP

返回列表