home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 2001 June / VPR0106A.BIN / OLS / FSC202 / fsc202.lzh / SeaStr.fxl < prev    next >
Text File  |  2001-03-25  |  2KB  |  98 lines
  1. //---------------------------------------------------------------
  2. // FxEditor Macro Type1 : FxEditor Macro File
  3. //---------------------------------------------------------------
  4. //                                Author : 
  5. //                                Upadte : 00/12/07 15:25:31
  6. //.                            Generator : FXL designer v1.02
  7. //---------------------------------------------------------------
  8. //---------------------------------------------------------------
  9.  
  10. // == 前処理 ==
  11.  
  12.  
  13. // == フォーム作成 ==
  14.     main.add();
  15.     main.taskbar=true;
  16.  
  17. // == オブジェクト生成 ==
  18.     main.width="399";
  19.     main.height="174";
  20.     main.caption="FXL Macro Program";
  21.  
  22.     main.label.add();    //object
  23.     main.label.top="18";
  24.     main.label.left="32";
  25.     main.label.width="260";
  26.     main.label.height="12";
  27.     main.label.caption="ファイルに含まれている特定文字列をカウントします";
  28.  
  29.     main.label.add();    //object
  30.     main.label.top="42";
  31.     main.label.left="38";
  32.     main.label.width="203";
  33.     main.label.height="12";
  34.     main.label.caption="カウントしたいファイルをDropしてください";
  35.  
  36.     main.editbox.add();    //object
  37.     main.editbox.top="69";
  38.     main.editbox.left="25";
  39.     main.editbox.width="330";
  40.     main.editbox.height="20";
  41.  
  42.     main.btn.add();    //object
  43.     main.btn.top="103";
  44.     main.btn.left="251";
  45.     main.btn.width="100";
  46.     main.btn.height="21";
  47.     main.btn.caption="カウント開始";
  48.  
  49.     main.editbox.add();    //object
  50.     main.editbox.top="104";
  51.     main.editbox.left="86";
  52.     main.editbox.width="150";
  53.     main.editbox.height="20";
  54.  
  55.     main.label.add();    //object
  56.     main.label.top="108";
  57.     main.label.left="31";
  58.     main.label.width="36";
  59.     main.label.height="12";
  60.     main.label.caption="文字列";
  61.  
  62.  
  63. // == 後処理 ==
  64.     main.deffunc.set(macro.body);
  65.     main.move("center","/step=0");
  66.     main.visible="true";
  67.  
  68. // == サブルーチン ==
  69. function OnDrop()
  70. {
  71.     if (file.type(arg(1))=="normal") {
  72.         main.editbox(1).text=arg(1);
  73.     }
  74. }
  75.  
  76. function OnBtnClick1()
  77. {
  78.     if (main.editbox(2).text=="") {
  79.         alert("検索文字を入力してください");
  80.         return;
  81.     }
  82.     x.readfile(main.editbox(1).text);
  83.  
  84.     //文字数のカウント
  85.     a = x.replace(main.editbox(2).text,main.editbox(2).text);
  86.  
  87.     //ついでにファイルの行数も求める
  88.     x.topline();
  89.     count=0;
  90.     while (x.take()=="true") {
  91.         count = eval("count+1");
  92.     }
  93.     
  94.     alert(str("ファイルは",count,"行ありました"),str("検索文字は",a,"個ありました"));
  95. }
  96.  
  97.  
  98.