vim多行注释(ZZ)

骑猪看日落 2022-10-01 03:54 247阅读 0赞

~/.vimrc  
        在window中的许多的IDE都可以对整段代码进行行注释以便用测试。在测试后再把它还原。今天在vim 上也实现了相应的功能 。  
        对单行注释：CTRL＿C  
        对多行注释： 先"V"，进入块选择模式。选择一段代码。CTRL\_C  
        同样，还原的命令和上面的一样。如对一行CTRL＿C后，把它注释了，再CTRL＿C后就还原了。  
        注意代码应该要整齐，缩进。选择块时，要保证块中的第一行就是最靠左的。不然会出问题。  
如在代码中选择:  
    if (a>0)  
    \{  
        printf ("sssss");  
    \}  
 （ctrl\_c） 会得到：  
    //if (a>0)  
    //\{  
    //    printf ("sssss");  
    //\}  
再选择这段代码： （ctrl\_c）后又加到：  
  
    if (a>0)  
    \{  
        printf ("sssss");  
    \}  
以下是vim脚本：  
"功能说明:加入或删除注释//  
"映射和绑定  
nmap <C-C> <Esc>:Setcomment<CR>  
imap <C-C> <Esc>:Setcomment<CR>  
vmap <C-C> <Esc>:SetcommentV<CR>  
command! -nargs=0 Setcomment call s:SET\_COMMENT()  
command! -nargs=0 SetcommentV call s:SET\_COMMENTV()  
  
"非视图模式下所调用的函数  
function! s:SET\_COMMENT()  
    let lindex=line(".")  
    let str=getline(lindex)  
    "查看当前是否为注释行  
    let CommentMsg=s:IsComment(str)  
    call s:SET\_COMMENTV\_LINE(lindex,CommentMsg\[1\],CommentMsg\[0\])  
endfunction  
  
"视图模式下所调用的函数  
function! s:SET\_COMMENTV()  
    let lbeginindex=line("'<") "得到视图中的第一行的行数  
    let lendindex=line("'>") "得到视图中的最后一行的行数  
    let str=getline(lbeginindex)  
    "查看当前是否为注释行  
    let CommentMsg=s:IsComment(str)  
    "为各行设置  
    let i=lbeginindex  
    while i<=lendindex  
         call s:SET\_COMMENTV\_LINE(i,CommentMsg\[1\],CommentMsg\[0\])  
        let i=i+1  
    endwhile  
endfunction  
  
"设置注释  
"index:在第几行  
"pos:在第几列  
"comment\_flag: 0:添加注释符 1:删除注释符  
function! s:SET\_COMMENTV\_LINE( index,pos, comment\_flag )  
    let poscur = \[0, 0,0, 0\]  
    let poscur\[1\]=a:index  
    let poscur\[2\]=a:pos+1  
    call setpos(".",poscur) "设置光标的位置  
  
    if a:comment\_flag==0  
        "插入//  
        exec "normal! i//"  
    else  
        "删除//  
        exec "normal! xx"  
    endif  
endfunction  
  
"查看当前是否为注释行并返回相关信息  
"str:一行代码  
function! s:IsComment(str)  
    let ret= \[0, 0\] "第一项为是否为注释行（0,1）,第二项为要处理的列，  
    let i=0  
    let strlen=len(a:str)  
    while i<strlen  
        "空格和tab允许为"//"的前缀  
        if !(a:str\[i\]==' ' ||    a:str\[i\] == '  ' )  
            let ret\[1\]=i  
            if a:str\[i\]=='/' && a:str\[i+1\]=='/'  
                let ret\[0\]=1  
            else  
                let ret\[0\]=0  
            endif  
            return ret  
        endif  
        let i=i+1  
    endwhile  
    return \[0,0\]  "空串处理  
endfunction