[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
  1. <# :
  2. cls&echo off&cd /d "%~dp0"&mode con lines=5000
  3. path %SYSTEMROOT%\System32\WindowsPowerShell\v1.0;%path%
  4. set "current=%cd%"
  5. powershell -NoProfile -ExecutionPolicy bypass "Get-Content -literal '%~f0'|Out-String|Invoke-Expression"
  6. pause
  7. exit
  8. #>
  9. $insertstr='    <item id="Cbeta.ttf" href="Fonts/Cbeta.ttf" media-type="application/x-font-ttf"/>';
  10. $current=($env:current).trimend('\');
  11. $enc=New-Object System.Text.UTF8Encoding $False;
  12. $folders=@(dir -literal $current -recurse|?{$_ -is [System.IO.DirectoryInfo]});
  13. for($i=0;$i -lt $folders.length;$i++){
  14.     if($folders[$i].Name -eq 'OEBPS'){
  15.         $ttffile=$folders[$i].FullName+'\Fonts\Cbeta.ttf';
  16.         $opffile=$folders[$i].FullName+'\content.opf';
  17.         if((test-path -literal $ttffile) -and (test-path -literal $opffile)){
  18.             write-host $ttffile;
  19.             write-host $opffile;
  20.             $text=[IO.File]::ReadAllText($opffile, $enc);
  21.             $text=[regex]::replace($text, '([^\r\n]+([\r\n]+))([\t ]*?</manifest>)', {
  22.                 param($m);
  23.                 if($m.groups[0].value.Contains($insertstr)){
  24.                     return $m.groups[0].value;
  25.                 }else{
  26.                     return $m.groups[1].value+$insertstr+$m.groups[2].value+$m.groups[3].value;
  27.                 }
  28.             });
  29.             [IO.File]::WriteAllText($opffile, $text, $enc);
  30.             write-host '';
  31.         }
  32.     }
  33. }
复制代码
1

评分人数

提供bat代写,为你省时省力省事,支付宝扫码头像支付
微信: unique2random

TOP

返回列表