Question

I want to put code that i generate automatically and new classes in different parts of my solution. Ex:

I have these projects:

• Model
• DAO
• Business
• Web

When i create manually a new entity in Model project i want to:

• Create in Model project your IDAO class and IService class
• Create in DAO project your DAO class.
• Create in Business project your Service class.
• Create in Application_Start() method that is in Web\global.asax file the code that register the interfaces to your classes (Denpendency Injection).

All things automatically. So, is it possible?

Answer 1

Solved! I use visual studio macros.

Obs: I changed the strategy. Instead of create a T4 file (.tt), i create a common class file (.cs) with some tags that will be changed by String.Replace.

using System;
// place here your necessary "usings" 

namespace #namespace#
{
    /// <summary>
    /// Class responsible for #entity# data access.
    /// </summary>
    public class #class# : I#class#
    {
    }
}

The Macro:

Imports System
Imports EnvDTE
Imports EnvDTE80
Imports EnvDTE90
Imports EnvDTE90a
Imports EnvDTE100
Imports System.Diagnostics
Imports System.IO

Public Module Templates
    ' Get the active class (in this case will be the entity that you have just created)
    Dim entity As String = DTE.ActiveDocument.Name.Replace(".cs", "")
    Dim projects As Projects = DTE.Solution.Projects
    ' Project where are the template classes   
    Dim projectTemplates As Project = DTE.ActiveDocument.ProjectItem.ContainingProject

    Sub CreateCRUD()

        ' Exemple of creating DAO Class
        CreateClass("NamespaceWhereAreYouProject.Repositorio\ NamespaceWhereAreYouProject.Repositorio.csproj", _
                    "DAL", _
                    " NamespaceWhereAreYouProject.Repository.DAL", _
                    "DAO" + entity, _
                    "DAOTemplate.cs")

    End Sub

    Private Sub CreateClass(ByVal currentProject As String, _
                                 ByVal currentFolder As String, _
                                 ByVal currentNamespace As String, _
                                 ByVal currentClass As String, _
                                 ByVal currentTemplate As String)

        ' Loading attributes
        Dim project As Project = projects.Item(currentProject)
        Dim folder As ProjectItem = project.ProjectItems.Item(currentFolder)
        Dim currentTemplatePath As String = projectTemplates.ProjectItems.Item("Templates") _
            .ProjectItems.Item(currentTemplate).Properties.Item("FullPath").Value
        Dim newClassPath As String = folder.Properties.Item("FullPath").Value + currentClass + ".cs"

        ' Creating class
        folder.ProjectItems.AddFromTemplate(currentTemplatePath, currentClass + ".cs")
        Dim newText As String = File.ReadAllText(newClassPath) _
            .Replace("#class#", currentClass) _
            .Replace("#namespace#", currentNamespace) _
            .Replace("#entity#", entity)
        File.WriteAllText(newClassPath, newText)
    End Sub
End Module