Macro/投稿/80

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


Top > Macro > 投稿 > 80

Diff差分のブロック単位移動

  • ページ: Macro/投稿
  • 作者: maru
  • カテゴリー: vbs
  • 投稿日: 2006-02-22 (水) 00:13:30

メッセージ

差分行が何行も連続しているとき、何回も「次の差分へ移動」しないといけなくて大変です。このマクロでは、連続した差分行を飛ばして次の差分の先頭に移動します。

  • 次の差分へ
      0
      1
      2
      3
      4
      5
      6
    
    ' DiffNextBlock.vbs From Here --------------------------
    ' 連続した差分を飛ばしてブロック単位に移動
    Do
        lngBefore = ExpandParameter("$y")
        DiffNext()
    Loop While CLng(lngBefore) + 1 = CLng(ExpandParameter("$y"))
    ' DiffNextBlock.vbs To Here --------------------------
    
  • 前の差分
      0
      1
      2
      3
      4
      5
      6
      7
      8
      9
     10
     11
     12
     13
     14
     15
     16
     17
     18
     19
     20
     21
    
    ' DiffPrevBlock.vbs From Here -------------------------------
    ' 次の差分へ(ブロック単位で移動)の逆動作
    Call Main
    Sub Main
        lngBefore = ExpandParameter("$y")
        DiffPrev()
        If CLng(lngBefore) = CLng(ExpandParameter("$y")) Then Exit Sub
     
        Do While (1)
            lngBefore = ExpandParameter("$y")
            DiffPrev()
            Select Case CLng(ExpandParameter("$y"))
            Case CLng(lngBefore)
                Exit Sub
            Case CLng(lngBefore) - 1
            Case Else
                DiffNext()
                Exit Do
            End Select
        Loop
    End Sub
    ' DiffPrevBlock.vbs To Here -------------------------------
    


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:55:21 (4521d)