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

2017年12月22日

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

2017年12月22日 (金) 22:00 in サクラエディタ

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;