Measest Capchas Ever
Labels: funny
Imports System
Imports EnvDTE
Imports EnvDTE80
Imports EnvDTE90
Imports System.Diagnostics
Imports System.Text.RegularExpressions
Public Module OpenAll
Sub FocusOnTODO()
Dim solution As Solution = DTE.Solution
For Each prj As Project In solution.Projects
IterateProjectFiles(prj.ProjectItems)
Next
DTE.ExecuteCommand("View.TaskList")
End Sub
Private Sub IterateProjectFiles(ByVal prjItms As ProjectItems)
For Each file As ProjectItem In prjItms
If file.IsOpen Then
file.Document.Close()
End If
If file.SubProject IsNot Nothing Then
TestFile(file)
IterateProjectFiles(file.ProjectItems)
ElseIf file.ProjectItems IsNot Nothing AndAlso file.ProjectItems.Count > 0 Then
TestFile(file)
IterateProjectFiles(file.ProjectItems)
Else
TestFile(file)
End If
Next
End Sub
Private Sub TestFile(ByVal file As ProjectItem)
DTE.ExecuteCommand("View.SolutionExplorer")
If file.Name.EndsWith(".cs") OrElse file.Name.EndsWith(".aspx") OrElse file.Name.EndsWith(".ascx") OrElse file.Name.EndsWith(".js") Then
file.Open()
file.Document.Activate()
Dim sel As TextSelection = DTE.ActiveDocument.Selection
sel.SelectAll()
Dim documentText As String = sel.Text
sel.StartOfDocument()
If (Not Regex.IsMatch(documentText, "//([ ]+)?TODO", RegexOptions.IgnoreCase)) Then
file.Document.Close()
End If
End If
End Sub
End Module



Labels: 2005, firefox, Visual Studio