7-Zipモード

展開、圧縮に7-Zipを使う。 以下をScriptフォルダに保存。

wrap_7z.js

//!*script
// 7-zipを利用して展開/圧縮/個別圧縮を行う
// 第一引数: オプション u:展開 p:圧縮 ip:個別圧縮
// 第二引数: レスポンスファイル
// 第三引数: 処理先フォルダ
//
// コマンド例
// 展開:*script %0\Script\wrap_7z.js,u,%a*8FCDN,%2
// 圧縮:*script %0\Script\wrap_7z.js,p,%a*8FCDN,%*input("%2%*addchar(\)|%*extract(C"%%X")|.zip" -title:"7zipで圧縮" -select:i)

// 個別圧縮:*script %0\Script\wrap_7z.js,ip,%a*8FCDN,%2

if (PPx.Arguments.Length < 3){
  PPx.SetPopLineMessage("引数が正しくありません。");
  PPx.Quit(-1);
}

//  7z.exeのパス
//var Exec = "C:\\Program Files\\7-Zip\\7z.exe";
var Exec = PPx.Extract('%\'7z\'');

var option = PPx.Arguments.Item(0);
var responseFile = PPx.Arguments.Item(1);
var outputFolder = PPx.Arguments.Item(2);

var fso = PPx.CreateObject("Scripting.FileSystemObject");
var archiveList = GetList(responseFile);
var parentFolder = fso.GetParentFolderName(archiveList[0]);

if (option == "u") {
  // 展開
  for (x in archiveList){
    if (archiveList[x] == ""){
      break;}
    PPx.Execute('%OBsq '+Exec+' x -o\"'+outputFolder+'\\*\" \"'+archiveList[x]+'\"');
  }
} else if (option == "p") {
  // 圧縮
  var sorceFiles = "";
  for (x in archiveList){
    if (archiveList[x] == ""){
      break;}
    sorceFiles += '\"' + fso.GetFileName(archiveList[x]) + "\" "
    }
  PPx.Execute('*cd '+parentFolder+' %: %OBsq '+Exec+' a \"'+outputFolder+'\" '+sorceFiles);
} else if (option == "ip") {
  // 個別圧縮
  // フォルダの時は入れ子構造を避けるパターン。
  for (x in archiveList){
    if (archiveList[x] == ""){
      break;}
    var fullpath=PPx.Extract('%*name(CDN,\"'+archiveList[x]+'\",\"%1\")');
    if(PPx.GetFileInformation(fullpath)==":DIR"){
      PPx.Execute('*cd \"'+fullpath+'\" %: '+Exec+' a \"'+outputFolder+'\\'+fso.GetBaseName(archiveList[x])+'.zip\" *');
    } else {
      PPx.Execute('%OBsq '+Exec+' a \"'+outputFolder+'\\'+fso.GetBaseName(archiveList[x])+'.zip\" \"'+archiveList[x]+'\"');
    }
  }
  // フォルダでも入れ子構造を避けないパターン
  /*
  for (x in archiveList){
    if (archiveList[x] == ""){
      break;}
    PPx.Execute(Exec+' a \"'+outputFolder+'\\'+fso.GetBaseName(archiveList[x])+'.zip\" \"'+archiveList[x]+'\"');
  }
   */
}

// レスポンスファイルからファイル名のリストを作成
function GetList(list)
{
  var f = CreateObject("ADODB.Stream");
  
  f.type = 2;
  f.charset = "UTF-8";
  f.open;
  f.LoadFromFile(list);
  text = f.readText(-1).split("\r\n");
  f.close;
  return text;
}

以前は、個別、圧縮、個別圧縮とそれぞれ違うスクリプトを用いていたが、それを統合した。 以下を編集して取込。

A_exec	= {
7z	= "C:\Program Files\7-Zip\7z.exe"
}

KC_main = {
F1	,*mapkey use,K_7zipmode %: *linemessage 7-Zip MODE: Press H for HELP
}

K_7zipmode	= {
U	,*script %0\Script\wrap_7z.js,u,%a*8FCDN,%2
P	,*script %0\Script\wrap_7z.js,p,%a*8FCDN,%*input("%2%*addchar(\)|%*extract(C"%%X")|.zip" -title:"7zipで圧縮" -select:i)
I	,*script %0\Script\wrap_7z.js,ip,%a*8FCDN,%2
\U ,*setcust _User:sorce_id=%n %: *ppc -r -bootid:x -single "%1" -k %(*mapkey use,K_subwin %: *linemessage 展開先を選択してください %: *string i,temp_exec=%(*script %0\Script\wrap_7z.js,u,%*extract(%su"sorce_id""%%a*8FCDN"),%1 %: %K"@Q"%)%)
\P ,*setcust _User:sorce_id=%n %: *ppc -r -bootid:x -single "%1" -k %(*mapkey use,K_subwin %: *linemessage 圧縮先を選択してください %: *string i,temp_exec=%(*script %0\Script\wrap_7z.js,p,%*extract(%su"sorce_id""%%a*8FCDN"),%*input("%1%*addchar(\)|%*extract(C"%%X")|.zip" -title:"7zipで圧縮" -select:i) %: %K"@Q"%)%)
\I ,*setcust _User:sorce_id=%n %: *ppc -r -bootid:x -single "%1" -k %(*mapkey use,K_subwin %: *linemessage 展開先を選択してください %: *string i,temp_exec=%(*script %0\Script\wrap_7z.js,ip,%*extract(%su"sorce_id""%%a*8FCDN"),%1 %: %K"@Q"%)%)
ESC	, *mapkey delete,K_7zipmode %: *linemessage 7-Zip MODE END
H	, %"7-Zip mode"%I"U%bt:展開%bnP%bt:圧縮%bnI%bt:個別圧縮%bn\U%bt:サブ窓で展開%bn\P%bt:サブ窓で圧縮%bn\I%bt:サブ窓で個別圧縮%bnESC%bt:モード終了"
}

K_subwin	= {
\ENTER    ,*execute ,%si"temp_exec"
}

F1を押すと7-Zipモードになり、一時的にキーバインドが

• U: 7-Zipで展開
• P: 7-Zipで圧縮
• I: 7-Zipで個別圧縮
• \U: サブ窓を使って7-Zipで展開
• \P: サブ窓を使って7-Zipで圧縮
• \I: サブ窓を使って7-Zipで個別圧縮
• H: ヘルプ表示
• Esc: モード終了

となる。