Macro/投稿/169 の変更点

http://sakura.qp.land.to/?Macro%2F%C5%EA%B9%C6%2F169


Top > Macro > 投稿 > 169
  • 追加された行はこの色です。
  • 削除された行はこの色です。
  • Macro/投稿/169 へ行く。

* ステップ数指定の連番出力 [#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

    ホーム 一覧 単語検索 最終更新 バックアップ リンク元   ヘルプ   最終更新のRSS