サクラエディタふぁんくらぶ part8

サクラエディタふぁんくらぶ part8at SOFTWARE

サクラエディタふぁんくらぶ part8 - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

663:662
 07/04/29 12:58:08 dbQCvgbB0
ステップ数が必要理由はローダーによっては+1になってない 
+5になってたりするものがあるからです。 
 
// 実行には PPA.DLL が必須です。sakura.exe と同じフォルダに PPA.DLL を入れておいてください。 
// マクロファイルの拡張子は .PPA でなくてはなりません。 
 
// マクロを実行する回数を入力するダイアログを出し、 
// そこで指定された回数マクロを実行する。 
 
var 
        cnt,max:Integer;        // 整数数値型変数 cnt と max を用意する 
begin 
 
        max := StrToInt( InputBox('マクロ実行','マクロを実行する回数を入力して下さい。','') ); 
 
        for cnt := 1 to max do        begin        // { 
 
                // ここに指定回数実行したい内容を書き込む 
                S_InsText( IntToStr(cnt) + '回目の文字列出力です。'); 
                S_Char(13);                // 改行する 
 
        end;        // } 
end;

664:名無しさん＠お腹いっぱい。
 07/04/29 15:57:50 Bcai5wiB0
>>662 
下記を、拡張子 .vbs で保存 
 
main 
sub main() 
 dim iStart, iEnd, iStep, sWork 
 iStart = CLng(InputBox("開始の数を入力して下さい。","連番出力","1")) 
 iEnd   = CLng(InputBox("終了の数を入力して下さい。","連番出力","1")) 
 iStep  = CLng(InputBox("ステップ数を入力して下さい。","連番出力","1")) 
 if iStep=0 then exit sub 
 if Abs((iEnd-iStart)/iStep)>10000 then exit sub 
 sWork = "" 
 for i = iStart to iEnd step iStep 
  sWork = sWork & CStr(i) & VbCrLf 
 next 
 InsText(sWork) 
end sub

次ページ