Visual Studio：ラインを上下に移動し、最近の変更を移動するためのホットキー

Question

EclipseからVisualStudio .NETに移行し、2つを除くすべての最愛のホットキーを見つけました。

• eclipseでは押すことができます ALT-← そして ALT-→ 最近行った変更にアクセスするために、他のファイルにあった場所に戻ってから戻るために頻繁に使用します。どうやらVS.NETでは CTRL-- そして CTRL-SHIFT-- これを実行しますが、常に機能するとは限らず（たとえば、ラップトップでは、マイナスの問題になる可能性があります）、Eclipseで慣れている「どこにいたか」と同じアルゴリズムに従っていないようです。誰かがこれを機能させて毎日頼っていますか？
• eclipseでは、行を上下に移動するには、を押します。 ALT-uparrow または ALT-downarrow 必要な場所に到達するまでコード内を移動するだけです。とてもいいです。また、行のコピーを作成するには、を押すことができます SHIFT-ALT-uparrow または SHIFT-ALT-downarrow。これらのホットキーは両方とも、選択した行のブロックに対しても機能します。

Visual Studio .NETでこれらのホットキー機能を発見した人はいますか？

A D D E N D U M：

上記の2番目の機能を使用する場合の例は、ここで一番下の行をforループに移動することです。 Eclipseでは、Console.WriteLineにカーソルを置き、Alt-（上矢印）を押すと、常にそれを使用します。1回のキーストロークで行を上下に移動します。

for (int i = 0; i < 10; i++) {

}
Console.WriteLine(i);

さて、チャーリーのアイデアをno-selection-ctrl-cで外挿して行を選択すると、Visual StudioでConsole.WriteLineにカーソルを置くことができます（選択なし）を押します。 CTRL-X 上に移動してを押します CTRL-V。

Answer 1

提案された回答は機能しますが、既存の貼り付けバッファー、現在選択されている文字を保持する方法に関してEclipseほど優れているものはなく、ユーザーが行の範囲を操作することはできません。これは、貼り付けバッファーと現在の文字選択を保持し、選択の有無にかかわらず機能する（複数の行にまたがる場合としない場合がある）という私が思いついた解決策です。

'' Duplicates the current line (or selection of lines) and places the copy
'' one line below or above the current cursor position (based upon the parameter)
Sub CopyLine(ByVal movingDown As Boolean)
    DTE.UndoContext.Open("CopyLine")
    Dim objSel As TextSelection = DTE.ActiveDocument.Selection

    ' store the original selection and cursor position
    Dim topPoint As TextPoint = objSel.TopPoint
    Dim bottomPoint As TextPoint = objSel.BottomPoint
    Dim lTopLine As Long = topPoint.Line
    Dim lTopColumn As Long = topPoint.LineCharOffset
    Dim lBottomLine As Long = bottomPoint.Line
    Dim lBottomColumn As Long = bottomPoint.LineCharOffset()

    ' copy each line from the top line to the bottom line
    Dim readLine As Long = lTopLine
    Dim endLine As Long = lBottomLine + 1
    Dim selectionPresent As Boolean = ((lTopLine <> lBottomLine) Or (lTopColumn <> lBottomColumn))
    If (selectionPresent And (lBottomColumn = 1)) Then
        ' A selection is present, but the cursor is in front of the first character
        ' on the bottom line. exclude that bottom line from the copy selection.
        endLine = lBottomLine
    End If

    ' figure out how many lines we are copying, so we can re-position
    ' our selection after the copy is done
    Dim verticalOffset As Integer = 0
    If (movingDown) Then
        verticalOffset = endLine - lTopLine
    End If

    ' copy each line, one at a time.
    ' The Insert command doesn't handle multiple lines well, and we need
    ' to use Insert to avoid autocompletions
    Dim insertLine As Long = endLine
    While (readLine < endLine)
        ' move to read postion, and read the current line
        objSel.MoveToLineAndOffset(readLine, 1)
        objSel.EndOfLine(True) 'extend to EOL
        Dim lineTxt As String = objSel.Text.Clone
        ' move to the destination position, and insert the copy
        objSel.MoveToLineAndOffset(insertLine, 1)
        objSel.Insert(lineTxt)
        objSel.NewLine()
        ' adjust the read & insertion points
        readLine = readLine + 1
        insertLine = insertLine + 1
    End While

    ' restore the cursor to original position and selection
    objSel.MoveToLineAndOffset(lBottomLine + verticalOffset, lBottomColumn)
    objSel.MoveToLineAndOffset(lTopLine + verticalOffset, lTopColumn, True)
    DTE.UndoContext.Close()
End Sub

'' Duplicates the current line (or selection of lines) and places the copy
'' one line below the current cursor position
Sub CopyLineDown()
    CopyLine(True)
