Recentemente ho avuto la “necessità” di creare una macro in Visual Studio che eseguisse delle operazioni di Replace in diversi file del progetto.
Come in genere accade in questi casi è sufficiente registrare la macro tramite:
Tools > Macros > Record TemporaryMacro
ed il gioco è fatto.
Anche se può sembrare assurdo, lanciando la macro non ottenevo il risultato sperato, bensì la seguente eccezione:
"The server threw an exception. (Exception from HRESULT: 0X80010105 (RPS_E_SERVERFAULT))"
A dir la verità ho subito pensato ad un bug nella macro - tale eventualità non è stata esclusa immediatamente anche se in realtà non avevo scritto neanche una riga di codice - o addirittura nell'IDE.
Il problema è causato, come mi è stato fatto notare da un mio collega, dalla mancata gestione in automatico del check out (il progetto è gestito tramite Visual SourceSafe) del file da modificare.
Sostanzialmente se i file sono preventivamente messi in check out allora la macro fa il suo lavoro - giustamente -.
A questo punto, è diventata una questione di principio, riuscire a risolvere il problema, nonostante la scarsa utilità della macro.
Nello caso specifico ho convertito, per semplicità, il tutto in tre macro distinte:
- eseguire una ricerca nei file del progetto tramite regular expression;
- eseguire il check out dei file in base ai risultati mostrati nella finestra Find Results 1, prodotti dal punto 1;
- eseguire la funzione di Replace per ogni file in check out.
Forse la cosa più interessante da mostrare è il codice che ho scritto per svolgere il secondo punto:
1: DTE.Windows.Item(Constants.vsWindowKindFindResults1).Activate()
2: Dim resultsWin As Window = DTE.Windows.Item(Constants.vsWindowKindFindResults1)
3: Dim sel As TextSelection = resultsWin.Selection
4: If Not sel Is Nothing Then
5: sel.EndOfDocument(True)
6: Dim countLine = sel.CurrentLine
7: sel.StartOfDocument()
8: Dim lineStr As String
9: While (sel.CurrentLine < countLine)
10: sel.StartOfLine(False)
11: sel.EndOfLine(True)
12: lineStr = sel.Text
13: Dim reg As Regex = New Regex("c:.*(?=\(\d)", RegexOptions.IgnoreCase) 14: Dim line As String = reg.Match(lineStr).Value
15: If line.Length > 0 And DTE.SourceControl.IsItemCheckedOut(line) = False Then
16: DTE.SourceControl.CheckOutItem(line)
17: End If
18: sel.LineDown(True)
19: End While
20: End If
21: Dim win As Window = DTE.Windows.Item(Constants.vsWindowKindOutput)
22: Dim ow As OutputWindow = win.Object
23: ow.ActivePane.Activate()
24: ow.ActivePane.OutputString("Completo!!!") Anche se il codice parla abbastanza da solo, alcune righe meritano di essere un minimo commentate.
In particolare le prime tre righe consentono di poter analizzare il testo presente nella finestra dei risultati: Find Results 1 frutto della ricerca precedentemente eseguita.
Dopo aver calcolato il numero di righe presenti (riga 5 e 6) eseguo un ciclo estrapolando per ognuna l'eventuale path tramite una regular expression costruita ad hoc per il mio caso(riga 13).
In caso di match eseguo il check out del file richiamando il metodo CheckOutItem (riga 16).
Per concludere nella finestra di Output mostro un messaggio di fine operazione (riga 21, 22, 23, 24).
Read More »»
