添付ファイルの情報



[添付ファイル一覧] [全ページの添付ファイル一覧]

fileCopyLines.js (backup No.1)
格納ファイル名:attach/4D6163726F2FC5EAB9C62F323434_436F70794C696E65732E6A73.1
ページ:Macro/投稿/244
格納ファイル名:attach/4D6163726F2FC5EAB9C62F323434_436F70794C696E65732E6A73.1
MD5ハッシュ値:1cdd46958867f8e14d1f034adcff3e4b
サイズ:1.8KB (1869 bytes)
Content-type:application/octet-stream
登録日時:2017/06/18 10:45:57
アクセス数:28
MD5ハッシュ値:1cdd46958867f8e14d1f034adcff3e4b
fileCopyLines.js
  0
  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
main();
function main() {
 
  var a1;
  var a2;
  var a3;
  var loop = 0;
  var inp = ExpandParameter("$C"); // InputBoxの初期値
  var tex = ""; // 指定文字を格納
  var line = ExpandParameter("$y"); // 現在位置の行数を取得
  var WshShell    = new ActiveXObject("WScript.Shell");
 
  //JScriptからVBSのInputBox関数を実行
  var oSC = new ActiveXObject("ScriptControl");
  oSC.Language = "VBScript";
  var sFunc = 'Function InBox(prompt, title, default)\n';
  sFunc += '  InBox = InputBox(prompt, title, default)\n';
  sFunc += 'End Function\n';oSC.AddCode(sFunc);
  var tex = oSC.Run ( "InBox" , "文字を指定" , "指定した文字を含む行をコピー" , inp );
  if(tex=="") return;
  if(typeof tex =="undefined") return;
 
  GoFileTop(); // ファイルの先頭に移動
  SearchNext ( tex , 16 ); // 指定文字を検索
 
  if ( GetSelectedString() != tex ) { // 指定文字が見つからなかったら
    WshShell.Popup( "\'" + tex + "\'" + "は一つも見つかりませんでした。" , 0 , "Sakura"); // メッセージを表示
  }
 
  else { // 指定文字が見つかったら
    SelectLine(); // 1行選択
    a1 = GetSelectedString(); // 選択範囲を取得
 
    while ( loop == 0 ) { // 検索ループ
      SearchNext ( tex , 16 ); // 指定文字を検索
 
      if ( GetSelectedString() == tex ) { // 指定文字が見つかったら
        SelectLine(); // 1行選択
        a2 = GetSelectedString(); // 選択範囲を取得
        a3 = a1 + a2; // 取得した行を注ぎ足す
        a1 = a3;
      }
 
      else { // 指定文字が見つからなかったら
        SetClipboard ( 0 , a1 ); // 取得した行をクリップボードヘ
        break; // ループ終了
      }
    }
 
  // whileループ終了後の動作
  Jump ( line , 1 ); // 指定行へジャンプ(初期位置に戻る) 
  SearchClearMark(); // 検索マークのクリア
  ReDraw(); // 再描画
  }
}




    ホーム 一覧 単語検索 最終更新 バックアップ リンク元   ヘルプ   最終更新のRSS