End Sub

'' Duplicates the current line (or selection of lines) and places the copy
'' one line above the current cursor position
Sub CopyLineUp()
    CopyLine(False)
End Sub


'' Moves the selected lines up one line. If no line is
'' selected, the current line is moved.
''
Sub MoveLineUp()
    DTE.UndoContext.Open("MoveLineUp")
    Dim objSel As TextSelection = DTE.ActiveDocument.Selection
    ' store the original selection and cursor position
    Dim topPoint As TextPoint = objSel.TopPoint
    Dim bottomPoint As TextPoint = objSel.BottomPoint
    Dim lTopLine As Long = topPoint.Line
    Dim lTopColumn As Long = topPoint.LineCharOffset
    Dim lBottomLine As Long = bottomPoint.Line
    Dim lBottomColumn As Long = bottomPoint.LineCharOffset()

    Dim textLineAbove As TextSelection = DTE.ActiveDocument.Selection
    textLineAbove.MoveToLineAndOffset(lTopLine - 1, 1, False)
    textLineAbove.MoveToLineAndOffset(lTopLine, 1, True)
    Dim indentChange As Integer = CountIndentations(textLineAbove.Text) * -1

    ' If multiple lines are selected, but the bottom line doesn't
    ' have any characters selected, don't count it as selected
    Dim lEffectiveBottomLine = lBottomLine
    If ((lBottomColumn = 1) And (lBottomLine <> lTopLine)) Then
        lEffectiveBottomLine = lBottomLine - 1
    End If

    ' move to the line above the top line
    objSel.MoveToLineAndOffset(lTopLine - 1, 1)
    ' and move it down, until its below the bottom line:
    Do
        DTE.ExecuteCommand("Edit.LineTranspose")
    Loop Until (objSel.BottomPoint.Line >= lEffectiveBottomLine)
    ' Since the line we are on has moved up, our location in the file has changed:
    lTopLine = lTopLine - 1
    lBottomLine = lBottomLine - 1

    IndentBlockAndRestoreSelection(objSel, lBottomLine, lBottomColumn, lTopLine, lTopColumn, indentChange)

    DTE.UndoContext.Close()
End Sub

'' Moves the selected lines down one line. If no line is
'' selected, the current line is moved.
''
Sub MoveLineDown()
    DTE.UndoContext.Open("MoveLineDown")
    Dim objSel As TextSelection = DTE.ActiveDocument.Selection
    ' store the original selection and cursor position
    Dim topPoint As TextPoint = objSel.TopPoint
    Dim bottomPoint As TextPoint = objSel.BottomPoint
    Dim lTopLine As Long = topPoint.Line
    Dim lTopColumn As Long = topPoint.LineCharOffset
    Dim lBottomLine As Long = bottomPoint.Line
    Dim lBottomColumn As Long = bottomPoint.LineCharOffset()

    ' If multiple lines are selected, but the bottom line doesn't
    ' have any characters selected, don't count it as selected
    Dim lEffectiveBottomLine = lBottomLine
    If ((lBottomColumn = 1) And (lBottomLine <> lTopLine)) Then
        lEffectiveBottomLine = lBottomLine - 1
    End If

    Dim textLineBelow As TextSelection = DTE.ActiveDocument.Selection
    textLineBelow.MoveToLineAndOffset(lEffectiveBottomLine + 1, 1, False)
    textLineBelow.MoveToLineAndOffset(lEffectiveBottomLine + 2, 1, True)
    Dim indentChange As Integer = CountIndentations(textLineBelow.Text)


    ' move to the bottom line
    objSel.MoveToLineAndOffset(lEffectiveBottomLine, 1)
    ' and move it down, which effectively moves the line below it up
    ' then move the cursor up, always staying one line above the line
    ' that is moving up, and keep moving it up until its above the top line:
    Dim lineCount As Long = lEffectiveBottomLine - lTopLine
    Do
        DTE.ExecuteCommand("Edit.LineTranspose")
        objSel.LineUp(False, 2)
        lineCount = lineCount - 1
    Loop Until (lineCount < 0)
    ' Since the line we are on has moved down, our location in the file has changed:
    lTopLine = lTopLine + 1
    lBottomLine = lBottomLine + 1

    IndentBlockAndRestoreSelection(objSel, lBottomLine, lBottomColumn, lTopLine, lTopColumn, indentChange)

    DTE.UndoContext.Close()
End Sub

