Prexsoft : 便利な使い方

// マクロファイル名 : autoshutdown.fsl
{
  if( YesnoBox("本当にシャットダウンしてもいいですか") != "YES" ) {
    stop;
  }

  SetId("xxxx");                   // LinuxマシンのユーザーID
  SetPassword("xxxxxxxx");         //              パスワード
  TelnetOpen("xxx.xxx.xxx.xxx");   // LinuxマシンのIPアドレス
  MacroExecute("unixlogin.fsl");   // このマクロでLinux にログイン

  TelnetSend("su - root\n");       // ログインできたら、スーパーユーザーに変身
  TelnetWait("Password: ");
  TelnetSend("xxxxxxxx\n");        // スーパーユーザーのパスワード送信
  TelnetWait("# ")
  TelnetSend("sync\n");            // ディスク書き出し
  TelnetWait("# ")
  TelnetSend("shutdown -h now\n"); // Linuxマシンをシャットダウン
  TelnetWait("# ")
  TelnetClose();                   // 一応クローズしておきます

  Poweroff();                      // Windows マシンをシャットダウンします
                                   // Poweroff()で電源が切れない場合は、
                                   // Shutdown()を使ってみてください

  exit;                            // 「FileShelf Plus」プロセスを終了します
}

// マクロファイル名 : unixlogin.fsl
{
  $prompt = "$ ";
again:
  if( GetId() == "" ) {
      InputBox($a,"User ID :");
      if( $a == "" ) {
          end;
      }
      SetId($a);
  }

  if( GetPassword() == "" ) {
      InputBox($a,"Password :");
      if( $a == "" ) {
          end;
      }
      SetPassword($a);
  }

  OpenConnectMessage("UNIX login...");
  SetTimer(60);
  while(1) {
      switch() {
          case("Last login:")
              break;
          case("login:")
              TelnetSend( GetId()+"\n");
              break;
          case("Password: ")
              TelnetSend( GetPassword()+"\n");
              break;
          case("Login incorrect")
              SetId("");
              SetPassword("");
              CloseMessage();
              goto again;
          case($prompt);
              TelnetSend("stty rows "+GetTermRows()+"\n");
              TelnetWait($prompt);
              TelnetSend("stty columns "+GetTermColumns()+"\n");
              TelnetWait($prompt);
              goto endlogin;
          case(TIMEOUT)
              TelnetClose();
              goto endlogin;
      }
  }
endlogin:
  KillTimer();
  CloseMessage();
}

