为VC++6.0 添加批量注释和批量取消注释 vcscript脚本
'------------------------------------------'FILE DESCRIPTION: 为开发环境添加批量注释或取消注释'------------------------------------------Sub SetSelNote() 'Sun DESCRIPTION:过程SetSellNote用于将选中的文本转换为注释 dim CurWin set CurWin = ActiveWindow if CurWin.type<>"Text" Then MsgBox "当前窗口不是代码窗口" else NoteType = "//" BeginLine = ActiveDocument.selection.TopLine EndLine = ActiveDocument.Selection.BottomLine if EndLine < BeginLine Then line = BeginLine BeginLine = EndLine EndLine = Line else for row = BeginLine To EndLine ActiveDocument.Selection.GoToLine row ActiveDocument.Selection.SelectLine ActiveDocument.Selection = NoteType+ActiveDocument.Selection Next End if End ifEnd SubSub CancelSelNote() dim CurWin set CurWin = ActiveWindow if CurWin.type<>"Text" Then MsgBox "当前窗口不是代码窗口" else BeginLine = ActiveDocument.Selection.TopLine EndLine = ActiveDocument.Selection.BottomLine if EndLine < BeginLine Then Line = BeginLine BeginLine = EndLine EndLine = Line else for row = BeginLine To EndLine ActiveDocument.Selection.GoToLine row ActiveDocument.Selection.SelectLine SelBlock = ActiveDocument.Selection Trim(SelBlock) pos = instr(SelBlock, "//") if pos <> 0 then RightBlock = Right(SelBlock, Len(SelBlock)-2) ActiveDocument.Selection = RightBlock End if Next End if End ifEnd Sub
VC++注释, VC++6.0批量注释, 批量添加注释, VC++注释vcscript脚本
