User2063216690 posted
<STRIKE>Have you solved this problem? I have a web project with over 600 aspx and ascx sites to localize and it would be great to have such tool that automates the generating of local resources. I have created a little maro but it crasches after few
sites. Here is the code:</STRIKE>
Here is my macro that automates the localization process:
Option Strict Off
Option Explicit Off
Imports System
Imports EnvDTE
Imports EnvDTE80
Imports System.Diagnostics
Imports System.Collections.Generic
Imports System.Threading
Imports System.Windows.Forms
Public Module RecordingModule
Sub TemporaryMacro()
Dim mySolution As Solution = DTE.Solution
Dim projectFilesList As List(Of String) = New List(Of String)
Dim currentProject As String = DTE.ActiveDocument.ProjectItem.ContainingProject.FullName
projectFilesList = ListOfFilesInProject(currentProject, New List(Of String))
Dim solutionName As String = System.IO.Path.GetFileNameWithoutExtension(mySolution.FullName)
Dim projectName As String = System.IO.Path.GetFileNameWithoutExtension(currentProject)
For Each k As String In projectFilesList
Dim fileName As String = System.IO.Path.GetFileName(k)
DTE.Windows.Item(Constants.vsWindowKindSolutionExplorer).Activate()
DTE.ActiveWindow.Object.GetItem(String.Format("{0}\{1}\{2}", solutionName, projectName, PreparePathToFile(k, projectName))).Select(vsUISelectionType.vsUISelectionTypeSelect)
DTE.ActiveWindow.Object.DoDefaultAction()
DTE.Windows.Item(fileName).Activate()
DTE.ExecuteCommand("View.ViewDesigner")
DTE.Windows.Item(fileName).Activate()
DTE.ExecuteCommand("Tools.GenerateLocalResource")
DTE.ExecuteCommand("Window.CloseDocumentWindow")
DTE.ActiveWindow.Close(vsSaveChanges.vsSaveChangesNo)
Next
End Sub
Function PreparePathToFile(ByVal filePathValue As String, ByVal projectNameValue As String) As String
Dim filePath As String = filePathValue
Dim projectName As String = projectNameValue
Dim index As Integer = filePathValue.IndexOf(projectName) + projectName.Length + 1
Dim returnValue As String = filePath.Remove(0, index)
Return returnValue
End Function
Function ListOfFilesInProject(ByVal path As String, ByVal lista As List(Of String)) As List(Of String)
'Dim projectFilesList As List(Of String) = New List(Of String)
Dim projectPath As String = path
If System.IO.Path.GetExtension(projectPath) <> Nothing Then
Dim index As Integer = projectPath.IndexOf(System.IO.Path.GetFileName(projectPath))
Dim count As Integer = System.IO.Path.GetFileName(projectPath).Length
projectPath = projectPath.Remove(index, count)
End If
Dim folders As String() = System.IO.Directory.GetDirectories(projectPath)
Dim files As String() = System.IO.Directory.GetFiles(projectPath)
Dim folder As String
Dim file As String
For Each file In files
Dim fileExtension As String = System.IO.Path.GetExtension(file)
If String.Equals(fileExtension.ToLower, ".aspx") Or String.Equals(fileExtension.ToLower, ".ascx") Or String.Equals(fileExtension.ToLower, ".master") Then
lista.Add(file)
End If
Next
For Each folder In folders
ListOfFilesInProject(folder, lista)
Next
Return lista
End Function
End Module