'' This method takes care of indenting the selected text by the indentChange parameter
'' It then restores the selection to the lTopLine:lTopColumn - lBottomLine:lBottomColumn parameter.
'' It will adjust these values according to the indentChange performed
Sub IndentBlockAndRestoreSelection(ByVal objSel As TextSelection, ByVal lBottomLine As Long, ByVal lBottomColumn As Long, ByVal lTopLine As Long, ByVal lTopColumn As Long, ByVal indentChange As Integer)
    ' restore the cursor to original position and selection
    objSel.MoveToLineAndOffset(lBottomLine, lBottomColumn)
    objSel.MoveToLineAndOffset(lTopLine, lTopColumn, True)
    If (indentChange = 0) Then
        ' If we don't change the indent, we are done
        Return
    End If

    If (lBottomLine = lTopLine) Then
        If (indentChange > 0) Then
            objSel.StartOfLine()
        Else
            objSel.StartOfLine()
            objSel.WordRight()
        End If
    End If
    objSel.Indent(indentChange)

    ' Since the selected text has changed column, adjust the columns accordingly:
    ' restore the cursor to original position and selection
    Dim lNewBottomColumn As Long = (lBottomColumn + indentChange)
    Dim lNewTopColumn As Long = (lTopColumn + indentChange)
    ' ensure that we we still on the page.
    ' The "or" clause makes it so if we were at the left Edge of the line, we remain on the left Edge.
    If ((lNewBottomColumn < 2) Or (lBottomColumn = 1)) Then
        ' Single line selections, or a bottomColumn that is already at 1 may still have a new BottomColumn of 1
        If ((lTopLine = lBottomLine) Or (lBottomColumn = 1)) Then
            lNewBottomColumn = 1
        Else
            ' If we have multiple lines selected, don't allow the bottom Edge to touch the left column,
            ' or the next move will ignore that bottom line.
            lNewBottomColumn = 2
        End If
    End If
    If ((lNewTopColumn < 2) Or (lTopColumn = 1)) Then
        lNewTopColumn = 1
    End If

    ' restore the selection to the modified selection
    objSel.MoveToLineAndOffset(lBottomLine, lNewBottomColumn)
    objSel.MoveToLineAndOffset(lTopLine, lNewTopColumn, True)
End Sub


'' This method counts the indentation changes within the text provided as the paramter
Function CountIndentations(ByVal text As String) As Integer
    Dim indent As Integer = 0
    While (Text.Length > 0)
        If (Text.StartsWith("//")) Then
            Dim endOfLine As Integer = Text.IndexOf("\n", 2)
            If (Equals(endOfLine, -1)) Then
                ' The remaining text is all on one line, so the '//' terminates our search
                ' Ignore the rest of the text
                Exit While
            End If
            ' continue looking after the end of line
            Text = Text.Substring(endOfLine + 1)
        End If

        If (Text.StartsWith("/*")) Then
            Dim endComment As Integer = Text.IndexOf("*/", 2)
            If (Equals(endComment, -1)) Then
                ' This comment continues beyond the length of this line.
                ' Ignore the rest of the text
                Exit While
            End If
            ' continue looking after the end of this comment block
            Text = Text.Substring(endComment + 1)
        End If

        If (Text.StartsWith("{")) Then
            indent = indent + 1
        Else
            If (Text.StartsWith("}")) Then
                indent = indent - 1
            End If
        End If
        Text = Text.Substring(1)
    End While
    Return indent
End Function

この投稿を編集して、MoveLineUp（）メソッドとMoveLineDown（）メソッドの最初にUndoContextメカニズム（Nicolas Dorierが提案）を追加し、最後に閉じました。 11/23/11-ブラケットの境界を越えるときに移動した行がインデントできるように、これを再度更新しました

Answer 2

Visual Studio 2010でこれを行う方法を探している人のために、無料のVisual Studio 2010 Pro Power Tools拡張機能により、行を上下に移動する機能が追加されます。

http://visualstudiogallery.msdn.Microsoft.com/en-us/d0d33361-18e2-46c0-8ff2-4adea1e34fef

Answer 3

まだ見つけていない場合は、これらのキーボードショートカットが設定されている場所は[ツール] | [ツール]の下にあります。オプション|環境|キーボード。リストを参照するだけで多くの便利なコマンドを見つけることができますが、残念ながら、各コマンドの目的を説明するための適切なリファレンスは見つかりませんでした。

特定のコマンドについて：

• あなたが参照している前方/後方ナビゲーションコマンドはView.NavigateBackwardとView.NavigateForwardだと思います。キーボードがVSキーバインディングと連携していない場合は、それらを好みのEclipseキーに再マップできます。残念ながら、実際にどこに行くかを決定するために使用するアルゴリズムを変更する方法がわかりません。

