[转]Source Insight使用小技巧小结

Source Insight是一款强大的代码查看工具，本身支持扩展性很好。下面我们就介绍2个扩展用例。

1、快速打开当前文件所在的目录，这个功能类似于eclipse的easyshell插件，就是能快速定位到文件所在的目录，这个在代码查看的时候是很有好处的。

按照以下步骤，首先进入【option】->【Custom Commands】

自定的命令名，个人发挥，关键是填入 explorer.exe %d，

设置快捷键CTRL+T

也可以将自定义命令加入Menu菜单中

到此设置完毕，可以通过快捷键CTRL+T，直接打开当前文件所在的目录。

2、与eclipse中快捷方便的注释反注释相比较，sI是有点古板和不方便额。但是可以通过自定义的宏块来改善这个情况。

首先，打开Projcet->Open project，选择base，可以看到utils.em文件，将下列宏添加到该文件中。

MultiLineComment宏功能就是可以注释、反注释代码

1. macro MultiLineComment()
2. {
3. hwnd = GetCurrentWnd()
4. selection = GetWndSel(hwnd)
5. LnFirst = GetWndSelLnFirst(hwnd)      //取首行行号
6. LnLast = GetWndSelLnLast(hwnd)      //取末行行号
7. hbuf = GetCurrentBuf()
8. if(GetBufLine(hbuf, 0) == "//magic-number:tph85666031"){
9. stop
10. }
11. Ln = Lnfirst
12. buf = GetBufLine(hbuf, Ln)
13. len = strlen(buf)
14. while(Ln <= Lnlast) {
15. buf = GetBufLine(hbuf, Ln)  //取Ln对应的行
16. if(buf == ""){                    //跳过空行
17. Ln = Ln + 1
18. continue
19. }
20. if(StrMid(buf, 0, 1) == "/") {       //需要取消注释,防止只有单字符的行
21. if(StrMid(buf, 1, 2) == "/"){
22. PutBufLine(hbuf, Ln, StrMid(buf, 2, Strlen(buf)))
23. }
24. }
25. if(StrMid(buf,0,1) != "/"){          //需要添加注释
26. buf = Cat("//", buf)
27. if(Ln == Lnfirst){
28. buf = Cat(buf,"//removed by jhy")//注释作者信息
29. }
30. PutBufLine(hbuf, Ln, buf)
31. }
32. Ln = Ln + 1
33. }
34. SetWndSel(hwnd, selection)
35. }

1. macro MultiLineComment()
2. {
3. hwnd = GetCurrentWnd()
4. selection = GetWndSel(hwnd)
5. LnFirst = GetWndSelLnFirst(hwnd)      //取首行行号
6. LnLast = GetWndSelLnLast(hwnd)      //取末行行号
7. hbuf = GetCurrentBuf()
8. if(GetBufLine(hbuf, 0) == "//magic-number:tph85666031"){
9. stop
10. }
11. Ln = Lnfirst
12. buf = GetBufLine(hbuf, Ln)
13. len = strlen(buf)
14. while(Ln <= Lnlast) {
15. buf = GetBufLine(hbuf, Ln)  //取Ln对应的行
16. if(buf == ""){                    //跳过空行
17. Ln = Ln + 1
18. continue
19. }
20. if(StrMid(buf, 0, 1) == "/") {       //需要取消注释,防止只有单字符的行
21. if(StrMid(buf, 1, 2) == "/"){
22. PutBufLine(hbuf, Ln, StrMid(buf, 2, Strlen(buf)))
23. }
24. }
25. if(StrMid(buf,0,1) != "/"){          //需要添加注释
26. buf = Cat("//", buf)
27. if(Ln == Lnfirst){
28. buf = Cat(buf,"//removed by jhy")//注释作者信息
29. }
30. PutBufLine(hbuf, Ln, buf)
31. }
32. Ln = Ln + 1
33. }
34. SetWndSel(hwnd, selection)
35. }

保存后，打开新的工程：options->key assignments(设置快捷键)

到此为止，我们在代码中使用ALT+X的快捷键看看，效果如下：

3、我们再来贴一个快速插入时间的宏，类似于UltraEdit中的F7快捷键功能

1. macro MonthToName(MonthNum)
2. {
3. if (MonthNum== 1)
4. return "Jan"
5. if (MonthNum== 2)
6. return "Feb"
7. if (MonthNum== 3)
8. return "Mar"
9. if (MonthNum== 4)
10. return "Apr"
11. if (MonthNum== 5)
12. return "May"
13. if (MonthNum== 6)
14. return "Jun"
15. if (MonthNum== 7)
16. return "Jul"
17. if (MonthNum== 8)
18. return "Aug"
19. if (MonthNum== 9)
20. return "Sep"
21. if (MonthNum== 10)
22. return "Oct"
23. if (MonthNum== 11)
24. return "Nov"
25. if (MonthNum== 12)
26. return "Dec"
27. }
28. macro DisplayDate()
29. {
30. szTime = GetSysTime(1)
31. Day = szTime.Day
32. Month = szTime.Month
33. Year = szTime.Year
34. if (Day < 10)
35. szDay = "0@Day@"
36. else
37. szDay = Day
38. szMonth = MonthToName(Month)
39. hbuf = GetCurrentBuf()
40. SetBufSelText(hbuf, "@szMonth@ @szDay@, @Year@")
41. }

1. macro MonthToName(MonthNum)
2. {
3. if (MonthNum== 1)
4. return "Jan"
5. if (MonthNum== 2)
6. return "Feb"
7. if (MonthNum== 3)
8. return "Mar"
9. if (MonthNum== 4)
10. return "Apr"
11. if (MonthNum== 5)
12. return "May"
13. if (MonthNum== 6)
14. return "Jun"
15. if (MonthNum== 7)
16. return "Jul"
17. if (MonthNum== 8)
18. return "Aug"
19. if (MonthNum== 9)
20. return "Sep"
21. if (MonthNum== 10)
22. return "Oct"
23. if (MonthNum== 11)
24. return "Nov"
25. if (MonthNum== 12)
26. return "Dec"
27. }
28. macro DisplayDate()
29. {
30. szTime = GetSysTime(1)
31. Day = szTime.Day
32. Month = szTime.Month
33. Year = szTime.Year
34. if (Day < 10)
35. szDay = "0@Day@"
36. else
37. szDay = Day
38. szMonth = MonthToName(Month)
39. hbuf = GetCurrentBuf()
40. SetBufSelText(hbuf, "@szMonth@ @szDay@, @Year@"

转：