VC6IDE环境宏辅助添加移除注释

VC6很老了（15年），当年的IDE功能不如现在的各种IDE功能丰富。

比如自动添加注释，就需要借助第三方插件或自己动手实现。

最近做些code试验，新装上了VC6，但是改代码时不能自动添加注释，很不爽，于是，翻出曾经伴随了很多年的这些玩意，顺便做个记录。

首先，将以下代码复制到记事本，另存为vcMacros.DSM，

 

'--VC6IDE宏辅助添加移除注释--
'2014-01-01

'--添加行注释--	//
Sub LineCommentAdd()
With ActiveDocument.Selection 
.ReplaceText "%", "//", dsMatchRegExpB
End With
End Sub
'--移除行注释--	//
Sub LineCommentUndo()
With ActiveDocument.Selection
.ReplaceText "%//", "", dsMatchRegExpB
End With
End Sub

'--添加行注释--	//--
Sub Comment2Add()
With ActiveDocument.Selection 
.ReplaceText "%", "//--", dsMatchRegExpB
End With
End Sub
'--移除行注释--	//--
Sub Comment2Undo()
With ActiveDocument.Selection
.ReplaceText "%//--", "", dsMatchRegExpB
End With
End Sub

'--添加行注释--	//xx_YYYY-MM-DD--
Sub CommentDateAdd()
sss = "//xx_" & year(date) & "-" & month(date) & "-" & day(date) & "--"
With ActiveDocument.Selection 
.ReplaceText "%", sss, dsMatchRegExpB
End With
End Sub
'--移除行注释--	//xx_YYYY-MM-DD--
Sub CommentDateUndo()
sss = "%//xx_" & year(date) & "-" & month(date) & "-" & day(date) & "--"
With ActiveDocument.Selection
.ReplaceText sss, "", dsMatchRegExpB
End With
End Sub

'--添加行注释--	//--debug ok--//
Sub CommentDebugAdd()
With ActiveDocument.Selection 
.ReplaceText "%", "//--debug ok--//", dsMatchRegExpB
End With
End Sub
'--移除行注释--	//--debug ok--//
Sub CommentDebugUndo()
With ActiveDocument.Selection
.ReplaceText "%//--debug ok--//", "", dsMatchRegExpB
End With
End Sub

VC6IDE，选择菜单Tools/Customize，在弹出的对话框上选择Add-ins and  Macro Files标签，在点Browse...按钮，

 

选择刚才存储的文件vcMacros.DSM，这个文件就会出现在左边，选中前面方框的勾，

再在对话框上选择Commands标签，然后选择Category下的Macro，

然后把LineCommentAdd和LineCommentUndo分别拖放到IDE上面的工具栏上，

其他几对如果愿意使用也可以拖放上去。

OK。。。好了之后在弄代码时就可以通过点工具栏上的相关按钮自动添加或删除注释了，添加或删除注释前需要选中相应代码。

提示，用CommentDateAdd可以添加注释时自动添加日期。。。

象这样，

 

//xx_2014-1-2--{
//xx_2014-1-2--	int i = 0;
//xx_2014-1-2--}

 

 

 

转载于:https://www.cnblogs.com/fuhaots2009/p/3503386.html