Visual Studio IDE中快速进行h文件和cpp文件切换的宏

新建一个宏模块，把以下代码复制到模块中保存，然后选择“工具->选项->环境->键盘”，在显示命令包含中输入SourceHeaderJumper找到相应命令，选中后绑定一个快捷键即可。

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

    SubSourceHeaderJumper()

        'splitted file name

        DimSArr AsSystem.Array

        'new filename generated by macros

        DimNewFN AsString

        'file name base (without extention)

        DimFNBase AsString

        'file extention

        DimExt AsString

        'simple counter

        Dimi AsInteger

 

        IfDTE.ActiveDocument()Is NothingThen

            ExitSub

        EndIf

        SArr= DTE.ActiveDocument().Name().Split(".")

        'has file extention?

        If(SArr.GetLength(0)< 2)Then

            ExitSub

        EndIf

 

        'file name base

        FNBase= DTE.ActiveDocument().Path()

        Fori =0 ToSArr.GetLength(0)- 2

            FNBase= FNBase+ SArr(i)+ "."

        Next

 

        'file extention

        Ext= System.Convert.ToString(SArr(SArr.GetLength(0)- 1)).ToLower()

 

        'business logic

        If(Ext= "cpp")Or (Ext= "c")Then

            NewFN= FNBase+ "h"

        Else

            IfExt ="h" Then

                NewFN= FNBase+ "cpp"

                IfNot System.IO.File.Exists(NewFN)Then

                    NewFN= FNBase+ "c"

                EndIf

            EndIf

        EndIf

 

        'if you don't want add file to tabs uncomment next line

        'DTE.ActiveDocument().Close()

 

        'opens needed file

        IfSystem.IO.File.Exists(NewFN)Then

            DTE.ItemOperations.OpenFile(NewFN)

        EndIf

    EndSub

取自：

http://www.codeproject.com/KB/macros/SourceHeaderJumper.aspx

VisualStudio ,宏

C中传递变长参数的使用方法

VS2005编译使用tesseract-orc 2.04