home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 2001 June / VPR0106A.BIN / OLS / FSC202 / fsc202.lzh / Melt.fxl < prev    next >
Text File  |  2001-03-14  |  3KB  |  159 lines
  1. //       Name : 
  2. //     Author : 
  3. //     Upadte : 01/02/26 20:43:39
  4. //  Generator : FXL designer for FScript v1.00
  5.  
  6. // == 前処理 ==
  7.  
  8.  
  9. // == フォーム作成 ==
  10.     main.add();
  11.     main.taskbar=true;
  12.  
  13. // == オブジェクト生成 ==
  14.     main.width="337";
  15.     main.height="345";
  16.     main.caption="FXL Macro Program";
  17.  
  18.     main.listbox.add(17,38,294,154);  //object
  19.  
  20.     main.label.add(17,15,65,12);  //object
  21.     main.label.caption="ファイル一覧";
  22.  
  23.     main.btn.add(20,263,52,24);  //object
  24.     main.btn.caption="解凍";
  25.  
  26.     main.btn.add(75,263,52,24);  //object
  27.     main.btn.caption="削除";
  28.  
  29.     main.btn.add(130,263,52,24);  //object
  30.     main.btn.caption="閲覧";
  31.  
  32.     main.editbox.add(17,228,294,20);  //object
  33.  
  34.     main.label.add(27,211,79,12);  //object
  35.     main.label.caption="解凍先フォルダ";
  36.  
  37.  
  38. // == 後処理 ==
  39.     main.editbox.caption=str(sys.winpath,"\\ﾃﾞｽｸﾄｯﾌﾟ");
  40.     main.deffunc.set(macro.body);
  41.     main.move("center","/step=0");
  42.     main.visible="true";
  43.     if (sys.cmdline.length() > 0) {
  44.         OnDrop(sys.cmdline(1));
  45.     }
  46.  
  47. // == サブルーチン ==
  48. function OnDrop()
  49. {
  50.     if (file.type(arg(1))=="dir") {
  51.         base_fullname = arg(1);
  52.         base_path = file.path(arg(1));
  53.         base_name = file.name(arg(1));
  54.         main.caption=base_fullname;
  55.         y.set(base_fullname);
  56.         len = y.length();
  57.         x.readdir(arg(1),"*.*",true,true);
  58.         main.listbox.text="";
  59.         x.topline();
  60.         while (x.take()=="true") {
  61.             z.set(x.line);
  62.             main.listbox.additem(z.pos(len));
  63.         }
  64.     }
  65. }
  66. function OnBtnClick1()
  67. {
  68.     if (main.listbox.selitem=="") {
  69.         alert("ファイルを選択してください");
  70.         return;
  71.     }
  72.     x.set(main.listbox.selitem);
  73.     x.topline();
  74.     y.set(main.editbox.caption);
  75.     y.trimr("*.\\");
  76.     y.add("\\");
  77.     y.add(base_name);
  78.     while (x.take()=="true") {
  79.         f = str(base_fullname, x.line);
  80.         z.set(x.line);
  81.         z.replace("\\","\\r\\n");
  82.         if (file.copy(f, str(y.pos(),"\\",z(2)))!="true") {
  83.             alert("コピーできませんでした");
  84.             return;
  85.         }
  86.     }
  87.     shell(y.pos());
  88. }
  89. function OnBtnClick2()
  90. {
  91.     if (main.listbox.selitem=="") {
  92.         alert("ファイルを選択してください");
  93.         return;
  94.     }
  95.     x.set(main.listbox.selitem);
  96.     if (confirm(x.pos(),"を削除しますか?") != "Yes") {
  97.         return;
  98.     }
  99.     x.topline();
  100.     y.clear();
  101.     while (x.take()=="true") {
  102.         f = str(base_fullname, x.line);
  103.         if (file.delete(f)!="true") {
  104.             y.addline(f);
  105.         }
  106.     }
  107.     if (y.length() > 0) {
  108.         alert(y.pos(),"は削除できませんでした");
  109.     }
  110.     OnDrop(base_fullname);
  111. }
  112. function OnBtnClick3()
  113. {
  114.     if (main.listbox.selitem=="") {
  115.         alert("ファイルを選択してください");
  116.         return;
  117.     }
  118.     x.set(main.listbox.selitem);
  119.     x.topline();
  120.     if (x.take()=="true") {
  121.         ViewFile = str(base_fullname, x.line);
  122.         y.readfile(ViewFile);
  123.         //重要！以下の行でスコープが変更されるので注意！
  124.         main.add(0,0,600,400);
  125.         main.taskbar=true;
  126.         main.caption=ViewFile;
  127.         main.btn.add(30,10,50,24);    //object
  128.         main.btn.caption="保存";
  129.         main.memo.add(10,44,550,320);
  130.         main.move("center","/step=0");
  131.         main.memo.lines=y.pos();
  132.         main.visible="true";
  133.         main.deffunc.set("function OnBtnClick1()\r\n");
  134.         main.deffunc.addline("{");
  135.         main.deffunc.addline("y.set(main.memo.lines);");
  136.         main.deffunc.addline("if (y.savefile(ViewFile)==true) {");
  137.         main.deffunc.addline("alert(\"保存しました\");");
  138.         main.deffunc.addline("}");
  139.         main.deffunc.addline("}");
  140.         return;
  141.     }
  142. }
  143.  
  144.  
  145.  
  146.  
  147.  
  148.  
  149.  
  150.  
  151.  
  152.  
  153.  
  154.  
  155.  
  156.  
  157.  
  158.  
  159.