Macro/投稿/73

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


Top > Macro > 投稿 > 73

固定タブ位置移動

  • ページ: Macro/投稿
  • 作者: りーや?
  • カテゴリー: pls
  • 投稿日: 2005-11-20 (日) 23:29:37

メッセージ

  • 前方
      0
      1
      2
      3
      4
      5
      6
      7
      8
      9
     10
     11
     12
     13
    
    # 固定タブ位置で前方移動  PrevTab.pls
    @TabPos = (7, 8, 12, 40, 73);        # Tab位置を昇順に指定
    $CurCol = 0 + ExpandParameter('$x');        # 現在の桁位置(col)
    @WkList = grep {$_ < $CurCol} @TabPos;
    $NextPos = pop @WkList;
    if($NextPos){
      for($i=0; ($CurCol - $i) > $NextPos; $i++) {
        Left();        # カーソル左移動
      }
    } else {
      GoLineTop(0);        # 行頭に移動(折り返し単位)
      Left();        # カーソル左移動
    }
    #...............................................................................
    
  • 後方
      0
      1
      2
      3
      4
      5
      6
      7
      8
      9
     10
     11
     12
     13
     14
     15
     16
     17
     18
     19
     20
     21
     22
     23
     24
     25
     26
    
    # 固定タブ位置で後方移動  NextTab.pls
    @TabPos = (7, 8, 12, 40, 73);        # Tab位置を昇順に指定
    MoveHistSet();        # 現在位置を移動履歴に登録
    $CurCol = 0 + ExpandParameter('$x');        # 現在の桁位置(col)
    GoLineEnd();        # 行末に移動(折り返し単位)
    $EndCol = 0 + ExpandParameter('$x');        # 現在の桁位置(col)
    MoveHistPrev();        # 移動履歴:前へ
    @WkList = grep {$_ > $CurCol} @TabPos;
    $NextPos = shift @WkList;
    if($NextPos){
      if($NextPos >= $EndCol) {
        GoLineEnd();        # 行末に移動(折り返し単位)
        if($NextPos > $EndCol) {
          $blanks = sprintf('%' . ($NextPos - $EndCol) . 's', ' ');
          InsText($blanks);        # テキストを貼り付け
        }
      } else {
        for($i=0; ($i + $CurCol) < $NextPos; $i++) {
          Right();        # カーソル右移動
        }
      }
    } else {
      GoLineEnd();        # 行末に移動(折り返し単位)
      Right();        # カーソル右移動
    }
    #...............................................................................
    #...............................................................................
    


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

リロード   新規 編集 凍結 差分 添付 複製 名前変更   ホーム 一覧 単語検索 最終更新 バックアップ リンク元   ヘルプ   最終更新のRSS
Last-modified: 2006-07-30 (日) 00:46:20 (6452d)