metodo ReplaceLine in VBE sostituire solo una parte della linea di

Question

In risposta alla this domanda ho pensato che sarebbe stato divertente scrivere una macro VBE che dovrebbe sostituire automaticamente le linee che sembrano

DimAll a, b, c, d As Integer 

da

Nella mia prima bozza voglio solo modificare una singola riga selezionata. Dopo aver stabilito i relativi riferimenti per arrivare al modello VBE oggetto (vedi http://www.cpearson.com/excel/vbe.aspx) e giocare un po 'mi si avvicinò con:

Function ExpandDim(codeLine As String) As String 
    Dim fragments As Variant 
    Dim i As Long, n As Long, myType As String 
    Dim last As Variant 
    Dim expanded As String 

    If UCase(codeLine) Like "*DIMALL*AS*" Then 
     codeLine = Replace(codeLine, "dimall", "Dim", , , vbTextCompare) 
     fragments = Split(codeLine, ",") 
     n = UBound(fragments) 
     last = Split(Trim(fragments(n))) 
     myType = last(UBound(last)) 
     For i = 0 To n - 1 'excludes last fragment 
      expanded = expanded & IIf(i = 0, "", ",") & fragments(i) & " As " & myType 
     Next i 
     expanded = expanded & IIf(n > 0, ",", "") & fragments(n) 
     ExpandDim = expanded 
    Else 
     ExpandDim = codeLine 
    End If 
End Function 

Sub DimAll() 
    Dim myVBE As VBE 
    Dim startLine As Long, startCol As Long 
    Dim endLine As Long, endCol As Long 
    Dim myLine As String 
    Set myVBE = Application.VBE 
    myVBE.ActiveCodePane.GetSelection startLine, startCol, endLine, endCol 
    myLine = myVBE.ActiveCodePane.CodeModule.Lines(startLine, 1) 
    Debug.Print ExpandDim(myLine) 
    myVBE.ActiveCodePane.CodeModule.ReplaceLine startLine, ExpandDim(myLine) 
End Sub 

In un altro modulo di codice che ho avuto:

Sub test() 
    DimAll a, b, c, d As Integer 
    Debug.Print TypeName(a) 
    Debug.Print TypeName(b) 
    Debug.Print TypeName(c) 
    Debug.Print TypeName(d) 
End Sub 

Questo è il parte strana. Quando ho evidenziare la riga che inizia DimAll una, e invoco il mio goffamente chiamato sub DimAll, nella finestra immediata che vedo

che è come previsto, ma nel modulo di codice stesso la linea viene modificato in

Dim a, b, c, d As Integer 

DimAll è stato sostituito da Dim, ma il resto della riga non è stato modificato. Sospetto che le virgole stiano confondendo il metodo ReplaceLine. Qualche idea su come risolvere questo problema?

Answer 1

Quando si esegue con il debugger, myLine modifica il valore tra le due chiamate. Il DimAll diventa Dim alla seconda volta.

Questo perché si sostituisce il valore di codeLine dopo aver inserito il condizionale If all'interno dello ExpandDim Function.

creare una nuova variabile in quella funzione e si dovrebbe andare bene ... o passarlo ByVal e il gioco è fatto:

Function ExpandDim(ByVal codeLine As String) As String