//  --------------------------------------------------------
//  RUN  ver 2.0
//      by 細山 直樹 ／ ほっしー (hossy.mail@popup.org)
//  --------------------------------------------------------
//    いろいろと便利なショートカット集(^^;
//  --------------------------------------------------------

// 設定
$dmmonth = "G:\\Data\\INet\\hossy\\ttcn\\diary\\diary" 
          + rightstr(year,2) + rightstr(month,1) + ".html";
$diaryend = "<!--日記ここまで-->";


menu "( &A ) ",
   "( &B ) ブラウザ表示",
   "( &C ) 今月の日記オープン",
   "( &D ) 日記最新版オープン",
   "( &E ) エクスプローラ表示",
   "( &F ) ",
   "( &G ) ",
   "( &H ) ",
   "( &I ) index.htmlオープン",
   "( &J ) ",
   "( &K ) ",
   "( &L ) メモフォルダ表示",
   "( &M ) メモ表示",
   "( &N ) マクロフォルダ表示",
   "( &O ) ",
   "( &P ) 親index.htmlオープン",
   "( &Q ) ",
   "( &R ) run.macオープン",
   "( &S ) 一日分日記をログに移動",
   "( &T ) 更新日時入力(自分)",
   "( &U ) 電電index.htmlオープン",
   "( &V ) 更新日時挿入(表紙)",
   "( &W ) 日付一括入力",
   "( &X ) ",
   "( &Y ) ",
   "( &Z ) ";

##res = result;
// if ( ##res == 0 ) call SubEnd;
if ( ##res == 1 )  call SubA;
if ( ##res == 2 )  call SubB;
if ( ##res == 3 )  call SubC;
if ( ##res == 4 )  call SubD;
if ( ##res == 5 )  call SubE;
if ( ##res == 6 )  call SubF;
if ( ##res == 7 )  call SubG;
if ( ##res == 8 )  call SubH;
if ( ##res == 9 )  call SubI;
if ( ##res == 10 ) call SubJ;
if ( ##res == 11 ) call SubK;
if ( ##res == 12 ) call SubL;
if ( ##res == 13 ) call SubM;
if ( ##res == 14 ) call SubN;
if ( ##res == 15 ) call SubO;
if ( ##res == 16 ) call SubP;
if ( ##res == 17 ) call SubQ;
if ( ##res == 18 ) call SubR;
if ( ##res == 19 ) call SubS;
if ( ##res == 20 ) call SubT;
if ( ##res == 21 ) call SubU;
if ( ##res == 22 ) call SubV;
if ( ##res == 23 ) call SubW;
if ( ##res == 24 ) call SubX;
if ( ##res == 25 ) call SubY;
if ( ##res == 26 ) call SubZ;
// ここでおわっちゃう
endmacro;

SubA:
  return;
SubB:
  run "D:\\Program Files\\Internet Explorer\\IEXPLORE.EXE \"" + filename + "\"";
  return;
SubC:
  openfile $dmmonth;
  return;
SubD:
  openfile "G:\\Data\\INet\\hossy\\ttcn\\diary\\index.html";
  return;
SubE:
  run "D:\\WINNT\\explorer.exe /e,\"" + directory + "\"";
  //  openbyshell "\"" + directory + "\\\"";
  return;
SubF:
  return;
SubG:
  return;
SubH:
  return;
SubI:
  openfile "index.html";
  return;
SubJ:
  return;
SubK:
  return;
SubL:
  run "D:\\WINNT\\explorer.exe  /e,\"G:\\Data\\Document\"";
  return;
SubM:
  openfile "G:\\Data\\Document\\" + year + "" + month + "" + day + ".txt";
  return;
SubN:
  run "D:\\WINNT\\explorer.exe  /e,\"" + macrodir + "\"";
  return;
SubO:
  return;
SubP:
  openfile "..\\index.html";
  return;
SubQ:
  return;
SubR:
  openfile macrodir + "\\run.mac";
  return;
SubS:
  // 最新の日記から1日分抽出
  gofileend ;
  searchup $diaryend;
  ##endX = x;
  ##endY = y;
  searchup "<h2 id=";
  beginsel;
  moveto ##endX, ##endY;
  cut;

  // 日記ログにコピー
  openfile $dmmonth;
  gofileend ;
  searchup $diaryend;
  paste;
  insert $diaryend;
  saveexit;
  return;
SubT:
  call SubUpdate;
  return;
SubU:
  openfile "G:\\Data\\INet\\hossy\\vulcan\\ee\\index.html";
  return;
SubV:
  if (filename2 == "G:\\Data\\INet\\hossy\\ttcn\\diary\\index.html") {
    openfile "G:\\Data\\INet\\hossy\\ttcn\\index.html";
    call SubUpdate;
    saveexit;
  }
  else {
    insert year + "/" + month + "/" + day;
  }
  return;
SubW:
  $$a = "日月火水木金土";
  ##b = (35 - val(day) + dayofweeknum) % 7;
  ##c = 31;
  $$d = "\n<!--\n";
  while( ##c > 0 ) {
    $$e = rightstr("0" + str(##c),2);
    $$d = $$d + "<h2 id=\"d" + $$e + "\">" + month + "/" + $$e
       + "(" + midstr($$a,(##b + ##c) % 7 * 2,2) + ") </h2>\n";
    ##c = ##c - 1;
  }
  insert $$d+ "-->\n";
  return;
SubX:
  return;
SubY:
  return;
SubZ:
  return;


// ここから個別関数
SubUpdate:
  $$date1 = "<!--hsdate1-->" + year + "/" + month + "/" + day + "<!--/hsdate1-->";
  $$date2 = "<!--hsdate2-->" + month + "." + day
            + "-" + hour + ":" + minute + "<!--/hsdate2-->";
  $$date3 = "<!--hsdate3-->" + year + "/" + month + "/" + day 
            + " " + hour + ":" + minute + "<!--/hsdate3-->";
  replaceallfast "<!--hsdate1-->.*<!--/hsdate1-->", $$date1, regular;
  replaceallfast "<!--hsdate2-->.*<!--/hsdate2-->", $$date2, regular;
  replaceallfast "<!--hsdate3-->.*<!--/hsdate3-->", $$date3, regular;
  return;