Source Insight 配置注释快捷键

ゝ一世哀愁。 2023-07-11 15:10 31阅读 0赞

1.  说明
    
        1. 修改快捷键：Options->Key Assignments…（配置个人快捷菜单）
        2.  添加一些配置文件宏，比如：注释掉代码：单行注释、多行注释，将选中内容注释掉；在一行代码的前、后添加注释性文字等。
        3. 打开Projcet->Open project，选择base，可以看到utils.em文件，将下列宏添加到该文件中，并在其他工程里加入该文件
        4. 然后在Options->Key Assignments中就可以看到这个宏了，宏的名字是MultiLineComments，然后我们为它分配快捷键（Assign New Key..  --> 弹出窗口后 --> 按下Ctrl + q --> 点击OK）（“Ctrl + q”跟NotePad++一直，习惯了）
        5. 其它快捷键注释自己添加
2.  单行、多行注释
    
        macro MultiLineComment()
        { 
            hwnd = GetCurrentWnd()
            selection = GetWndSel(hwnd)
            LnFirst = GetWndSelLnFirst(hwnd)      //取首行行号
            LnLast = GetWndSelLnLast(hwnd)      //取末行行号
            hbuf = GetCurrentBuf()
         
            if(GetBufLine(hbuf, 0) == "//magic-number:tph85666031"){ 
                stop
            }
         
            Ln = Lnfirst
            buf = GetBufLine(hbuf, Ln)
            len = strlen(buf)
         
            while(Ln <= Lnlast) { 
                buf = GetBufLine(hbuf, Ln)  //取Ln对应的行
                if(buf == ""){                     //跳过空行
                    Ln = Ln + 1
                    continue
             }
        
            if(StrMid(buf, 0, 1) == "/") {        //需要取消注释,防止只有单字符的行
                if(StrMid(buf, 1, 2) == "/"){ 
                    PutBufLine(hbuf, Ln, StrMid(buf, 2, Strlen(buf)))
                }
            }
        
            if(StrMid(buf,0,1) != "/"){           //需要添加注释
                PutBufLine(hbuf, Ln, Cat("//", buf))
            }
            Ln = Ln + 1
        }
        
        SetWndSel(hwnd, selection)
        }
3.  添加“\#ifdef 0”和“\#endif”的宏代码，定义快捷键为Ctrl+\#
    
        macro AddMacroComment()
        { 
            hwnd=GetCurrentWnd()
            sel=GetWndSel(hwnd)
            lnFirst=GetWndSelLnFirst(hwnd)
            lnLast=GetWndSelLnLast(hwnd)
            hbuf=GetCurrentBuf()
         
            if(LnFirst == 0) { 
                    szIfStart = ""
            }else{ 
                    szIfStart = GetBufLine(hbuf, LnFirst-1)
            }
            szIfEnd = GetBufLine(hbuf, lnLast+1)
            if(szIfStart == "#if 0" && szIfEnd == "#endif") { 
                    DelBufLine(hbuf, lnLast+1)
                    DelBufLine(hbuf, lnFirst-1)
                    sel.lnFirst = sel.lnFirst – 1
                    sel.lnLast = sel.lnLast – 1
            }else{ 
                    InsBufLine(hbuf, lnFirst, "#if 0")
                    InsBufLine(hbuf, lnLast+2, "#endif")
                    sel.lnFirst = sel.lnFirst + 1
                    sel.lnLast = sel.lnLast + 1
            }
         
            SetWndSel( hwnd, sel )
        }
4.  把光标所在的行注释掉，定义快捷键为Ctrl+\*：
    
        macro CommentSingleLine()
        { 
            hbuf = GetCurrentBuf()
            ln = GetBufLnCur(hbuf)
            str = GetBufLine (hbuf, ln)
            str = cat("/*",str)
            str = cat(str,"*/")
            PutBufLine (hbuf, ln, str)
        }
5.  将一行中鼠标选中部分注释掉，定义快捷键为Ctrl+shift+\*：
    
        macro CommentSelStr()
        { 
            hbuf = GetCurrentBuf()
            ln = GetBufLnCur(hbuf)
            str = GetBufSelText(hbuf)
            str = cat("/*",str)
            str = cat(str,"*/")
            SetBufSelText (hbuf, str)
        }