선택 영역에 줄번호 붙여주는 매크로


간혹, 자신이 만든 소스에 대해서 줄 번호를 매겨서 설명을 해야 하는 경우가 있습니다. 이럴때, 여기서 제공되는 매크로를 사용하면 <그림 1>과 같이 줄 번호가 매겨진 소스코드를 얻을 수 있습니다.


<그림 1 - 줄 번호가 추가된 소스코드>


실제 코드는 다음의 <소스 1>과 같으며 Visual Studio 의 'Tools|Customize...' 메뉴에서 Add-in and Macro Files 탭에서 추가하면 됩니다.


'-------------------------------------------------------------

'FILE DESCRIPTION: Manage line numbering

'-------------------------------------------------------------





Private Function GetBlankCount(nCurrentLine, nLastLine)

    dim strCurrentLine

    dim strLastLine



    strCurrentLine = cstr(nCurrentLine)

    strLastLine = cstr(nLastLine)



    dim nDiff

    nDiff = len(strLastLine) - len(strCurrentLine)



    GetBlankCount = nDiff

end Function







Sub LineNumberOn()

'DESCRIPTION: Line number on



    Dim win

    set win = ActiveWindow

    if win.type <> "Text" Then

      MsgBox "text editor window is in-active."

    else

        DIM sel

        set sel = ActiveDocument.Selection



        dim topLine

        dim bottomLine



        topLine = sel.TopLine

        bottomLine = sel.BottomLine



        dim i

        i = 1



        dim line 

        line = sel.TopLine

        

        dim lineDiff

        lineDiff = bottomLine - topLine



        do while line <= bottomLine 

            sel.GoToLine line, dsSelect

            sel.text = String(GetBlankCount(i, lineDiff), " ") 

                    + cstr(i) + ":" + chr(9) + sel.text

            i = i + 1

            line = line + 1

        loop

    end if

End Sub

아래의 파일은 Visual Studio 가 설치되어 있는 폴더내에서 \Microsoft Visual Studio\Common\MSDev98\Macros 에 복사해 주시면 됩니다.

- 코드 다운로드 : LineNumber.dsm

- 2001.07.01 Smile Seo -