为VC++6.0 添加批量注释和批量取消注释 vcscript脚本

[plain]
'------------------------------------------------------------------------------ 
'FILE DESCRIPTION: 为开发环境添加批量注释或取消注释 
'------------------------------------------------------------------------------ 
Sub SetSelNote() 'Sun DESCRIPTION:过程SetSellNote用于将选中的文本转换为注释 
    dim CurWin 
    set CurWin = ActiveWindow 
    if CurWin.type<>"Text" Then 
        MsgBox "当前窗口不是代码窗口" 
    else 
        NoteType = "//" 
        BeginLine = ActiveDocument.selection.TopLine 
        EndLine = ActiveDocument.Selection.BottomLine 
        if EndLine < BeginLine Then 
            line = BeginLine 
            BeginLine = EndLine 
            EndLine = Line 
        else 
            for row = BeginLine To EndLine 
                ActiveDocument.Selection.GoToLine row 
                ActiveDocument.Selection.SelectLine 
                ActiveDocument.Selection = NoteType+ActiveDocument.Selection 
            Next 
        End if 
    End if 
End Sub 
 
Sub CancelSelNote() 
    dim CurWin 
    set CurWin = ActiveWindow 
    if CurWin.type<>"Text" Then 
        MsgBox "当前窗口不是代码窗口" 
    else 
        BeginLine = ActiveDocument.Selection.TopLine 
        EndLine = ActiveDocument.Selection.BottomLine 
        if EndLine < BeginLine Then 
            Line = BeginLine 
            BeginLine = EndLine 
            EndLine = Line 
        else 
            for row = BeginLine To EndLine 
                ActiveDocument.Selection.GoToLine row 
                ActiveDocument.Selection.SelectLine  
                SelBlock = ActiveDocument.Selection 
                Trim(SelBlock) 
                pos = instr(SelBlock, "//") 
                if pos <> 0 then 
                    RightBlock = Right(SelBlock, Len(SelBlock)-2) 
                    ActiveDocument.Selection = RightBlock 
                End if 
            Next 
        End if 
    End if 
End Sub 

补充：软件开发 , Vc ,