Comments on: Because ActiveDocument.Text() Would Be Too Easy...

Question: Because ActiveDocument.Text() Would Be Too Easy...

DWRoelands — Thu, 02 Oct 2008 17:31:31 -0800

I'm writing a code analysis tool in VB.NET for Visual Studio 2005. Help me extract the text of the active window.

My plan: Create an add-in that will put an "Analyze" item in the Tools menu. The developer opens her code file, clicks the menu item, and all of the text in the currently-active window is passed to the analysis engine I am writing.

What I can't seem to crack is how to get all of the text in the active window. Googling has provided some insight as to how to get TextPoint and EditPoint objects, but nothing that takes me all the way to just having a string (or some reasonable object) that contains a bunch of text for me to process.

Is this even possible? If not, I'd be happy for suggestions as to how I can divine the full path to the disk file that contains the text in the active window. Many thanks.

By: sanko

sanko — Thu, 02 Oct 2008 17:35:37 -0800

Check out this guy's series on writing a pokerbot. Probably more than you need to know about reading text from windows, and a bunch of other cool stuff too.

By: mmascolino

mmascolino — Thu, 02 Oct 2008 18:43:23 -0800

Rather than writing a standalone analysis program, have you considered writing a Visual Studio plugin that expose explicit APIs that do what you want (among a whole host of other things). There are also frameworks for making plugin writing easier than what Microsoft provides.

By: jedicus

jedicus — Thu, 02 Oct 2008 22:22:56 -0800

More specifically, you'll want to look at the Automation and Extensibility APIs for VS. The EnvDTE and EnvDTE80 namespaces will be particularly important.

Sub PathExample()

   Dim doc As Document

   Dim docPath As String



   doc = DTE.ActiveDocument

   docPath = doc.Path

End Sub

would get you the path to the current document.

This is the easiest (ha!) way I can come up with to get the text of a document.



Sub TextExample()

   Dim doc as TextDocument

   Dim ep As EditPoint

   Dim docText as String



   doc = DTE.ActiveDocument.Object("TextDocument")

   ep = doc.StartPoint.CreateEditPoint

   docText = ep.GetText(doc.EndPoint.CreateEditPoint)



End Sub

Sorry for any VB.Net errors. I normally code in C#, so I'm not as familiar with VB syntax.