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