17.2 SourceInsight批量注释

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

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

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

macro CodeComments(){//多行注释
hwnd=GetCurrentWnd()
selection=GetWndSel(hwnd)
LnFirst=GetWndSelLnFirst(hwnd)//取首行行号
LnLast=GetWndSelLnLast(hwnd)//取末行行号
hbuf=GetCurrentBuf()
if(GetBufLine(hbuf,)=="//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+
continue
}
if(StrMid(buf,,)=="/"){//需要取消注释,防止只有单字符的行
if(StrMid(buf,,)=="/"){
PutBufLine(hbuf,Ln,StrMid(buf,,Strlen(buf)))
}
}
if(StrMid(buf,,)!="/"){//需要添加注释
PutBufLine(hbuf,Ln,Cat("//",buf))
}
Ln=Ln+
}
SetWndSel( hwnd, selection )
}

在使用SourceInsight过程中，根据自己的使用习惯修改它的默认快捷键，并且在配置文件中添加了一些人性化功能：

修改快捷键：Options->Key Assignments...

1.main window:Esc 2.Hight light:Middle Mouse

3.Go Back:Alt+z 4.Go Forward:Alt+x

5.Caller:Alt+c 6.Reference:Alt+r

7.Previous Link:Alt+a 8.Next Link:Alt+s

9.First Link:Alt+d

10.Go Line:Alt+g 11.Select Line:Alt+l

12.Symbol Win:Alt+q 13.Activate SW:Alt+w

14.Projcet Win:Alt+[ 15.Activate PW:Alt+]

16.Contex Win:Alt+， 17.Activate CW:Alt+.

18.Relation Win:Alt+； 19.Activate RW:Alt+'

20.Select All:Ctrl+a 21.Save All:Ctrl+Shift+a

22.Browse Project Symbols:Alt+b

添加一些配置文件宏，比如：注释掉代码：单行注释、多行注释，将选中内容注释掉；在一行代码的前、后添加注释性文字等。

打开Projcet->Open project，选择base，可以看到utils.em文件，将下列宏添加到该文件中，并在其他工程里加入该文件，

在上面介绍的快捷键添加方式里找到该宏并自定义快捷键。

单行、多行注释：

[plain] view plaincopy
macro MultiLineComment()
{
hwnd = GetCurrentWnd()
selection = GetWndSel(hwnd)
LnFirst = GetWndSelLnFirst(hwnd) //取首行行号
LnLast = GetWndSelLnLast(hwnd) //取末行行号
hbuf = GetCurrentBuf()
if(GetBufLine(hbuf, ) == "//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 +
continue
}
if(StrMid(buf, , ) == "/") { //需要取消注释,防止只有单字符的行
if(StrMid(buf, , ) == "/"){
PutBufLine(hbuf, Ln, StrMid(buf, , Strlen(buf)))
}
}
if(StrMid(buf,,) != "/"){ //需要添加注释
PutBufLine(hbuf, Ln, Cat("//", buf))
}
Ln = Ln +
} SetWndSel(hwnd, selection) }

将上面的代码保存到utils.em文件，打开source insight，将该文件添加到工程中，然后在Options->Key Assignments中你就可以看到这个宏了，宏的名字是MultiLineComments，然后我们为它分配快捷键“Ctrl + /”，然后就可以了。

这是一份添加“#ifdef 0”和“#endif”的宏代码，定义快捷键为Ctrl+#：

[plain] view plaincopy
macro AddMacroComment()
{
hwnd=GetCurrentWnd()
sel=GetWndSel(hwnd)
lnFirst=GetWndSelLnFirst(hwnd)
lnLast=GetWndSelLnLast(hwnd)
hbuf=GetCurrentBuf()
if(LnFirst == ) {
szIfStart = ""
}else{
szIfStart = GetBufLine(hbuf, LnFirst-)
}
szIfEnd = GetBufLine(hbuf, lnLast+)
if(szIfStart == "#if 0" && szIfEnd == "#endif") {
DelBufLine(hbuf, lnLast+)
DelBufLine(hbuf, lnFirst-)
sel.lnFirst = sel.lnFirst –
sel.lnLast = sel.lnLast –
}else{
InsBufLine(hbuf, lnFirst, "#if 0")
InsBufLine(hbuf, lnLast+, "#endif")
sel.lnFirst = sel.lnFirst +
sel.lnLast = sel.lnLast +
}
SetWndSel( hwnd, sel )
}

这份宏的代码可以把光标所在的行注释掉，定义快捷键为Ctrl+*：

[plain] view plaincopy
macro CommentSingleLine()
{
hbuf = GetCurrentBuf()
ln = GetBufLnCur(hbuf)
str = GetBufLine (hbuf, ln)
str = cat("/*",str)
str = cat(str,"*/")
PutBufLine (hbuf, ln, str)
}
将一行中鼠标选中部分注释掉，定义快捷键为Ctrl+shift+*：
[plain] view plaincopy
macro CommentSelStr()
{
hbuf = GetCurrentBuf()
ln = GetBufLnCur(hbuf)
str = GetBufSelText(hbuf)
str = cat("/*",str)
str = cat(str,"*/")
SetBufSelText (hbuf, str)
}