Option Strict Off
Option Explicit Off
Imports System
Imports System.Diagnostics
Imports System.Collections
Imports System.Text
Imports EnvDTE
Imports EnvDTE80
Imports Microsoft.VisualBasic
Imports Microsoft.VisualBasic.ControlChars
Public Module Utility
Sub CollapseNode(ByRef item As UIHierarchyItem)
' CollapseAll 에서 사용하기 위한 함수
Dim objSubItem As UIHierarchyItem
For Each objSubItem In item.UIHierarchyItems
If (objSubItem.UIHierarchyItems.Expanded = True) Then
CollapseNode(objSubItem)
objSubItem.UIHierarchyItems.Expanded = False
End If
Next
End Sub
Sub CollapseAll()
' 솔루션 익스플로러에 펼쳐진 노드들을 모두 접는다.
Dim objSolutionExplorer As UIHierarchy
objSolutionExplorer = DTE.Windows.Item(EnvDTE.Constants.vsext_wk_SProjectWindow).Object()
' Check if there is any open solution
If (objSolutionExplorer.UIHierarchyItems.Count = 0) Then
' MsgBox("Nothing to collapse. You must have an open solution.")
Return
End If
' Get the top node (the name of the solution)
Dim UIHSolutionRootNode As UIHierarchyItem
UIHSolutionRootNode = objSolutionExplorer.UIHierarchyItems.Item(1)
CollapseNode(UIHSolutionRootNode)
' Select the solution node, or else when you click on the solution window
' scrollbar, it will synchronize the open document with the tree and pop
' out the corresponding node which is probably not what you want.
UIHSolutionRootNode.Select(vsUISelectionType.vsUISelectionTypeSelect)
End Sub
Sub FindInSolution()
' 현재 편집 중인 파일을 솔루션 익스플로러에서 찾아서 하이라이트시킨다.
p = DTE.Properties("Environment", "ProjectsAndSolution").Item("TrackFileSelectionInExplorer")
p.value = 1
p.value = 0
End Sub
Sub GetFriendFile()
' H <--> CPP 파일 전환
strCurrentFileName = Application.ActiveDocument.FullName
strNewFileName = ""
If (UCase(Right(strCurrentFileName, 2)) = ".H") Then
strNewFileName = Left(strCurrentFileName, Len(strCurrentFileName) - 2) + ".CPP"
ElseIf (UCase(Right(strCurrentFileName, 4)) = ".CPP") Then
strNewFileName = Left(strCurrentFileName, Len(strCurrentFileName) - 4) + ".H"
End If
On Error Resume Next
If strNewFileName <> "" Then
Application.Documents.Open(strNewFileName)
If (Err.Number <> 0) Then
MsgBox("Error opening corresponding file - " & Err.Description)
End If
End If
End Sub
Function Strip(ByVal strLine As String)
' 문자열 좌우의 공백을 제거한다.
If Len(strLine) > 0 Then
nBegin = 1
nEnd = Len(strLine)
For i = 1 To Len(strLine)
c = Mid(strLine, i, 1)
If c <> " " And c <> Tab And c <> Lf And c <> Cr Then
nBegin = i
Exit For
End If
Next
For i = 1 To Len(strLine)
c = Mid(strLine, Len(strLine) - i + 1, 1)
If c <> " " And c <> Tab And c <> Lf And c <> Cr Then
nEnd = Len(strLine) - i + 1
Exit For
End If
Next
Return Mid(strLine, nBegin, nEnd - nBegin + 1)
Else
Return ""
End If
End Function
Sub Split(ByVal strLine As String, ByVal strSeperators As String, ByRef objLines As Generic.List(Of String))
' 문자열을 토큰의 목록으로 분리한다. 구분자는 여러 개가 될 수 있다.
strToken = ""
For i = 1 To Len(strLine)
strChar = Mid(strLine, i, 1)
If InStr(strSeperators, strChar) > 0 Then
If Len(strToken) > 0 Then
objLines.Add(strToken)
End If
strToken = ""
Else
strToken = strToken + strChar
End If
Next
If Len(strToken) > 0 Then
objLines.Add(strToken)
End If
End Sub
Sub PadLeft(ByRef objLines As Generic.List(Of String), ByVal strPad As String)
' 문자열 중에 제일 긴 놈을 기준으로 짧은 놈들의 왼쪽에다 주어진 패딩 문자열을 붙인다.
nMaxLength = 0
For Each strLine In objLines
If Len(strLine) > nMaxLength Then
nMaxLength = Len(strLine)
End If
Next
For i = 0 To objLines.Count - 1
strLine = objLines.Item(i)
nMargin = nMaxLength - Len(strLine)
For m = 1 To nMargin
strLine = strPad + strLine
Next
objLines.Item(i) = strLine
Next
End Sub
Sub PadRight(ByRef objLines As Generic.List(Of String), ByVal strPad As String)
' 문자열 중에 제일 긴 놈을 기준으로 짧은 놈들의 오른쪽에다 주어진 패딩 문자열을 붙인다.
nMaxLength = 0
For Each strLine In objLines
If Len(strLine) > nMaxLength Then
nMaxLength = Len(strLine)
End If
Next
For i = 0 To objLines.Count - 1
strLine = objLines.Item(i)
nMargin = nMaxLength - Len(strLine)
For m = 1 To nMargin
strLine = strLine + strPad
Next
objLines.Item(i) = strLine
Next
End Sub
Function GetSelectedText()
' 현재 선택된 문자열을 반환한다.
Dim objSel As TextSelection
If (DTE.ActiveDocument Is Nothing) Then Return ""
objSel = DTE.ActiveDocument.Selection()
Return objSel.Text
End Function
Sub InsertText(ByVal strText As String)
' 현재 캐럿이 있는 곳에다 주어진 문자열을 삽입한다.
Dim objSel As TextSelection
Dim objRanges As TextRanges
Dim objStartPt As EditPoint
objSel = ActiveDocument().Selection
objRanges = objSel.TextRanges
objStartPt = objRanges.Item(1).StartPoint.CreateEditPoint()
objStartPt.Insert(strText)
End Sub
Sub ReplaceSelectedText(ByVal strText As String)
' 현재 선택된 문자열을 주어진 문자열로 치환한다.
Dim objSel As TextSelection
Dim objRanges As TextRanges
Dim objStartPt As EditPoint
objSel = ActiveDocument().Selection
objRanges = objSel.TextRanges
objStartPt = objRanges.Item(1).StartPoint.CreateEditPoint()
objSel.Text = ""
objStartPt.Insert(strText)
End Sub
Sub DecorateSourceFile()
' H, CPP 파일에다 기본 주석을 집어넣는다.
Dim objStream As New StringBuilder
Dim strFileName As String
Dim strFileExt As String
Dim strClassName As String
Dim strIncludeGuard As String
Dim strSelected As String
Dim nPos As Integer
' 수정 사항들. 필요에 따라 수정한다.
Dim strAuthor As String = "excel96"
Dim strDateString As String = CStr(Year(Now())) + "." + CStr(Month(Now())) + "." + CStr(Day(Now()))
Dim strCommentLine As String = "////////////////////////////////////////////////////////////////////////////////////////////////////"
Dim bUsePragmaOnce As Boolean = True
Dim strClassNamePrefix As String = "c"
Dim strPchName As String = "PCH.h"
' 파일 이름을 확인한다.
strFileName = ActiveDocument().Name
If strFileName = "" Then
If MsgBox("처리 중인 파일에 확장자가 없습니다." + Lf + _
"C/C++ 소스 파일이 맞습니까?", 4) = MsgBoxResult.Cancel Then
Exit Sub
End If
strFileName = "NoFileNameGiven.h"
End If
' 파일 이름을 분리하고, 클래스 이름을 생성한다.
strFileExt = UCase(Right(strFileName, Len(strFileName) - InStrRev(strFileName, ".")))
strFileName = Left(strFileName, Len(strFileName) - Len(strFileExt) - 1)
strClassName = strClassNamePrefix + strFileName
ActiveDocument().Selection.StartOfDocument(False)
' 파일의 확장자에 따라 알맞은 처리를 해준다.
If strFileExt = "H" Or strFileExt = "HPP" Then
strIncludeGuard = "__" + UCase(strFileName) + "_" + strFileExt + "__" + Lf
' 파일 헤더 추가.
objStream.Append(strCommentLine + Lf)
objStream.Append("/// \file " + ActiveDocument().Name + Lf)
objStream.Append("/// \author " + strAuthor + Lf)
objStream.Append("/// \date " + strDateString + Lf)
objStream.Append(strCommentLine + Lf + Lf)
' 인클루드 가드 추가.
If bUsePragmaOnce Then
objStream.Append("#pragma once" + Lf + Lf)
Else
objStream.Append("#ifndef " + strIncludeGuard + "#define " + strIncludeGuard + Lf + Lf)
End If
' 클래스 설명문 추가.
objStream.Append(strCommentLine + Lf)
objStream.Append("/// \class " + strClassName + Lf)
objStream.Append("/// \brief " + Lf)
objStream.Append(strCommentLine + Lf + Lf)
' 클래서 선언 및 생성자 & 소멸자 추가.
objStream.Append("class " + strClassName + Lf)
objStream.Append("{" + Lf)
objStream.Append("private:" + Lf + Lf)
objStream.Append("public:" + Lf)
objStream.Append(Tab + "/// \brief 생성자" + Lf)
objStream.Append(Tab + strClassName + "();" + Lf + Lf)
objStream.Append(Tab + "/// \brief 소멸자" + Lf)
objStream.Append(Tab + "virtual ~" + strClassName + "();" + Lf + Lf + Lf)
objStream.Append("public:" + Lf + Lf)
objStream.Append("private:" + Lf)
objStream.Append(Tab + "/// \brief 복사 생성 금지" + Lf)
objStream.Append(Tab + strClassName + "(const " + strClassName + "&) {}" + Lf + Lf)
objStream.Append(Tab + "/// \brief 대입 금지" + Lf)
objStream.Append(Tab + strClassName + "& operator = (const " + strClassName + "&) { return *this; }" + Lf)
objStream.Append("};" + Lf)
' 인클루드 가드 마무리.
If Not bUsePragmaOnce Then
objStream.Append(Lf + "#endif //" + strIncludeGuard)
End If
ElseIf strFileExt = "C" Or strFileExt = "CPP" Or strFileExt = "CC" Then
' 파일 헤더 추가.
objStream.Append(strCommentLine + Lf)
objStream.Append("/// \file " + ActiveDocument().Name + Lf)
objStream.Append("/// \author " + strAuthor + Lf)
objStream.Append("/// \date " + strDateString + Lf)
objStream.Append(strCommentLine + Lf + Lf)
' 인클루드 파일 추가.
objStream.Append("#include " + CStr(Quote) + strPchName + CStr(Quote) + Lf)
objStream.Append("#include " + CStr(Quote) + strFileName + ".h" + CStr(Quote) + Lf)
objStream.Append(Lf)
' 생성자 추가.
objStream.Append(strCommentLine + Lf)
objStream.Append("/// \brief 생성자" + Lf)
objStream.Append(strCommentLine + Lf)
objStream.Append(strClassName + "::" + strClassName + "()" + Lf)
objStream.Append("{" + Lf)
objStream.Append("}" + Lf + Lf)
' 소멸자 추가.
objStream.Append(strCommentLine + Lf)
objStream.Append("/// \brief 소멸자" + Lf)
objStream.Append(strCommentLine + Lf)
objStream.Append(strClassName + "::~" + strClassName + "()" + Lf)
objStream.Append("{" + Lf)
objStream.Append("}" + Lf + Lf)
End If
InsertText(objStream.ToString())
End Sub
Sub AddFunctionDescriptionEx()
' 함수 설명을 추가한다.
Dim objSel As TextSelection
Dim strHeader As String
Dim strParams As String
Dim strFunctionName As String
Dim strDescription As String
Dim strReturnType As String
Dim strCommentLine As String
Dim iPrm, iPrmA As Integer
Dim p, l As Integer
If (ActiveDocument() Is Nothing) Then
Exit Sub
End If
strCommentLine = "////////////////////////////////////////////////////////////////////////////////////////////////////"
If ActiveDocument().Language = EnvDTE.Constants.dsCPP Or ActiveDocument().Language = "CSharp" Then
objSel = DTE.ActiveDocument.Selection()
Strip(objSel.Text)
strHeader = ""
If objSel.Text <> "" Then
strHeader = Strip(objSel.Text)
End If
'Get the function return type.
If strHeader <> "" Then
If ActiveDocument().Language = "CSharp" Then
'skip the protection info (public/private ...)
strHeader = Right(strHeader, Len(strHeader) - InStr(strHeader, " "))
End If
Reti = InStr(strHeader, " ")
Loc1 = InStr(strHeader, "(")
If Reti < Loc1 Then
strReturnType = Left(strHeader, Loc1 - 1)
strHeader = Right(strHeader, Len(strHeader) - Reti)
End If
strReturnType = Left(strReturnType, InStr(strReturnType, " "))
'Get the function name.
Loc1 = InStr(strHeader, "(") - 1
Loc2 = InStr(strHeader, ")")
If Loc1 > 0 And Loc2 > 0 Then 'make sure there is a '(' and a ')'
strFunctionName = Left(strHeader, Loc1)
strHeader = Right(strHeader, Len(strHeader) - Len(strFunctionName))
'Do we have storage type on the return type?
Strip(strFunctionName)
If InStr(strFunctionName, " ") <> 0 Then
strReturnType = strReturnType + Left(strFunctionName, InStr(strFunctionName, " "))
strFunctionName = Right(strFunctionName, Len(strFunctionName) - InStr(strFunctionName, " "))
End If
'Get the function parameters.
iPrm = 0
iPrmA = 0
strParams = strHeader
'Count the number of parameters.
Do While InStr(strParams, ",") <> 0
iPrm = iPrm + 1
strParams = Right(strParams, Len(strParams) - InStr(strParams, ","))
Loop
'Store the parameter list in the array.
If iPrm > 0 Then ' If multiple params.
iPrm = iPrm + 1
iPrmA = iPrm
ReDim ParamArr(iPrm)
Do While InStr(strHeader, ",") <> 0
ParamArr(iPrm - 1) = Left(strHeader, InStr(strHeader, ",") - 1)
'Remove brace from first parameter.
If InStr(ParamArr(iPrm - 1), " (") <> 0 Then
p = iPrm - 1
l = Len(ParamArr(p))
ParamArr(p) = Right(ParamArr(p), (l - (l - (l - InStr(ParamArr(p), " (")))))
Strip(ParamArr(iPrm))
End If
strHeader = Right(strHeader, Len(strHeader) - InStr(strHeader, ","))
iPrm = iPrm - 1
Loop
ParamArr(iPrm - 1) = strHeader
'Remove trailing brace from last parameter.
If InStr(ParamArr(iPrm - 1), ")") <> 0 Then
ParamArr(iPrm - 1) = Left(ParamArr(iPrm - 1), InStr(ParamArr(iPrm - 1), ")") - 1)
Strip(ParamArr(iPrm - 1))
End If
Else 'Possibly one param.
ReDim ParamArr(1)
strHeader = Right(strHeader, Len(strHeader) - 1) ' Strip the first brace.
Strip(strHeader)
ParamArr(0) = Strip(strHeader)
If InStr(ParamArr(0), ")") <> 1 Then
ParamArr(0) = Left(ParamArr(0), InStr(ParamArr(0), ")") - 1)
Strip(ParamArr(0))
iPrmA = 1
End If
End If
'Position the cursor one line above the selected text.
DTE.ActiveDocument.Selection.LineUp()
DTE.ActiveDocument.Selection.LineDown()
DTE.ActiveDocument.Selection.StartOfLine()
objSel = DTE.ActiveDocument.Selection()
'selection.text = Lf
strDescription = strCommentLine + CStr(Lf)
strDescription += "/// \brief " + CStr(Lf)
If (iPrmA <> 0) Then
strDescription += "/// " + CStr(Lf)
End If
'Print the parameter list.
Last = iPrmA
Do While iPrmA <> 0
'Remove a line feed from any of the arguments.
If InStr(ParamArr(iPrmA - 1), CStr(Lf)) <> 0 Then
p = iPrmA - 1
l = Len(ParamArr(p))
ParamArr(p) = Right(ParamArr(p), (l - (l - (l - InStr(ParamArr(p), CStr(Lf))))))
Strip(ParamArr(iPrmA - 1))
End If
ParamArr(iPrmA - 1) = Strip(ParamArr(iPrmA - 1))
'If there are 2+ parameters, the first parameter will
'have a '(' prepended to it, remove it here:
If iPrmA = Last And Last <> 1 Then
ParamArr(iPrmA - 1) = Right(ParamArr(iPrmA - 1), Len(ParamArr(iPrmA - 1)) - 1)
End If
SpaceIndex = InStrRev(ParamArr(iPrmA - 1), " ")
StarIndex = InStrRev(ParamArr(iPrmA - 1), "*")
AmpIndex = InStrRev(ParamArr(iPrmA - 1), "&")
RealIndex = System.Math.Max(SpaceIndex, StarIndex)
RealIndex = System.Math.Max(RealIndex, AmpIndex)
RealParam = Strip(Right(ParamArr(iPrmA - 1), Len(ParamArr(iPrmA - 1)) - RealIndex))
If (Len(RealParam) > 0 And InStr(RealParam, "void") = 0) Then
strDescription = strDescription + "/// \param " + RealParam + " " + CStr(Lf)
End If
iPrmA = iPrmA - 1
Loop
strReturnType = Strip(strReturnType)
If (Len(strReturnType) > 0 And InStr(strReturnType, "void") = 0) Then
strDescription += "/// \return " + strReturnType + CStr(Lf)
End If
strDescription += strCommentLine + CStr(Lf)
objSel = DTE.ActiveDocument.Selection()
objSel.Text = strDescription
Else
MsgBox("It is possible that the function you are trying to work with has a syntax error.")
End If
End If
Else
MsgBox("You need to have an active C/C++ document open" + CStr(Lf) + "with the function prototype selected.")
End If
End Sub
Sub AddMemberGroupDescription()
' 그룹 주석을 집어넣는다.
InsertText(Tab + "/// \name Simple getter & setter" + Lf + Tab + "/// \{ " + Lf + Tab + "/// \brief " + Lf + Tab + "/// \} " + Lf)
End Sub
Sub WrapStringWithTcharMacro()
' 현재 선택된 문자열을 _T() 매크로로 감싼다.
Dim objRanges As TextRanges
Dim objStartPt As EditPoint
Dim objEndPt As EditPoint
objRanges = ActiveDocument().Selection.TextRanges
objStartPt = objRanges.Item(1).StartPoint.CreateEditPoint()
objEndPt = objRanges.Item(objRanges.Count).EndPoint.CreateEditPoint()
' 문자열의 처음을 찾는다.
While objStartPt.GetText(-1) <> """" Or objStartPt.GetText(-2) = "\"""
objStartPt.CharLeft(1)
End While
objStartPt.CharLeft(1)
' 문자열의 끝을 찾는다.
While objEndPt.GetText(1) <> """" Or objEndPt.GetText(-1) = "\"
objEndPt.CharRight(1)
End While
objEndPt.CharRight(1)
If objStartPt.GetText(-3) <> "_T(" Then
' 이미 _T 매크로로 감싸여 있는 문자열이 아니라면 감싸준다.
objStartPt.Insert("_T(")
objEndPt.Insert(")")
Else
' _T 매크로로 감싸인 상태라면 매크로를 제거한다.
objStartPt.Delete(-3)
objEndPt.Delete(1)
End If
End Sub
Function ParseVariableDeclarations( _
ByVal strText As String, ByRef colTypes As Collection, ByRef colNames As Collection, ByRef colComments As Collection)
' 변수 선언문을 파싱해서, 변수 타입 + 변수 이름 + 주석으로 분리시킨다.
arrLines = strText.Split(Lf)
For Each line In arrLines
strLine = line
' 좌우 공백 제거
strLine = Strip(strLine)
If Len(strLine) = 0 Then Continue For
' 문자열 안에 있는 2개 이상의 스페이스를 하나로 만든다.
Do
nSpacePos = InStr(strLine, " ")
If nSpacePos <> 0 Then
strLine = Replace(strLine, " ", " ")
Else
Exit Do
End If
Loop
' 문자열 안에 있는 탭을 스페이스로 치환한다.
Do
nSpacePos = InStr(strLine, vbTab)
If nSpacePos <> 0 Then
strLine = Replace(strLine, vbTab, " ")
Else
Exit Do
End If
Loop
' 라인 제일 처음 나오는 ';' 글자와 ';' 글자 앞에서 제일 처음 나타나는 ' ' 글자를 찾는다.
bSuccess = False
nSemicolonPos = InStr(strLine, ";")
If nSemicolonPos <> 0 Then
nSpacePos = InStrRev(strLine, " ", nSemicolonPos)
If nSpacePos <> 0 Then
bSuccess = True
End If
End If
' 두 글자 모두를 찾았다면, 변수 선언문이라고 할 수 있다.
If bSuccess Then
strVarType = Strip(Mid(strLine, 1, nSpacePos))
strVarName = Strip(Mid(strLine, nSpacePos, nSemicolonPos - nSpacePos))
strVarComment = ""
If nSemicolonPos <> 0 Then
strVarComment = Strip(Mid(strLine, nSemicolonPos + 1, Len(strLine) - nSemicolonPos))
End If
strVarType = Strip(Replace(strVarType, vbTab, " "))
strVarName = Strip(Replace(strVarName, vbTab, " "))
strVarComment = Strip(Replace(strVarComment, vbTab, " "))
If strVarType <> "" And strVarName <> "" Then
colTypes.Add(strVarType)
colNames.Add(strVarName)
colComments.Add(strVarComment)
End If
End If
Next
End Function
Function ParseVariableDeclarationsEx( _
ByVal strText As String, ByRef colTypes As Collection, ByRef colNames As Collection, ByRef colComments As Collection, ByRef colWholeComments As Collection)
' 변수 선언문을 파싱해서, 변수 타입 + 변수 이름 + 주석으로 분리시킨다.
arrLines = strText.Split(Lf)
For Each 