• 行を複製するための組み込みコマンドはないと思いますが、テキストを選択せず​​にCtrl + Cを押すと、現在の行がクリップボードにコピーされます。それを前提として、次の行の現在の行を複製する単純なマクロを次に示します。

    Sub CopyLineBelow()
        DTE.ActiveDocument.Selection.Collapse()
        DTE.ActiveDocument.Selection.Copy()
        DTE.ActiveDocument.Selection.Paste()
    End Sub

    Sub CopyLineAbove()
        DTE.ActiveDocument.Selection.Collapse()
        DTE.ActiveDocument.Selection.Copy()
        DTE.ActiveDocument.Selection.LineUp()
        DTE.ActiveDocument.Selection.Paste()
    End Sub

• テキストの行を移動する場合、Edit.LineTransposeは選択した行を下に移動します。行を上に移動するコマンドはないと思いますが、それを実行する簡単なマクロを次に示します。

    Sub MoveLineUp()
        DTE.ActiveDocument.Selection.Collapse()
        DTE.ActiveDocument.Selection.Cut()
        DTE.ActiveDocument.Selection.LineUp()
        DTE.ActiveDocument.Selection.Paste()
        DTE.ActiveDocument.Selection.LineUp()
    End Sub

マクロをまだ使い始めていない場合は、マクロは非常に便利です。ツール|マクロ|マクロIDEを使用すると、エディターが表示されます。定義すると、上記と同じUIを使用してキーボードショートカットを設定できます。これらのマクロは、非常に便利なRecord TemporaryMacroコマンドを使用して生成しました。 [ツール] | [マクロ]にもあります。このコマンドを使用すると、一連のキーボード入力を記録して何度でも再生できます。これは、高度な編集コマンドの作成や、反復タスク（コードの再フォーマットなど）の自動化に適しています。

Answer 4

私は最近同じことをし、新しいプロジェクトに移動したときにEclipseからVisualStudioに移動しました。 Resharperアドイン を強くお勧めします-EclipseがVSに持つ豊富な編集、ナビゲーション、リファクタリング機能の一部を追加します。

Resharperを使用すると、InteliJと非常によく似たキーボードマッピングスキームを使用することもできます。 Javaエスケープ...

2番目の質問に関して、ResharperにはEclipseと同じ移動コードの上下機能がありますが、いくつかの注意点があります。まず、InteliJキーボードマッピングを使用すると、キーの組み合わせはかなり曲がりくねっています。

コードを上に移動：ctrl + shift + alt +上カーソル

コードを下に移動：ctrl + shift + alt +下カーソル

次に、常に1行だけ移動するわけではなく、実際にはコードブロックをジャンプします。したがって、行をifステートメントの外側から内側に移動することはできません。選択した行をifブロックのすぐ上にジャンプします。これを行うには、を使用して「左」と「右」を移動する必要があります

コードを外部コードブロックに移動します：ctrl + shift + alt +左​​カーソル

コードを次の内部コードブロックに移動します：ctrl + shift + alt +右カーソル

Answer 5

Edit.LineTransposeですが、これは行を上に移動するためには機能しません...これは行を上に移動するためのマクロです

Sub LineTransposeUp()
    Dim offset As Integer
    Dim sel As TextSelection

    DTE.UndoContext.Open("LineTransposeUp")

    Try
        sel = DTE.ActiveDocument.Selection
        offset = sel.ActivePoint.LineCharOffset
        sel.LineUp()
        DTE.ExecuteCommand("Edit.LineTranspose")
        sel.LineUp()
        sel.MoveToLineAndOffset(sel.ActivePoint.Line, offset)
    Catch ex As System.Exception
    End Try

    DTE.UndoContext.Close()
End Sub

Answer 6

Visual Studioでマクロを記録して、代替矢印を実行します。

ctrl-alt-r -- record mode
ctrl-c -- copy a line
up arrow -- go up a line
home -- beginning of line (maybe there is a way to paste before the current line without this)
ctrl-v -- paste
ctrl-alt-r -- end record mode

これで、マクロideとキーボード設定を使用して、このマクロを任意のキーストロークのセットにマップできます。

Answer 7

MoveLine拡張 を使用して、VS 2010/2012で行（または行のグループ）を上下に移動します。

Answer 8

PaulOstrowski私はあなたのツールを試しました。それはほとんど大丈夫です。

Eclipseが行うもう1つのことは、行を現在のインデントレベルに移動することです。

例えば：

function test()
{
    // do stuff
}
Console.WriteLine("test"); 

Console.writelineでシフトアップを実行すると、次のように変更されます。

function test()
{
    // do stuff
    Console.WriteLine("test"); 
}

しかし、あなたのツールはこれを行うようです：

function test()
{
    // do stuff
Console.WriteLine("test"); 
}

Answer 9

VSがあなたがネイティブに話している機能をサポートしているかどうかはわかりませんが、resharperプラグインを使用すると、CTRL + SHIFT + BACKSPACEを使用して以前の編集に移動できます。ラインを上下に移動することはサポートされていないと思います（まだ見つけていません）