Source Insight 批量注释宏

Source Insight没有批量注释的功能。相当的不方便。

在网上找的大多都不能用。以下这个宏试验过完全正常。

将下面的代码保存为codecomm.em并添加到工程,在Options->Menu Assignments中就可以看到这个宏CodeComments,给这个宏添加热键.

执行一次，就会把选中的代码用//注释掉，再执行一次，又会把//取消掉。

macro CodeComments(){//多行注释
 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 )
}