* ステップ数指定の連番出力 [#n6752c2b]
-ページ: [[Macro/投稿]]
-作者: [[664@FC8]]
-カテゴリー: vbs
-投稿日: 2007-05-02 (水) 18:17:54
** メッセージ [#f2fc0bc2]
*** 662 :名無しさん@お腹いっぱい。:2007/04/29(日) 12:55:07 ID:dbQCvgbB0 [#u5e58668]
高スキルの方がいらっしゃるらしいので、お力をお貸しください
サクラエディタのマクロ集
http://www.geocities.jp/maru3128/sakura_bbs.html
の「マクロを指定回数繰り返し実行」を使って連番を作るのに利用しています
例)ローダーのDLURLのjpgの連番を作ったりする用途に
が、このままでは1から始まるのと+1ずつなので使えないので
中身に直接「開始数値」と「ステップ数値」を書き込んだりしてやってますが
デフォで「繰り返し回数」が窓が出て聞いてくるように
「開始数値」と「ステップ数値」も窓が出て入力できるように改良できないでしょうか?
*** 664 :名無しさん@お腹いっぱい。:2007/04/29(日) 15:57:50 ID:Bcai5wiB0 [#a9f3048f]
~>>662
下記を、拡張子 .vbs で保存
#code(VBScript){{
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
}}
----
#comment