[转]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宏功能就是可以注释、反注释代码

macro MultiLineComment()
{
    hwnd = GetCurrentWnd()
    selection = GetWndSel(hwnd)
    LnFirst = GetWndSelLnFirst(hwnd)      //取首行行号
    LnLast = GetWndSelLnLast(hwnd)      //取末行行号
    hbuf = GetCurrentBuf()

    if(GetBufLine(hbuf, 0) == "//magic-number:tph85666031"){
        stop
    }

    Ln = Lnfirst
    buf = GetBufLine(hbuf, Ln)
    len = strlen(buf)

    while(Ln <= Lnlast) {
        buf = GetBufLine(hbuf, Ln)  //取Ln对应的行
        if(buf == ""){                    //跳过空行
            Ln = Ln + 1
            continue
        }

        if(StrMid(buf, 0, 1) == "/") {       //需要取消注释,防止只有单字符的行
            if(StrMid(buf, 1, 2) == "/"){
                PutBufLine(hbuf, Ln, StrMid(buf, 2, Strlen(buf)))
            }
        }

        if(StrMid(buf,0,1) != "/"){          //需要添加注释
            buf = Cat("//", buf)
            if(Ln == Lnfirst){
                buf = Cat(buf,"//removed by jhy")//注释作者信息
            }
                PutBufLine(hbuf, Ln, buf)
        }
        Ln = Ln + 1
    }

    SetWndSel(hwnd, selection)
}

macro MultiLineComment()
{
    hwnd = GetCurrentWnd()
    selection = GetWndSel(hwnd)
    LnFirst = GetWndSelLnFirst(hwnd)      //取首行行号
    LnLast = GetWndSelLnLast(hwnd)      //取末行行号
    hbuf = GetCurrentBuf()

    if(GetBufLine(hbuf, 0) == "//magic-number:tph85666031"){
        stop
    }

    Ln = Lnfirst
    buf = GetBufLine(hbuf, Ln)
    len = strlen(buf)

    while(Ln <= Lnlast) {
        buf = GetBufLine(hbuf, Ln)  //取Ln对应的行
        if(buf == ""){                    //跳过空行
            Ln = Ln + 1
            continue
        }

        if(StrMid(buf, 0, 1) == "/") {       //需要取消注释,防止只有单字符的行
            if(StrMid(buf, 1, 2) == "/"){
                PutBufLine(hbuf, Ln, StrMid(buf, 2, Strlen(buf)))
            }
        }

        if(StrMid(buf,0,1) != "/"){          //需要添加注释
            buf = Cat("//", buf)
            if(Ln == Lnfirst){
                buf = Cat(buf,"//removed by jhy")//注释作者信息
            }
                PutBufLine(hbuf, Ln, buf)
        }
        Ln = Ln + 1
    }

    SetWndSel(hwnd, selection)
}

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

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

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

macro MonthToName(MonthNum)
{

    if (MonthNum== 1)
        return "Jan"
    if (MonthNum== 2)
        return "Feb"
    if (MonthNum== 3)
        return "Mar"
    if (MonthNum== 4)
        return "Apr"
    if (MonthNum== 5)
        return "May"
    if (MonthNum== 6)
        return "Jun"
    if (MonthNum== 7)
        return "Jul"
    if (MonthNum== 8)
        return "Aug"
    if (MonthNum== 9)
        return "Sep"
    if (MonthNum== 10)
        return "Oct"
    if (MonthNum== 11)
        return "Nov"
    if (MonthNum== 12)
        return "Dec"
}

macro DisplayDate()
{
    szTime = GetSysTime(1)
    Day = szTime.Day
    Month = szTime.Month
    Year = szTime.Year
    if (Day < 10)
        szDay = "0@Day@"
    else
        szDay = Day
    szMonth = MonthToName(Month)

    hbuf = GetCurrentBuf()
    SetBufSelText(hbuf, "@szMonth@ @szDay@, @Year@")
}

macro MonthToName(MonthNum)
{

    if (MonthNum== 1)
        return "Jan"
    if (MonthNum== 2)
        return "Feb"
    if (MonthNum== 3)
        return "Mar"
    if (MonthNum== 4)
        return "Apr"
    if (MonthNum== 5)
        return "May"
    if (MonthNum== 6)
        return "Jun"
    if (MonthNum== 7)
        return "Jul"
    if (MonthNum== 8)
        return "Aug"
    if (MonthNum== 9)
        return "Sep"
    if (MonthNum== 10)
        return "Oct"
    if (MonthNum== 11)
        return "Nov"
    if (MonthNum== 12)
        return "Dec"
}

macro DisplayDate()
{
    szTime = GetSysTime(1)
    Day = szTime.Day
    Month = szTime.Month
    Year = szTime.Year
    if (Day < 10)
        szDay = "0@Day@"
    else
        szDay = Day
    szMonth = MonthToName(Month)

    hbuf = GetCurrentBuf()
    SetBufSelText(hbuf, "@szMonth@ @szDay@, @Year@"