// マクロファイル名 : hpupdate.fsl
{
  FtpSetType("BIN");                  // バイナリモードを指定します
  SetId("xxxxxxx");                   // FTPサーバのユーザーID
  SetPassword("xxxxxxxx");            // FTPサーバのパスワード
                                      // FTPサーバをオープン
  if( FtpOpen("xxx.xxx.xxx.xxx") != TRUE ) {
      MessageBox("FTPオープン失敗");  // 失敗した場合は失敗メッセージ
      end;
  }
  ChDir("C:\My Documents\homepage");  // ホームページのファイルを置いているローカルフォルダの場所を指定
  FtpChDir("/html");                  // アップロード先の場所を指定
  FtpPut("home\","UPDATE");           // home フォルダ配下のファイルを全てアップロード
                                      // (名前に \ を付けると、フォルダとして扱います)
                                      // "UPDATE"モードを指定すると、新しいファイルのみアップロードします
  FtpClose();                         // アップロードが完了してクローズ
  MessageBox("ホームページ更新完了"); // 完了メッセージ
}

// マクロファイル名 : hidenet.fsl
{
  $a=GetFirstSelectedUrlPath();
  while( $a != "" ) {
    ShellExecute ("C:\Program Files\Hidemaru\Hidemaru.exe",$a)
    $a=GetNextSelectedUrlPath();
  }
}

// マクロファイル名 : viewftpfile.fsl
// Ftpサイトのファイルをフルパス名を指定して見る
{
  $tmpdir="c:\work";
  InputBox($dir2,"フルパス名を入力");
  if( $dir2 == "" ) {
    end;
  }

  $n=0;
  $len=StrLength($dir2);
  while($n<$len) {
    if( StrMid($dir2,$n,1) == "/" ) {
        $last=$n;
    }
    $n=$n+1;
  }

  // ディレクトリとファイル名に分ける
  $dir = StrLeft( $dir2, $last);
  $last=$last+1;
  $file = StrMid( $dir2, $last);

  SetId("xxxxxxxx");                  // FTPサーバのユーザーID
  SetPassword("xxxxxxxx");            // FTPサーバのパスワード
  if( FtpOpen("xxx.xxx.xxx.xxx") != TRUE ) {
    MessageBox("FTPオープン失敗");  // 失敗した場合は失敗メッセージ
    end;
  }

  ChDir($tmpdir);
  FtpChDir($dir);
  FtpGet($file,"OVERWRITE");
  FtpClose();

  $text = StrAppend($tmpdir+"\"+$file);
  ViewText($text);
}

// マクロファイル名 : newfolderdate.fsl
{
  $FolderName = StrAppend ("%CurrentDirectory%\\"+GetDate());
  MkDir ($FolderName);
}

// マクロファイル名 : newtextdate.fsl
{
  $FileName = StrAppend ("%CurrentDirectory%\\"+GetDate()+" "+StrLeft(GetTime(),4)+".txt");
  OpenFile ($FileName,"WRITE");
  CloseFile();
  ViewText ($FileName);
}

// マクロファイル名 : sqlplus.fsl
// SQLの実行結果を見る
{
  $LogFile = "C:\Temp\sql.log";
  $a = FindFirstFile ($LogFile);
  if ( $a != "" ) {
      DeleteFile ($LogFile);
  }

  LogStart ($LogFile);
  SetId ("xxxxxxxx");
  SetPassword ("xxxxxxxx");
  TelnetOpen ("xxx.xxx.xxx.xxx");
  MacroExecute ("unixlogin.fsl");
  TelnetSend ("sqlplus xxxxxxxx/xxxxxxxx\n");
  TelnetWait ("SQL> ");
  TelnetSend ("set linesize "+GetTermColumns()+"\n");
  TelnetWait ("SQL> ");
  TelnetSend ("set pagesize 10000\n");
  TelnetWait ("SQL> ");
  TelnetSend ("select * from dual;\n");
  TelnetWait ("SQL> ");
  TelnetSend ("exit\n");
  TelnetClose();
  LogStop();
  ViewText ($LogFile);
}

// マクロファイル名 : sqlplus.fsl
// SQLの実行結果を見る
// メンバーとの等価性をテストするサンプル
{
  $LogFile = "C:\Temp\sql.log";
  $a = FindFirstFile ($LogFile);
  if ( $a != "" ) {
      DeleteFile ($LogFile);
  }

  LogStart ($LogFile);
  SetId ("xxxxxxxx");
  SetPassword ("xxxxxxxx");
  TelnetOpen ("xxx.xxx.xxx.xxx");
  MacroExecute ("unixlogin.fsl");
  TelnetSend ("sqlplus xxxxxxxx/xxxxxxxx\n");
  TelnetWait ("SQL> ");
  TelnetSend ("set linesize "+GetTermColumns()+"\n");
  TelnetWait ("SQL> ");
  TelnetSend ("set pagesize 10000\n");
  TelnetWait ("SQL> ");
  TelnetSend("select * from emp where name in (\n");

  // 値が列挙されたテキストファイルを開く
  OpenFile ("C:\Temp\list.txt","READ")
  $out="";
  $rc=1;
  while( $rc == 1 ) {
      $rc = GetsFile( $str );       // 1行読み込む
      $i = StrFind( $str, "\r\n");  // 末尾の改行コードを削除する
      if( $i >= 0 ) {
          $str = StrLeft( $str, $i);
      }

      if( $rc == 1 ) {              // 正常に読み込めた場合
          if( $out != "" ) {
              TelnetSend(",\n");
          }

          TelnetSend("'"+$str+ "'");
          $out = $str;
      }
      else {                        // ファイルの終端の場合
          TelnetSend(");\r\n");
      }
  }
  CloseFile();

  TelnetWait ("SQL> ");
  TelnetSend ("exit\n");
  TelnetClose();
  LogStop();
  ViewText ($LogFile);
}

	タイトル	コマンドライン
外部ツール1	Bz	“C:\Program Files\bz\Bz.exe” %1

	タイトル	コマンドライン
外部ツール1	grep	“C:\Program Files\Hidemaru\Hidemaru.exe” /g,”.”,%Input%

	タイトル	コマンドライン
外部ツール1	grep	“C:\Program Files\EmEditor3\EMEDITOR.EXE” /fi %Input% “%CurrentDirectory%\.”