Visual Studio中的宏导航到T4MVC链接(Visual Studio macro to

我用T4MVC，我很喜欢它，并希望保持它 - 它保持下来运行时的缺陷。不幸的是，这使得它更难虽然导航到的意见和内容（又名意见和链接T4MVC）。即使使用ReSharper的，我无法浏览到所引用的项目：

T4MVC和ReSharper的导航

我能拿到手建立一个宏观做到这一点？从未以前建造一个IDE VS宏，我没有关于如何得到一些东西，比如“转到定义”过程的内部结果的把握，如果这甚至有可能。

如果你不熟悉T4MVC，这里通常是上述宏可能会做些什么来帮助：

鉴于令牌： Links.Content.Scripts.jQuery_js在文件MyView.cshtml，“（F12），转到定义”。这正常行为。
已经到达相关分配： public readonly string jQuery_js = "~/Content/Scripts/jQuery.js"; 由T4MVC生成的文件（这是非常好的，谢谢大卫，但我们并不需要查看），捕获指定字符串并关闭文件。
在解决方案浏览器导航到由所捕获的字符串所表示的PhysicalPath。

这个过程也将工作的意见/布局/主页/分音，等等。

如果你提供一个宏或连结宏来做到这一点，或有另一种解决方案，精彩。否则，怎么办第3步简单地在VS宏提示将特别赞赏，并收到我给予好评。完成后我会在这里发表宏追溯到一个答案。

谢谢！

下面是一个Visual Studio宏来帮忙。

它能做什么

现在，你可能在这样的地方使用T4MVC引用：

布局= MVC.Shared.Views.MasterSiteTheme;
ScriptManager.AddResource（Links.Content.Script.jQueryXYZ_js）;
<链接类型= “文本/ CSS的” href = “@ Links.Content.Style.SiteTheme_css”/>
返回查看（MVC.Account.Views.SignIn）;
@ Html.Partial（MVC.Common.Views.ContextNavigationTree）
@ Html.ActionLink（ “登录/注册”，MVC.Account.SignIn（））

F12（转到定义）已经适用于最后一颗子弹（行动），但该黑客是为了掩护其他情况下（资源）。

宏

Imports EnvDTE
Imports System.IO

Public Module NavT4Link
    Sub NavigateToLink()
        DTE.ExecuteCommand("Edit.GoToDefinition")
        Dim navpath As String = Path.GetFileName(DTE.ActiveDocument.FullName)
        Dim isContentLink As Boolean = navpath.Equals("T4MVC.cs")
        If (isContentLink Or navpath.EndsWith("Controller.generated.cs")) Then
            Dim t4doc As TextDocument = DTE.ActiveDocument.Object()
            navpath = CurrentLinePathConstant(t4doc)
            If isContentLink Then
                t4doc.Selection.MoveToPoint(t4doc.Selection.ActivePoint.CodeElement(vsCMElement.vsCMElementClass).StartPoint)
                t4doc.Selection.FindText("URLPATH")
                navpath = Path.Combine(CurrentLinePathConstant(t4doc), navpath)
            End If
            If navpath.StartsWith("~") Then
                DTE.ActiveDocument.Close(vsSaveChanges.vsSaveChangesPrompt)
                Dim proj As Object = DTE.Solution.FindProjectItem(DTE.ActiveDocument.FullName).ContainingProject
                navpath = Path.GetDirectoryName(proj.Fullname()) + navpath.TrimStart("~")
                DTE.ItemOperations.OpenFile(navpath)
            End If
        End If
    End Sub

    Function CurrentLinePathConstant(ByVal t4doc As TextDocument) As String
        t4doc.Selection.SelectLine()
        Dim sa() As String = t4doc.Selection.Text().Split("""")
        If sa.Length > 1 Then Return sa(sa.Length - 2) Else Return ""
    End Function
End Module

安装