KC_main = { ; PPcメイン窓
':' ,%M_Mask,E
}
M_Mask = { ** comment **
&EXEでマスク = *maskentry *.exe
&TXTでマスク = *maskentry *.txt,*.howm,*.ini
画像マスク(&I) = *maskentry *.jpg,*.jpeg,*.png,*.gif,*.bmp
-- =
ディレクトリマスク(&D) = *maskentry attribute:d
マークファイルでマスク(&M) = *maskentry %#;C %: %K"HOME"
-- =
マスク解除(&U) = *maskentry
}
KC_main = { ; PPcメイン窓
\U ,%M_MyUnpack,1
}
M_MyUnpack = { ** comment **
現在窓に展開(&1) = *script %0\Script\wrap_7zG.js,"%a8FCDN","%1"
反対窓に展開(&2) = *script %0\Script\wrap_7zG.js,"%a8FCDN","%2"
反対窓のマークファイルを現在窓に展開(&3) = *script %0\Script\wrap_7zG.js,%*extract(~"%%a8FCDN"),"%1"
}
//!*script
// 7zG を実行して展開先フォルダにアーカイブファイルを展開する
// 第一引数: レスポンスファイル
// 第二引数: 展開先フォルダ
if (PPx.Arguments.Length < 2){
PPx.SetPopLineMessage("引数が正しくありません。");
PPx.Quit(-1);
}
var fs = PPx.CreateObject("Scripting.FileSystemObject");
// 7-Zipのパス
var exec = 'C:\\Program Files\\7-Zip\\7zG.exe';
var archiveFiles = GetArchiveFiles(fs, PPx.Arguments.Item(0));
var extractFolder = PPx.Arguments.Item(1);
// 個々のファイルごとに7-Zipで展開
for (x in archiveFiles){
if (archiveFiles[x] == ""){
break;}
fn = archiveFiles[x];
ExtractArchive(fs, fn, extractFolder);
}
// レスポンスファイルからファイル名のリストを作成
function GetArchiveFiles(fs, 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;
}
// フォルダを作成して展開
function ExtractArchive(fs, archiveFile, extractFolder)
{
var foldername = extractFolder + '\\' + PPx.Extract('%*name(X,' + archiveFile + ')');
var command = '%Obsq \"' + exec + '\"' + ' x ' + archiveFile + ' -o\"' + foldername + '\"';
// フォルダを作成
PPx.Execute('*makedir ' + foldername);
// 7-Zipで解凍
PPx.Execute(command);
// 二重フォルダの場合は解消する
PPx.Execute('*chopdir ' + foldername);
}
KC_main = { ; PPcメイン窓
\M ,*file move,%*extract(~"%%@*8FCDN"),%1
\C ,*file copy,%*extract(~"%%@*8FCDN"),%1
}
//!*script
// 実行元のPPcIDを文字コードに変換
var useppc = PPx.Extract('%n').slice(1).charCodeAt(0) + 1;
// 実行元PPcよりアルファベット順で後のPPcがあればフォーカスを移す
for (var i = useppc; i < 91; i++) {
ppcid = String.fromCharCode(i);
if (PPx.Extract('%NC' + ppcid).match(/.+/)) {
PPx.Execute("*focus C" + ppcid);
PPx.Quit(-1);
}
}
// 無ければPPvにフォーカス
for (var i = 65; i < 91; i++) {
ppvid = String.fromCharCode(i);
if (PPx.Extract('%NV' + ppvid).match(/.+/)) {
PPx.Execute("*focus V" + ppvid);
PPx.Quit(-1);
}
}
// PPvが無ければ通常のTabの動作
PPx.Execute("%K\"@F6\"");
//!*script
// 実行元のPPvIDを文字コードに変換
var useppv = PPx.Extract('%n').slice(1).charCodeAt(0) + 1;
// 実行元PPvよりアルファベット順で後のPPvがあればフォーカスを移す
for (var i = useppv; i < 91; i++) {
ppvid = String.fromCharCode(i);
if (PPx.Extract('%NV' + ppvid).match(/.+/)) {
PPx.Execute("*focus V" + ppvid);
PPx.Quit(-1);
}
}
// 無ければPPcにフォーカス
for (var i = 65; i < 91; i++) {
ppcid = String.fromCharCode(i);
if (PPx.Extract('%NC' + ppcid).match(/.+/)) {
PPx.Execute("*focus C" + ppcid);
PPx.Quit(-1);
}
}
// PPcが無ければPPcを起動
PPx.Execute("*ppc -bootid:A -r");
KC_main = { ; PPcメイン窓
TAB ,*script %0\Script\PPcTab.js
}
KV_main = { ; PPvメイン窓
TAB ,*script %0\Script\PPvTab.js
}
//!*script
// 最初のディレクトリ→最初のファイル→最後のファイルとカーソルを移す
// カーソルが最後なら最初に移す
if (PPx.EntryIndex == PPx.EntryAllCount - 1) {
PPx.EntryIndex = 2;}
// カーソルがディレクトリ上の場合
else if (PPx.EntrySize == 0) {
for (var i = 0; i < PPx.EntryAllCount; i++) {
// ファイルがあれば最初のファイルへ移す
if (PPx.Entry(i).Size != 0) {
PPx.EntryIndex = i;
break;
}
// ディレクトリのみなら最後へ移す
else {PPx.EntryIndex = PPx.EntryAllCount;}
}}
// カーソルがファイル上の場合は最後へ移す
else {PPx.EntryIndex = PPx.EntryAllCount;}
KC_main = { ; PPcメイン窓
^E ,*script %0\Script\cursormove.js
}
//!*script
//カレントディレクトリに一行目とファイルパスを対応させたコメントファイル(00_INDEX.txt)を作成
var strLine = "\n";
var currentDir = PPx.Extract('%1');
for (var i = 0; i < PPx.EntryAllCount; i++) {
// サイズが0のファイルとディレクトリは読み込まない
if (PPx.Entry(i).Size == 0) {
}
// 拡張子がtxtとhowmのファイルを読み込む
else if (PPx.Entry(i).Name.match(/.txt$|.howm$/i)) {
var entryName = PPx.Entry(i).Name;
var objItem = currentDir + "\\" + entryName;
var objFileSys = new ActiveXObject("Scripting.FileSystemObject");
// ファイルの内容を取得
objInFile = objFileSys.OpenTextFile(objItem, 1);
// ファイル名＋Tab＋一行目の最初二文字～100字を切り取ったもの＋改行をstrに代入
str = entryName + "\t" + objInFile.ReadLine().slice( 2,100 ) + "\n";
strLine = strLine + str;
objInFile.Close();
}
}
// カレントディレクトリに00_INDEX.txtを作成
strCreateFile = objFileSys.BuildPath(currentDir,"00_INDEX.txt");
objFileSys.CreateTextFile(strCreateFile);
// 00_INDEX.txtに書き込み
objOutFile = objFileSys.OpenTextFile(strCreateFile, 2);
objOutFile.Write(strLine);
objOutFile.Close();
// F5で更新
PPx.Execute("%K\"@[F5]\"")