- 선택된 라인들에서 중복된 라인들은 삭제하고 나머지를 정렬하기
- 활성화된 아이템 추적하기
- 주석 칸 맞추기
- 복사 생성자 및 대입 연산자 자동으로 생성하기
- 아름다운 변수 선언문 만들기
- 문자열 _T() 매크로로 감싸기
- 현재 편집 중인 문서 솔루션 익스플로러에서 찾기
- 솔루션 익스플로러 트리 접기
- 소스 파일 기본 구문 집어넣기
- 함수 설명 집어넣기
- H <-> CPP 전환하기
- 그룹 구문 집어넣기
- 자동으로 Accessor 생성하기
- 문자열 검색
Visual Studio 2005 기준
1 선택된 라인들에서 중복된 라인들은 삭제하고 나머지를 정렬하기
include 구문들을 정리하기 위해서 사용하면 좋다.
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 SortCollection(ByRef oCollection As Collection, Optional ByVal bSortAscending As Boolean = True)
Dim lSort1 As Integer
Dim lSort2 As Integer
Dim vTempItem1 As Object
Dim vTempItem2 As Object
Dim bSwap As Boolean
For lSort1 = 1 To oCollection.Count - 1
For lSort2 = lSort1 + 1 To oCollection.Count
If bSortAscending Then
If oCollection(lSort1) > oCollection(lSort2) Then
bSwap = True
Else
bSwap = False
End If
Else
If oCollection(lSort1) < oCollection(lSort2) Then
bSwap = True
Else
bSwap = False
End If
End If
If bSwap Then
vTempItem1 = oCollection(lSort1)
vTempItem2 = oCollection(lSort2)
oCollection.Add(vTempItem1, Nothing, lSort2)
oCollection.Add(vTempItem2, Nothing, lSort1)
oCollection.Remove(lSort1 + 1)
oCollection.Remove(lSort2 + 1)
End If
Next
Next
End Sub
Sub SortAndRemoveDuplicatedLine()
Dim objLines As New Collection
Dim objSel As TextSelection = ActiveDocument().Selection
Dim objRanges As TextRanges = objSel.TextRanges
Dim objStartPt As EditPoint = objRanges.Item(1).StartPoint.CreateEditPoint()
Dim objStream As New StringBuilder
For Each strLine In objSel.Text.Split(Lf)
strLine = Strip(strLine)
If objLines.Contains(strLine) = False Then
objLines.Add(strLine, strLine)
End If
Next
SortCollection(objLines)
For Each strLine In objLines
objStream.AppendLine(strLine)
Next
objSel.Text = ""
objStartPt.Insert(objStream.ToString())
End Sub
2 활성화된 아이템 추적하기
"도구 -> 옵션 -> 프로젝트 및 솔루션 -> 일반 -> 솔루션 탐색기에서 활성화된 항목 추적" 옵션을 켜두면 현재 편집 중인 파일을 솔루션 탐색기에서 쉽게 찾아볼 수 있다. 문제는 이 옵션을 항상 켜두면 상당히 난잡하다는 점이다. 그러므로 이 옵션 자체는 끄고, 매크로를 통해 필요할 때만 추적하도록 해두는 것이 좋다.
Sub FindInSolution()
' 현재 편집 중인 파일을 솔루션 익스플로러에서 찾아서 하이라이트시킨다.
p = DTE.Properties("Environment", "ProjectsAndSolution").Item("TrackFileSelectionInExplorer")
p.value = 1
p.value = 0
End Sub 단축키를 등록해두는 것이 좋다. ALT+Q 추천
3 주석 칸 맞추기
DoxyGen 형태의 주석을 컬럼에 맞게 워드랩해주는 매크로다. 약간 수정하면 일반 주석에 쓸 수도 있을 터.
Before
//////////////////////////////////////////////////////////////////////////////////////////
/// \brief 글자가
/// 처음으로
/// 나타나는 위치를
/// 반환한다.
/// \param caseSensitive 대소문자 구별을 하는가?
/// \return size_t 음 이것은 그냥 붙여보는 주석이란다.
//////////////////////////////////////////////////////////////////////////////////////////
After
//////////////////////////////////////////////////////////////////////////////////////////
/// \brief 글자가 처음으로 나타나는 위치를 반환한다.
/// \param text 검색 대상 문자열
/// \return size_t 음 이것은 그냥 붙여보는 주석이란다.
//////////////////////////////////////////////////////////////////////////////////////////
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
Function GetAsciiLength(ByVal str As String)
Return Encoding.Default.GetBytes(str).Length
End Function
Sub WrapDoxygenComment()
Dim nMaxLength As Integer = 90 - 4 - 1 ' -4는 주석 앞에 붙는 "/// " 문자열의 길이, -1은 딱 붙어있는 거 찝찝해서
Dim nLineLength As Integer = 0
Dim objRegex As RegularExpressions.Regex
Dim objMatch As RegularExpressions.Match
Dim objStream As New StringBuilder
Dim objLines As New Collection
Dim objSel As TextSelection = ActiveDocument().Selection
Dim objRanges As TextRanges = objSel.TextRanges
Dim objStartPt As EditPoint = objRanges.Item(1).StartPoint.CreateEditPoint()
For Each strLine In objSel.Text.Split(CrLf)
strLine = Strip(strLine)
If objRegex.IsMatch(strLine, "^////+$") Then
Else
objMatch = objRegex.Match(strLine, "^///")
If objMatch.Success Then
strLine = Strip(strLine.SubString(objMatch.Length))
End If
End If
objLines.Add(strLine)
Next
For i = 1 To objLines.Count
strLine = objLines.Item(i)
If strLine.Length = 0 Then
objStream.Append(CrLf)
objStream.Append("/// ")
nLineLength = 0
ElseIf objRegex.IsMatch(strLine, "^////+$") Then
objStream.Append(CrLf)
objStream.Append(strLine)
nLineLength = 0
Else
For Each match As RegularExpressions.Match In RegularExpressions.Regex.Matches(strLine, "\S+\s*")
If nLineLength = 0 Or match.Value.StartsWith("\") Or nLineLength + GetAsciiLength(match.Value) > nMaxLength Then
objStream.Append(CrLf)
objStream.Append("/// ")
nLineLength = 4
End If
objStream.Append(Strip(match.Value) + " ")
nLineLength += GetAsciiLength(Strip(match.Value)) + 1
Next
End If
Next
objStream.Append(CrLf)
' 현재 선택된 문자열을 주어진 문자열로 치환한다.
objSel.Text = ""
objStartPt.Insert(objStream.ToString().Substring(2))
End Sub
4 복사 생성자 및 대입 연산자 자동으로 생성하기
Sub MakeCopyAndAssignment()
Dim objSel As TextSelection
Dim objRanges As TextRanges
Dim objStartPt As EditPoint
Dim colTypes As New Collection
Dim colNames As New Collection
Dim colComments As New Collection
Dim objStream As New System.Text.StringBuilder
Dim strFileName As String
Dim strClassName As String
Dim strVarName As String
strFileName = ActiveDocument().Name
If strFileName = "" Then
MsgBox("처리 중인 파일에 확장자가 없습니다." + CrLf + "C/C++ 소스 파일이 맞습니까?")
Exit Sub
End If
' 파일 이름으로 클래스 이름을 추정한다.
strClassName = "c" + Left(strFileName, InStrRev(strFileName, ".") - 1)
' 실제 클래스 이름을 입력받는다.
strClassName = InputBox("Type class name", "Class name required", strClassName)
If Len(strClassName) > 0 Then
objSel = ActiveDocument().Selection
objRanges = objSel.TextRanges
objStartPt = objRanges.Item(1).StartPoint.CreateEditPoint()
' 변수 파싱
ParseVariableDeclarations(Trim(objSel.Text), colTypes, colNames, colComments)
' 복사 생성자
objStream.Append(Tab + "/// \brief 복사 생성자" + CrLf)
objStream.Append(Tab + strClassName + "(const " + strClassName + "& rhs)" + CrLf)
objStream.Append(Tab + Tab + ": ")
For i = 1 To colNames.Count
strVarName = colNames.Item(i)
If i > 1 Then
objStream.Append(Tab + Tab)
End If
objStream.Append(strVarName + "(rhs." + strVarName + ")")
If i < colNames.Count Then
objStream.Append(", ")
End If
objStream.Append(CrLf)
Next
objStream.Append(Tab + "{" + CrLf + Tab + "}" + CrLf + CrLf)
' 대입 연산자
objStream.Append(Tab + "/// \brief 대입 연산자" + CrLf)
objStream.Append(Tab + strClassName + "& operator = (const " + strClassName + "& rhs)" + CrLf)
objStream.Append(Tab + "{" + CrLf)
For i = 1 To colNames.Count
strVarName = colNames.Item(i)
objStream.Append(Tab + Tab + strVarName + " = rhs." + strVarName + ";" + CrLf)
Next
objStream.Append(Tab + Tab + "return *this; " + CrLf + Tab + "}" + CrLf + CrLf)
' 생성한 문자열 대입
objSel.Text = ""
objStartPt.Insert(objStream.ToString())
End If
End Sub
5 아름다운 변수 선언문 만들기
Sub MakePrettyVariableDeclaration()
Dim objSel As TextSelection
Dim objRanges As TextRanges
Dim objStartPt As EditPoint
Dim colTypes As New Collection
Dim colNames As New Collection
Dim colComments As New Collection
Dim nMaxTypeLength As Integer
Dim nMaxNameLength As Integer
Dim objStream As New System.Text.StringBuilder
objSel = ActiveDocument().Selection
objRanges = objSel.TextRanges
objStartPt = objRanges.Item(1).StartPoint.CreateEditPoint()
ParseVariableDeclarations(Trim(objSel.Text), colTypes, colNames, colComments)
nMaxTypeLength = 0
For Each line In colTypes
nMaxTypeLength = System.Math.Max(nMaxTypeLength, Len(line))
Next
nMaxNameLength = 0
For Each line In colNames
nMaxNameLength = System.Math.Max(nMaxNameLength, Len(line))
Next
For i = 1 To colTypes.Count
vtype = colTypes.Item(i)
vname = colNames.Item(i)
vcomment = colComments.Item(i)
typeSpaces = nMaxTypeLength - Len(vtype)
nameSpaces = nMaxNameLength - Len(vname)
For t = 1 To typeSpaces
vtype += " "
Next
vname += ";"
For n = 1 To nameSpaces
vname += " "
Next
line = vtype + " " + vname + " " + vcomment
objStream.Append(Trim(line) + CStr(Lf))
Next
objStartPt.Delete(objSel.Text.Length)
objStartPt.Insert(objStream.ToString())
End Sub
6 문자열 _T() 매크로로 감싸기
문자열을 선택할 필요 없이 문자열 가운데에서, 그냥 매크로를 실행하면 된다. 문자열을 선택한 상태에서 사용해도 동작에는 별 차이가 없다. 단축키는 Ctrl+K, Ctrl+T 추천.
Sub WrapStringWithTcharMacro()
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)
' 이미 _T 매크로로 감싸여 있는 문자열이 아니라면 감싸준다.
If objStartPt.GetText(-3) <> "_T(" Then
objStartPt.Insert("_T(")
objEndPt.Insert(")")
End If
End Sub
7 현재 편집 중인 문서 솔루션 익스플로러에서 찾기
Sub FindInSolution()
p = DTE.Properties("Environment", "ProjectsAndSolution").Item("TrackFileSelectionInExplorer")
p.value = 1
p.value = 0
End Sub
8 솔루션 익스플로러 트리 접기
Sub CollapseNode(ByRef item As UIHierarchyItem)
Dim subitem As UIHierarchyItem
For Each subitem In item.UIHierarchyItems
If (subitem.UIHierarchyItems.Expanded = True) Then
CollapseNode(subitem)
subitem.UIHierarchyItems.Expanded = False
End If
Next
End Sub
Sub CollapseAll()
' Get the the Solution Explorer tree
Dim UIHSolutionExplorer As UIHierarchy
UIHSolutionExplorer = DTE.Windows.Item(EnvDTE.Constants.vsext_wk_SProjectWindow).Object()
' Check if there is any open solution
If (UIHSolutionExplorer.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 = UIHSolutionExplorer.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
9 소스 파일 기본 구문 집어넣기
새로운 헤더/소스 파일에다 기본 구문 집어넣기
Sub DecorateSourceFile()
' 설명: doxygen 스타일의 파일 설명과 클래스 선언을 헤더/소스 파일에다 추가한다.
Dim fileName As String
Dim fileExt As String
Dim includeGuard As String
Dim selection As TextSelection
Dim pos As Integer
Dim className As String
Dim author As String
Dim dateString As String
Dim commentLine As String
Dim usePragmaOnce As Boolean
Dim classNamePrefix As String
Dim pchName As String
' 수정 사항들. 필요에 따라 수정한다.
author = "excel96"
dateString = CStr(Year(Now())) + "." + CStr(Month(Now())) + "." + CStr(Day(Now()))
commentLine = "////////////////////////////////////////////////////////////////////////////////"
usePragmaOnce = True
classNamePrefix = "c"
pchName = "PCH.h"
' 파일 이름을 확인한다.
fileName = ActiveDocument().Name
If fileName = "" Then
If MsgBox("처리 중인 파일에 확장자가 없습니다." + Lf + _
"C/C++ 소스 파일이 맞습니까?", 4) = MsgBoxResult.Cancel Then
Exit Sub
End If
fileName = "NoFileNameGiven.h"
End If
' 파일 이름을 분리하고, 클래스 이름을 생성한다.
fileExt = UCase(Right(fileName, Len(fileName) - InStrRev(fileName, ".")))
fileName = Left(fileName, Len(fileName) - Len(fileExt) - 1)
className = classNamePrefix + fileName
' 파일의 확장자에 따라 알맞은 처리를 해준다.
If fileExt = "H" Or fileExt = "HPP" Then
ActiveDocument().Selection.StartOfDocument(False)
selection = ActiveDocument().Selection
includeGuard = "__" + UCase(fileName) + "_" + fileExt + "__" + Lf
' 파일 헤더 추가.
selection.Text = commentLine + CStr(Lf)
selection.Text += "/// \file " + ActiveDocument().Name + CStr(Lf)
selection.Text += "/// \author " + author + CStr(Lf)
selection.Text += "/// \date " + dateString + CStr(Lf)
selection.Text += commentLine + CStr(Lf) + CStr(Lf)
' 인클루드 가드 추가.
If usePragmaOnce Then
selection.Text += "#pragma once" + CStr(Lf) + CStr(Lf)
Else
selection.Text += "#ifndef " + includeGuard + "#define " + includeGuard + CStr(Lf) + CStr(Lf)
End If
' 클래스 설명문 추가.
selection.Text += commentLine + CStr(Lf)
selection.Text += "/// \class " + className + CStr(Lf)
selection.Text += "/// \brief " + CStr(Lf)
selection.Text += commentLine + CStr(Lf) + CStr(Lf)
' 클래서 선언 및 생성자 & 소멸자 추가.
selection.Text += "class " + className + CStr(Lf)
selection.Text += "{" + CStr(Lf)
selection.Text += "private:" + CStr(Lf) + CStr(Lf)
selection.Text += "public:" + CStr(Lf)
selection.Text += "/// \brief 생성자" + CStr(Lf)
selection.Text += className + "();" + CStr(Lf) + CStr(Lf)
selection.Text += "/// \brief 소멸자" + CStr(Lf)
selection.Text += "virtual ~" + className + "();" + CStr(Lf) + CStr(Lf) + CStr(Lf)
selection.Text += "public:" + CStr(Lf) + CStr(Lf)
selection.Text += "};" + CStr(Lf)
' 인클루드 가드 마무리.
If Not usePragmaOnce Then
ActiveDocument().Selection.EndOfDocument(False)
selection.Text = CStr(Lf) + "#endif //" + includeGuard
End If
ElseIf fileExt = "C" Or fileExt = "CPP" Or fileExt = "CC" Then
ActiveDocument().Selection.StartOfDocument(False)
selection = ActiveDocument().Selection
' 파일 헤더 추가.
selection.Text = commentLine + CStr(Lf)
selection.Text += "/// \file " + ActiveDocument().Name + CStr(Lf)
selection.Text += "/// \author " + author + CStr(Lf)
selection.Text += "/// \date " + dateString + CStr(Lf)
selection.Text += commentLine + CStr(Lf) + CStr(Lf)
' 인클루드 파일 추가.
selection.Text += "#include " + CStr(Quote) + pchName + CStr(Quote) + CStr(Lf)
selection.Text += "#include " + CStr(Quote) + fileName + ".h" + CStr(Quote) + CStr(Lf)
selection.Text += CStr(Lf)
' 생성자 추가.
selection.Text += commentLine + CStr(Lf)
selection.Text += "/// \brief 생성자" + CStr(Lf)
selection.Text += commentLine + CStr(Lf)
selection.Text += className + "::" + className + "()" + CStr(Lf)
selection.Text += "{" + CStr(Lf)
selection.Text += "}" + CStr(Lf) + CStr(Lf)
' 소멸자 추가.
selection.Text += commentLine + CStr(Lf)
selection.Text += "/// \brief 소멸자" + CStr(Lf)
selection.Text += commentLine + CStr(Lf)
selection.Text += className + "::~" + className + "()" + CStr(Lf)
selection.Text += "{" + CStr(Lf)
selection.Text += "}" + CStr(Lf) + CStr(Lf)
ActiveDocument().Selection.EndOfDocument(False)
Else
MsgBox("이 매크로는 C/C++ 소스 파일에서만 동작합니다.")
End If
End Sub
10 함수 설명 집어넣기
Sub AddFunctionDescriptionEx()
' 설명: doxygen 스타일의 함수 설명문을 추가한다.
Dim header, prms As String
Dim functionName, description As String
Dim iPrm, iPrmA As Integer
Dim selection As TextSelection
Dim returnType As String
Dim commentLine As String
Dim p, l As Integer
If (ActiveDocument() Is Nothing) Then
Exit Sub
End If
commentLine = "////////////////////////////////////////////////////////////////////////////////"
If ActiveDocument().Language = EnvDTE.Constants.dsCPP Or ActiveDocument().Language = "CSharp" Then
selection = DTE.ActiveDocument.Selection()
Trim(selection.Text)
header = ""
If selection.Text <> "" Then
header = StripTabs(Trim(selection.Text))
End If
'Get the function return type.
If header <> "" Then
If ActiveDocument().Language = "CSharp" Then
'skip the protection info (public/private ...)
header = Right(header, Len(header) - InStr(header, " "))
End If
Reti = InStr(header, " ")
Loc1 = InStr(header, "(")
If Reti < Loc1 Then
returnType = Left(header, Loc1 - 1)
header = Right(header, Len(header) - Reti)
End If
returnType = Left(returnType, InStr(returnType, " "))
'Get the function name.
Loc1 = InStr(header, "(") - 1
Loc2 = InStr(header, ")")
If Loc1 > 0 And Loc2 > 0 Then 'make sure there is a '(' and a ')'
functionName = Left(header, Loc1)
header = Right(header, Len(header) - Len(functionName))
'Do we have storage type on the return type?
Trim(functionName)
If InStr(functionName, " ") <> 0 Then
returnType = returnType + Left(functionName, InStr(functionName, " "))
functionName = Right(functionName, Len(functionName) - InStr(functionName, " "))
End If
'Get the function parameters.
iPrm = 0
iPrmA = 0
prms = header
'Count the number of parameters.
Do While InStr(prms, ",") <> 0
iPrm = iPrm + 1
prms = Right(prms, Len(prms) - InStr(prms, ","))
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(header, ",") <> 0
ParamArr(iPrm - 1) = Left(header, InStr(header, ",") - 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), " (")))))
Trim(ParamArr(iPrm))
End If
header = Right(header, Len(header) - InStr(header, ","))
iPrm = iPrm - 1
Loop
ParamArr(iPrm - 1) = header
'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)
Trim(ParamArr(iPrm - 1))
End If
Else 'Possibly one param.
ReDim ParamArr(1)
header = Right(header, Len(header) - 1) ' Strip the first brace.
Trim(header)
ParamArr(0) = StripTabs(header)
If InStr(ParamArr(0), ")") <> 1 Then
ParamArr(0) = Left(ParamArr(0), InStr(ParamArr(0), ")") - 1)
Trim(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()
selection = DTE.ActiveDocument.Selection()
'selection.text = Lf
description = commentLine + CStr(Lf)
description += "/// \brief " + CStr(Lf)
If (iPrmA <> 0) Then
description += "/// " + 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))))))
Trim(ParamArr(iPrmA - 1))
End If
ParamArr(iPrmA - 1) = StripTabs(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 = Trim(Right(ParamArr(iPrmA - 1), Len(ParamArr(iPrmA - 1)) - RealIndex))
If (Len(RealParam) > 0 And InStr(RealParam, "void") = 0) Then
description = description + "/// \param " + RealParam + " " + CStr(Lf)
End If
iPrmA = iPrmA - 1
Loop
returnType = Trim(returnType)
If (Len(returnType) > 0 And InStr(returnType, "void") = 0) Then
description += "/// \return " + returnType + CStr(Lf)
End If
description += commentLine + CStr(Lf)
selection = DTE.ActiveDocument.Selection()
selection.Text = description
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
11 H <-> CPP 전환하기
'DESCRIPTION: Opens the corresponding .h / .cpp file
Sub GetFriendFile()
currentFileName = Application.ActiveDocument.FullName
newFileName = ""
If (UCase(Right(currentFileName, 2)) = ".H") Then
newFileName = Left(currentFileName, Len(currentFileName) - 2) + ".CPP"
ElseIf (UCase(Right(currentFileName, 4)) = ".CPP") Then
newFileName = Left(currentFileName, Len(currentFileName) - 4) + ".H"
End If
On Error Resume Next
If newFileName <> "" Then
Application.Documents.Open(newFileName)
If (Err.Number <> 0) Then
MsgBox("Error opening corresponding file - " & Err.Description)
End If
End If
End Sub
12 그룹 구문 집어넣기
Sub AddMemberGroupDescription()
'DESCRIPTION: Adds memver group description template for doxygen.
Dim selection As TextSelection
selection = ActiveDocument().Selection
selection.Text = selection.Text + "/// \name " + CStr(Lf)
selection.Text = selection.Text + "/// \{ " + CStr(Lf)
selection.Text = selection.Text + "/// \brief " + CStr(Lf)
selection.Text = selection.Text + "/// \} " + CStr(Lf)
End Sub
13 자동으로 Accessor 생성하기
Function ParseVariableDeclarations( _
ByVal strText As String, ByRef colTypes As Collection, ByRef colNames As Collection, ByRef colComments As Collection)
' 다음과 같은 형태의 구문을 읽어들여서 타입과 변수 이름의 배열을 생성한다.
'
' SkillId_t m_SkillId; ///< 스킬의 종류.
' cTraitDataEx m_CasterData; ///< 스킬로 인해 변한 시전자의 파라미터.
' ObjectId_t m_PrimaryTarget; ///< 주 대상의 OID.
'
' types[1] = "SkillId_t", names[1] = "m_SkillId"
' types[2] = "cTraitDataEx", names[2] = "m_CasterData"
' types[3] = "ObjectId_t", names[3] = "m_PrimaryTarget"
arrLines = strText.Split(Lf)
For Each line In arrLines
strLine = line
' 좌우 공백 제거
strLine = Trim(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
' 라인 제일 처음 나오는 ';' 글자와 ';' 글자 앞에서 제일 처음 나타나는 ' ' 글자를 찾는다.
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 = Trim(Mid(strLine, 1, nSpacePos))
strVarName = Trim(Mid(strLine, nSpacePos, nSemicolonPos - nSpacePos))
strVarComment = ""
If nSemicolonPos <> 0 Then
strVarComment = Trim(Mid(strLine, nSemicolonPos + 1, Len(strLine) - nSemicolonPos))
End If
strVarType = Trim(Replace(strVarType, vbTab, " "))
strVarName = Trim(Replace(strVarName, vbTab, " "))
strVarComment = Trim(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 GenerateAccessor(ByVal strVarType As String, ByVal strVarName As String, ByVal strMode As String)
Dim strResult As String
If strVarType <> "" And strVarName <> "" Then
Dim objRegex As New System.Text.RegularExpressions.Regex("")
Dim colBasicTypes As New System.Collections.Generic.Dictionary(Of String, String)
Dim objStream As New System.Text.StringBuilder
' 대문자로만 이루어졌지만, 구조체로 취급하지 않을 타입들 생성
colBasicTypes.Add("DWORD", "")
colBasicTypes.Add("BOOL", "")
colBasicTypes.Add("BYTE", "")
colBasicTypes.Add("WORD", "")
colBasicTypes.Add("FLOAT", "")
colBasicTypes.Add("PFLOAT", "")
colBasicTypes.Add("PBOOL", "")
colBasicTypes.Add("LPBOOL", "")
colBasicTypes.Add("PBYTE", "")
colBasicTypes.Add("LPBYTE", "")
colBasicTypes.Add("PINT", "")
colBasicTypes.Add("LPINT", "")
colBasicTypes.Add("PWORD", "")
colBasicTypes.Add("LPWORD", "")
colBasicTypes.Add("LPLONG", "")
colBasicTypes.Add("PDWORD", "")
colBasicTypes.Add("LPDWORD", "")
colBasicTypes.Add("LPVOID", "")
colBasicTypes.Add("LPCVOID", "")
colBasicTypes.Add("INT", "")
colBasicTypes.Add("UINT", "")
colBasicTypes.Add("PUINT", "")
colBasicTypes.Add("WPARAM", "")
colBasicTypes.Add("LPARAM", "")
colBasicTypes.Add("LRESULT", "")
' 필드 이름 생성
Dim strFieldName As String
strFieldName = strVarName
If Left(strFieldName, 2) = "m_" Then
strFieldName = Right(strFieldName, Len(strFieldName) - 2)
End If
If objRegex.IsMatch(strFieldName, "^[a-z]+[^a-z].+$") Then
strFieldName = objRegex.Replace(strFieldName, "^([a-z]+)([^a-z].+)$", "$2")
End If
' POD인지 아닌지 체크
Dim bComplexType = False
If objRegex.IsMatch(strVarType, "^c[A-Z][A-Za-z0-9]+[^\*\&]$") Then
' cDateTime, cTokenizer
bComplexType = True
ElseIf objRegex.IsMatch(strVarType, "^[A-Z0-9_]+[^\*\&]$") And Not colBasicTypes.ContainsKey(strVarType) Then
' D3DXVECTOR, OVERLAPPED
bComplexType = True
ElseIf objRegex.IsMatch(strVarType, "^.+<.+>$") Then
' std::vector<int>, cMyTemplate<bool>
bComplexType = True
End If
' 몇 가지 타입은 따로 처리
If strVarType = "std::string" Then strVarType = "const std::string&"
If strVarType = "tstring" Then strVarType = "const tstring&"
' Getter? Setter?
If strMode = "Getter" Then
If bComplexType Then
strResult += strVarType + "& Get" + strFieldName + "() { return " + strVarName + "; }" + CStr(Lf)
strResult += "const " + strVarType + "& Get" + strFieldName + "() const { return " + strVarName + "; }" + CStr(Lf)
ElseIf strVarType = "bool" Or strVarType = "BOOL" Then
strResult += strVarType + " Is" + strFieldName + "() const { return " + strVarName + "; }" + CStr(Lf)
Else
strResult += strVarType + " Get" + strFieldName + "() const { return " + strVarName + "; }" + CStr(Lf)
End If
Else
If bComplexType Then
strResult += "void Set" + strFieldName + "(const " + strVarType + "& value) { " + strVarName + " = value; }" + CStr(Lf) + CStr(Lf)
ElseIf strVarType = "bool" Or strVarType = "BOOL" Then
strResult += "void Set" + strFieldName + "(" + strVarType + " value) { " + strVarName + " = value; }" + CStr(Lf) + CStr(Lf)
Else
strResult += "void Set" + strFieldName + "(" + strVarType + " value) { " + strVarName + " = value; }" + CStr(Lf) + CStr(Lf)
End If
End If
End If
Return strResult
End Function
Sub MakeSimpleGetterSetter()
Dim objSel As TextSelection
Dim colTypes As New Collection
Dim colNames As New Collection
Dim colComments As New Collection
Dim objStream As New System.Text.StringBuilder
objSel = ActiveDocument().Selection
ParseVariableDeclarations(Trim(objSel.Text), colTypes, colNames, colComments)
For i = 1 To colNames.Count
objStream.Append(GenerateAccessor(colTypes.Item(i), colNames.Item(i), "Getter"))
objStream.Append(GenerateAccessor(colTypes.Item(i), colNames.Item(i), "Setter"))
Next
objSel.Text = objStream.ToString()
End Sub
아래는 현재 프로젝트에서 패킷 구현을 쉽게 하기 위해 사용하는 매크로.
Sub MakePacketInterface()
Dim colTypes As New Collection
Dim colNames As New Collection
Dim colComments As New Collection
Dim nCount As Integer
Dim objStream As New System.Text.StringBuilder
ParseVariableDeclarations(Trim(ActiveDocument().Selection.Text), colTypes, colNames, colComments)
'------------------------------------------------------------------------------------------
objStream.Append("public:" + CStr(Lf))
objStream.Append("/// \brief 패킷의 실제 길이를 반환한다." + CStr(Lf))
objStream.Append("virtual PacketSize_t GetSize() const" + CStr(Lf))
objStream.Append("{" + CStr(Lf))
If colNames.Count = 1 Then
If colNames.Item(1) <> "" Then
objStream.Append("return bytes(" + colNames.Item(1) + ");" + CStr(Lf))
End If
Else
nCount = 1
For Each strLine In colNames
If strLine <> "" Then
If nCount = 1 Then
objStream.Append("return bytes(" + strLine + ") +" + CStr(Lf))
ElseIf nCount = colNames.Count Then
objStream.Append("bytes(" + strLine + ");" + CStr(Lf))
Else
objStream.Append("bytes(" + strLine + ") +" + CStr(Lf))
End If
End If
nCount = nCount + 1
Next
End If
objStream.Append("}" + CStr(Lf) + CStr(Lf))
'------------------------------------------------------------------------------------------
objStream.Append("/// \brief 패킷의 최대 길이를 반환한다." + CStr(Lf))
objStream.Append("virtual PacketSize_t GetMaxSize() const" + CStr(Lf))
objStream.Append("{" + CStr(Lf))
If colNames.Count = 1 Then
If colNames.Item(1) <> "" Then
objStream.Append("return max_bytes(" + colNames.Item(1) + ");" + CStr(Lf))
End If
Else
nCount = 1
For Each strLine In colNames
If strLine <> "" Then
If nCount = 1 Then
objStream.Append("return max_bytes(" + strLine + ") +" + CStr(Lf))
ElseIf nCount = colNames.Count Then
objStream.Append("max_bytes(" + strLine + ");" + CStr(Lf))
Else
objStream.Append("max_bytes(" + strLine + ") +" + CStr(Lf))
End If
End If
nCount = nCount + 1
Next
End If
objStream.Append("}" + CStr(Lf) + CStr(Lf))
'------------------------------------------------------------------------------------------
objStream.Append("/// \brief 패킷 내부 데이터를 직렬화하여 바이트 버퍼에다 쓴다." + CStr(Lf))
objStream.Append("virtual PacketSize_t Marshall(cSocketStream& oBuffer) const" + CStr(Lf))
objStream.Append("{" + CStr(Lf))
objStream.Append("PacketSize_t count = 0;" + CStr(Lf))
For Each strLine In colNames
If strLine <> "" Then
objStream.Append("count += oBuffer.Write(" + strLine + ");" + CStr(Lf))
End If
Next
objStream.Append("return count; " + CStr(Lf))
objStream.Append("}" + CStr(Lf) + CStr(Lf))
'------------------------------------------------------------------------------------------
objStream.Append("/// \brief 바이트 버퍼에서 데이터를 읽어들여 패킷 객체를 구성한다." + CStr(Lf))
objStream.Append("virtual PacketSize_t Unmarshall(cSocketStream& iBuffer)" + CStr(Lf))
objStream.Append("{" + CStr(Lf))
objStream.Append("PacketSize_t count = 0;" + CStr(Lf))
For Each strLine In colNames
If strLine <> "" Then
objStream.Append("count += iBuffer.Read(" + strLine + ");" + CStr(Lf))
End If
Next
objStream.Append("return count; " + CStr(Lf))
objStream.Append("}" + CStr(Lf) + CStr(Lf) + CStr(Lf))
'------------------------------------------------------------------------------------------
objStream.Append("public:" + CStr(Lf))
objStream.Append("/// \name Simple getter/setter" + CStr(Lf))
objStream.Append("/// \{" + CStr(Lf))
For i = 1 To colNames.Count
objStream.Append(GenerateAccessor(colTypes.Item(i), colNames.Item(i), "Getter"))
objStream.Append(GenerateAccessor(colTypes.Item(i), colNames.Item(i), "Setter"))
Next
objStream.Append("/// \}" + CStr(Lf) + CStr(Lf))
'------------------------------------------------------------------------------------------
ActiveDocument().Selection.Text = objStream.ToString()
End Sub
14 문자열 검색
Sub QuickFind()
' 현재 선택된 단어가 있다면 다음에 있는 해당 단어를 찾고,
' 선택된 단어가 없다면 찾기 대화창을 띄운다.
Dim doc
doc = ActiveDocument()
If doc Is Nothing Then
Exit Sub
ElseIf doc.Type <> "Text" Then
Exit Sub
End If
lookFor = doc.Selection.Text
curLine = doc.Selection.CurrentLine
curCol = doc.Selection.CurrentColumn
If Len(lookFor) = 0 Then
ExecuteCommand("Edit.FindNext")
If Len(doc.Selection.Text) = 0 Then
ExecuteCommand("Edit.Find")
End If
Else
doc.Selection.Cancel()
doc.Selection.MoveTo(curLine, curCol)
doc.Selection.FindText(lookFor)
End If
End Sub
SeriousMoin v1 (koMoinMoin 1.0a4 Modified)
![[WWW]](/img/moin-www.gif){kind=small}
http://www.codeproject.com/macro/collapseall.asp?df=100&forumid=7565&exp=0&select=396167