Macro/投稿/30

  0
  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20

//PPAマクロ
var
str,str1,str2:String;
begin
    str1 := S_ExpandParameter('$f');
    str2 := S_ExpandParameter('$g');
    if ( (Length(str1) - Length(str2)) > 1) then str:=Copy(str1,Length(str2) + 1,Length(str1) - Length(str2));
    S_MoveHistSet(0);   // 現在位置を移動履歴に登録
    if (str = '.c') or (str = '.cpp') or (str = '.h') then
    begin
        S_ReplaceAll('^.', '//$&', 148);    // 選択範囲の行頭を // に置換する。
    end;
    if (str = '.tex') then
    begin
        S_ReplaceAll('^.', '%$&', 148); // 選択範囲の行頭を // に置換する。
    end;
    S_CancelMode(0);        // 各種モードの取り消し     選択状態を解除する。[Esc]キーと一緒。
    S_SearchClearMark(0);   // 検索マークの切替え
    S_MoveHistPrev(0);  // 移動履歴: 前へ
    S_ReDraw(0);    // 再描画
end;