Macro/投稿/80
をテンプレートにして作成
Land.to
[
ホーム
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
]
開始行:
* Diff差分のブロック単位移動 [#b876a549]
-ページ: [[Macro/投稿]]
-作者: [[maru]]
-カテゴリー: vbs
-投稿日: 2006-02-22 (水) 00:13:30
** メッセージ [#xefbf72b]
差分行が何行も連続しているとき、何回も「次の差分へ移動」...
-次の差分へ
#code(vbscript){{
' DiffNextBlock.vbs From Here --------------------------
' 連続した差分を飛ばしてブロック単位に移動
Do
lngBefore = ExpandParameter("$y")
DiffNext()
Loop While CLng(lngBefore) + 1 = CLng(ExpandParameter("$y...
' DiffNextBlock.vbs To Here --------------------------
}}
-前の差分
#code(vbscript){{
' DiffPrevBlock.vbs From Here ---------------------------...
' 次の差分へ(ブロック単位で移動)の逆動作
Call Main
Sub Main
lngBefore = ExpandParameter("$y")
DiffPrev()
If CLng(lngBefore) = CLng(ExpandParameter("$y")) Then...
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 -------------------------------
}}
----
#comment
終了行:
* Diff差分のブロック単位移動 [#b876a549]
-ページ: [[Macro/投稿]]
-作者: [[maru]]
-カテゴリー: vbs
-投稿日: 2006-02-22 (水) 00:13:30
** メッセージ [#xefbf72b]
差分行が何行も連続しているとき、何回も「次の差分へ移動」...
-次の差分へ
#code(vbscript){{
' DiffNextBlock.vbs From Here --------------------------
' 連続した差分を飛ばしてブロック単位に移動
Do
lngBefore = ExpandParameter("$y")
DiffNext()
Loop While CLng(lngBefore) + 1 = CLng(ExpandParameter("$y...
' DiffNextBlock.vbs To Here --------------------------
}}
-前の差分
#code(vbscript){{
' DiffPrevBlock.vbs From Here ---------------------------...
' 次の差分へ(ブロック単位で移動)の逆動作
Call Main
Sub Main
lngBefore = ExpandParameter("$y")
DiffPrev()
If CLng(lngBefore) = CLng(ExpandParameter("$y")) Then...
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 -------------------------------
}}
----
#comment
ページ名: