zoukankan      html  css  js  c++  java
  • 为VC++6.0 添加批量注释和批量取消注释 vcscript脚本

    '------------------------------------------------------------------------------
    '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
  • 相关阅读:
    解决JDBC连接MySQL 8时得异常:java.sql.SQLException: The server time zone value '�й���׼ʱ��' is unrecognized or represents more than one time zone.
    洛谷P2604(最大流+最小费用最大流)
    poj2411(状压dp)
    二轮前水题计划
    最近挖的坑
    关于我
    future
    mysql学习笔记
    vue踩坑记
    XSS漏洞学习笔记
  • 原文地址:https://www.cnblogs.com/pythonschool/p/2726415.html
Copyright © 2011-2022 走看看