织梦CMS - 轻松建站从此开始!

罗索

Source Insight 批量注释 多行注释宏

落鹤生 发布于 2014-12-07 13:25 点击:次 
将下面的代码保存为xxx.em并添加到你的工程里,然后在选项 (Options)->菜单分配(Menu Assignments)中你就可以看到这个宏了,看不到可以重启si,同步一下试试。名字叫CodeComments,你可以给这个宏添加热键.
TAG: 批量加注释  SourceInsight  

将下面的代码保存为xxx.em并添加到你的工程里,然后在选项 (Options)->菜单分配(Menu Assignments)中你就可以看到这个宏了,看不到可以重启si,同步一下试试。名字叫CodeComments,你可以给这个宏添加热键.运行这 个宏可以让你当前选择的行在注释与取消注释间切换(只支持//的注释,不支持/**/的注释,而且/**/的注释并不怎么好)

//magic-number:tph85666031

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

(hfww)
本站文章除注明转载外,均为本站原创或编译欢迎任何形式的转载,但请务必注明出处,尊重他人劳动,同学习共成长。转载请注明:文章转载自:罗索实验室 [http://www.rosoo.net/a/201412/17136.html]
本文出处:博客园 作者:hfww 原文
顶一下
(0)
0%
踩一下
(0)
0%
------分隔线----------------------------
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
表情:
用户名: 验证码:点击我更换图片
栏目列表
将本文分享到微信
织梦二维码生成器
推荐内容