Can't think of a good class name? Try this:(classnamer.com) |
Can't think of a good class name? Try this:(classnamer.com) |
Imports System Imports EnvDTE Imports EnvDTE80 Imports EnvDTE90 Imports EnvDTE90a Imports EnvDTE100 Imports System.Diagnostics
Public Module Module1
Sub ClassNameGen()
Dim res As String
Dim req As System.Net.WebRequest = System.Net.HttpWebRequest.Create("http://www.classnamer.com/")
Dim rsp = req.GetResponse()
Using sr As New System.IO.StreamReader(rsp.GetResponseStream())
res = sr.ReadToEnd()
End Using
Dim doc As Document = DTE.ActiveDocument
Dim textDoc As TextDocument = CType(doc.Object("TextDocument"), TextDocument)
textDoc.StartPoint.CreateEditPoint()
Dim strstr As String = "<p id=""classname"">"
Dim endstr As String = "</p>"
Dim strt As Integer = res.IndexOf(strstr)
textDoc.Selection.Insert(res.Substring(strt + strstr.Length, res.Length - (res.IndexOf(endstr, strt) + endstr.Length)))
End Sub
End ModuleIf so you're onto a winner.
I like this one :-)
Think about it.
It a Big 5 consulting firm acquired this and used it in their enterprise web app practice, would anyone ever be able to tell the difference?