¿Hay algún método para intercambiar los lados izquierdo y derecho de un conjunto de expresiones en Visual Studio?

Question

Tengo un conjunto de datos de un tamaño decente que debe almacenarse en un registro activo. Con el fin de rellenar previamente los campos del formulario en la página, ya he escrito el siguiente código:

Device device = new Device(DeviceID); // device is simply the active record 

txtDeviceName.Text = device.Name; 
txtNotes.Text = device.Notes; 
txtHostName.Text = device.Hostname; 
txtAssetTag.Text = device.AssetTag; 
txtSerialNumber.Text = device.SerialNumber; 
// snip... the list goes on! 

¿Hay algún tipo de método (funcionalidad integrada, macro, etc.) que podría utilizar para intercambiar cada lado de la expresión de tal manera que los datos se guardan en el registro activo en lugar de leer de él para realizar una inserción de la base de datos? Por ejemplo, después de resaltar el código anterior y ejecutar la macro, se convertiría en:

device.DeviceName = txtDeviceName.Text; 
device.Notes = txtNotes.Text; 
device.Hostname = txtHostName.Text; 
device.AssetTag = txtAssetTag.Text; 
device.SerialNumber = txtSerialNumber.Text; 
// snip again... 

Dado que el número de columnas de la base de datos que este registro activo encapsula es bastante grande, parece que la mayor parte de esta tipificación podría haber evitado con un simple proceso automatizado.

Obviamente, esto no funcionaría al 100% porque a veces tendría que haber conversiones de tipo (por ejemplo, int a string), pero en su mayor parte creo que esto ahorraría mucho tiempo.

Answer 1

Aquí es una macro que lo hará:

Imports System 
Imports EnvDTE 
Imports EnvDTE80 
Imports System.Diagnostics 
Imports System.Text.RegularExpressions 

Public Module Helpers 
    Sub SwapAssignment() 
     If (Not IsNothing(DTE.ActiveDocument)) Then 
      Dim selection As TextSelection = CType(DTE.ActiveDocument.Selection, TextSelection) 
      selection.Text = Regex.Replace(selection.Text, "([^\s]*)\s*=\s*([^\s]*);", "$2 = $1;") 
     End If 
    End Sub 
End Module 

Básicamente se toma el texto seleccionado (ya sea una línea o tantas líneas como que elija) y utiliza una expresión regular para cambiar los valores. No es bonito, pero las macros nunca lo son.

Answer 2

No se puede conseguir que funcione con la Regex (debe ser una cosa de Visualstudio 2010) Lo he hecho a la vieja usanza usando la división clásica. También incluye un cheque para omitir las líneas de comentario de VB y C#. Contabilizándolo para quien lo necesite.

Imports System 
Imports EnvDTE 
Imports EnvDTE80 
Imports System.Diagnostics 
Imports System.Text.RegularExpressions 

Public Module Helpers 
    Sub SwapAssignment() 
     If (Not IsNothing(DTE.ActiveDocument)) Then 
      Dim selection As TextSelection = CType(DTE.ActiveDocument.Selection, TextSelection) 
      Dim lineArray() = selection.Text.Split(vbCrLf) 
      Dim output = "" 
      For Each line As String In lineArray 
       line = line.Trim() 

       If line.Length >= 1 Then 
        If line.Substring(0, 1).Equals("'") OrElse line.Substring(0, 1).Equals("/") Then 
         output &= line & vbCrLf 
         Continue For 
        End If 
       End If 

       If line.Contains(" = ") Then 
        Dim splittedline = line.Split("=") 
        output &= splittedline(1) + " = " + splittedline(0) & vbCrLf 
       Else 
        output &= line & vbCrLf 
       End If 
      Next 
      Dim check = output 
      selection.Text = output 
     End If 
    End Sub 
End Module