Source Insight中代码块注释

转载：http://blog.csdn.net/cindylx422/article/details/7560786

 

修改工程目录下的utils.em文件，将下面代码添加到末尾，然后将此文件添加到工程中才会起作用

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)  
	}  

　　为其添加快捷键alt+1