频道栏目
首页 > 程序开发 > 软件开发 > Vc > 正文
为VC++6.0 添加批量注释和批量取消注释 vcscript脚本
2012-10-17 13:18:04      个评论      
收藏   我要投稿

[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 
点击复制链接 与好友分享!回本站首页
相关TAG标签 注释 脚本
上一篇:[VC编程技巧]文件☞2.1EOF的误区
下一篇:Visual C++ 2012 Express 缺少windows 系统lib库解决方法
相关文章
图文推荐
点击排行

关于我们 | 联系我们 | 广告服务 | 投资合作 | 版权申明 | 在线帮助 | 网站地图 | 作品发布 | Vip技术培训 | 举报中心

版权所有: 红黑联盟--致力于做实用的IT技术学习网站