CVF注释多行的宏命令[转贴]

风花雪月

不止一位问道可不可以在CVF中为多行代码加注释。
CVF本身无这样的功能，但是可以用macro功能自己添!而且是添加工具钮！
俺初步试验成功，虽然在容错性方面还可以改进，但已经基本够用，特奉献给大家。

做法：

(1) 在..\Microsoft Visual Studio\Common\MSDEV98\MACROS文件夹下生成文件GrpComment.dsm
(2) 用文本编辑器打开该文件，将以下所附的代码贴在其中，保存（注意保留.dsm后缀）
(3) 启动CVF，选Tools=>Customize=>Add-ins and Macro Files
(4) 在GrpComment前打勾，去掉其他的勾
(5) 在同一对话框中选Commands=>Macros，此时在右边可以看见CommentDel和CommentOut
(6) 选中CommentOut，拖到CVF的工具栏上去（添加工具钮），会弹出Button Appearance对话框
(7) 选Image and text，在下边Button text框中输入名称（默认是CommentOut），如“加注释”
(8) 类似的方法再将CommentDel命令以工具钮的形式添加到工具栏上，名称可取为“去注释”

这时，工具栏上应该多了两个工具钮：“加注释”和“去注释”。

用法：

加注释：选择要加注释的多行代码，点击“加注释”按钮即可；
去注释：选择已经注释的多行代码，点击“去注释”按钮即可。

适用：后缀为f90或f77的代码文件。

Enjoy!!!


VBscript代码：

1. Function FileType (ByVal doc)
   
2. 
   
3.     ext = doc.Name
   
4. 
   
5.     FileType = 0
   
6. 
   
7.     pos = Instr(ext, ".")
   
8. 
   
9.     if pos > 0 then
   
10. 
    
11.         Do While pos <> 1
    
12. 
    
13.             ext = Mid(ext, pos, Len(ext) - pos + 1)
    
14. 
    
15.             pos = Instr(ext, ".")
    
16. 
    
17.         Loop
    
18. 
    
19.         ext = LCase(ext)
    
20. 
    
21.     end if
    
22. 
    
23.     If ext = ".f90" Then
    
24. 
    
25.         FileType = 8
    
26. 
    
27.     ElseIf ext = ".for" Then
    
28. 
    
29.         FileType = 9
    
30. 
    
31.     Else
    
32. 
    
33.         FileType = 0
    
34. 
    
35.     End If
    
36. 
    
37. End Function

复制代码

1. Sub CommentOut ()
   
2. 
   
3. 'DESCRIPTION: 为所选的多行代码加注释
   
4. 
   
5.     Dim win
   
6. 
   
7.     set win = ActiveWindow
   
8. 
   
9.     if win.type <> "Text" Then
   
10. 
    
11.       MsgBox "This macro can only be run when a text editor window is active."
    
12. 
    
13.     else
    
14. 
    
15.         TypeOfFile = FileType(ActiveDocument)  
    
16. 
    
17.         If TypeOfFile = 8 Or TypeOfFile = 9 Then
    
18. 
    
19. 
    
20. 
    
21.             If TypeOfFile = 8 Then
    
22. 
    
23.                 CommentType = "! "  ' Fortran 90 file
    
24. 
    
25.             Else
    
26. 
    
27.                 CommentType = "C "  ' Fortran 77 file
    
28. 
    
29.             End If
    
30. 
    
31.      
    
32. 
    
33.             StartLine = ActiveDocument.Selection.TopLine
    
34. 
    
35.             EndLine = ActiveDocument.Selection.BottomLine
    
36. 
    
37.             If EndLine < StartLine Then
    
38. 
    
39.                 Temp = StartLine
    
40. 
    
41.                 StartLine = EndLine
    
42. 
    
43.                 EndLine = Temp
    
44. 
    
45.             End If
    
46. 
    
47. 
    
48. 
    
49.             If EndLine = StartLine Then
    
50. 
    
51.                 ActiveDocument.Selection.SelectLine
    
52. 
    
53.                 ActiveDocument.Selection = CommentType + ActiveDocument.Selection
    
54. 
    
55. 
    
56. 
    
57.             Else
    
58. 
    
59.                 For i = StartLine To EndLine
    
60. 
    
61.                     ActiveDocument.Selection.GoToLine i
    
62. 
    
63.                     ActiveDocument.Selection.SelectLine
    
64. 
    
65.                     ActiveDocument.Selection = CommentType + _
    
66. 
    
67.                         ActiveDocument.Selection
    
68. 
    
69.                 Next
    
70. 
    
71.             End If
    
72. 
    
73.         else
    
74. 
    
75.             MsgBox("Unable to comment out the highlighted text" + vbLf + _
    
76. 
    
77.                     "because the file type was unrecognized." + vbLf + _
    
78. 
    
79.                     "If the file has not yet been saved, " + vbLf + _
    
80. 
    
81.                     "please save it and try again.")
    
82. 
    
83.         End If
    
84. 
    
85.     End If
    
86. 
    
87. End Sub

复制代码

1. Sub CommentDel ()
   
2. 
   
3. 'DESCRIPTION: 去除所选的多行代码的注释
   
4. 
   
5.     Dim win
   
6. 
   
7.     set win = ActiveWindow
   
8. 
   
9.     if win.type <> "Text" Then
   
10. 
    
11.         MsgBox "This macro can only be run when a text editor window is active."
    
12. 
    
13.     else
    
14. 
    
15.         TypeOfFile = FileType(ActiveDocument)  
    
16. 
    
17.         If TypeOfFile = 8 Or TypeOfFile = 9 Then
    
18. 
    
19. 
    
20. 
    
21.             StartLine = ActiveDocument.Selection.TopLine
    
22. 
    
23.             EndLine = ActiveDocument.Selection.BottomLine
    
24. 
    
25.             If EndLine < StartLine Then
    
26. 
    
27.                 Temp = StartLine
    
28. 
    
29.                 StartLine = EndLine
    
30. 
    
31.                 EndLine = Temp
    
32. 
    
33.             End If
    
34. 
    
35. 
    
36. 
    
37.             If EndLine = StartLine Then
    
38. 
    
39.                 ActiveDocument.Selection.SelectLine
    
40. 
    
41.                 ActiveDocument.Selection = mid(ActiveDocument.Selection, 3)
    
42. 
    
43.             Else
    
44. 
    
45.                 For i = StartLine To EndLine
    
46. 
    
47.                     ActiveDocument.Selection.GoToLine i
    
48. 
    
49.                     ActiveDocument.Selection.SelectLine
    
50. 
    
51.                     ActiveDocument.Selection = mid(ActiveDocument.Selection, 3)
    
52. 
    
53.                 Next
    
54. 
    
55.             End If
    
56. 
    
57.         else
    
58. 
    
59.             MsgBox("Unable to comment out the highlighted text" + vbLf + _
    
60. 
    
61.                     "because the file type was unrecognized." + vbLf + _
    
62. 
    
63.                     "If the file has not yet been saved, " + vbLf + _
    
64. 
    
65.                     "please save it and try again.")
    
66. 
    
67.         End If
    
68. 
    
69.     End If
    
70. 
    
71. End Sub

复制代码

来自编程爱好者mltx