【サクラエディタ】1から順番に数字を縦に出力するマクロ



1から順番に数字を縦に出力するマクロを作ってみました。

こんなマクロ、何の役に立つんだと思われるかもしれませんが、仕事でたまたまこういう処理が必要だったので作りました。つまり完全に自分用です。(笑)

var
    i : Integer;
    s : String;
    n : Integer;
begin
    s := S_InputBox('数字を入力してください。', '', 3);

    n := StrToInt(s);
    
    for i:=1 to n do begin
        S_InsText(IntToStr(i));
        S_Char(13);
    end;
end;
マクロは、PPAマクロです。
文法はDelphiみたいな感じです。

実行結果


最初にインプットボックスで最大値を入力してOKを押します。


するとこのように1から10までの数字が縦に出力されます。


<関連記事>
【サクラエディタ】矩形選択からの置換
【サクラエディタ】矩形貼り付けを行う
【サクラエディタ】置換マクロを使ってみた


スポンサーリンク



comments powered by Disqus