Macro/投稿/169

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


Top > Macro > 投稿 > 169

ステップ数指定の連番出力

  • ページ: 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


URL B I U SIZE Black Maroon Green Olive Navy Purple Teal Gray Silver Red Lime Yellow Blue Fuchsia Aqua White

リロード   新規 編集 凍結 差分 添付 複製 名前変更   ホーム 一覧 単語検索 最終更新 バックアップ リンク元   ヘルプ   最終更新のRSS
Last-modified: 2007-05-02 (水) 18:17:54 (4240d)