fun! Hzbg(L,fh='|') range
"行转表格.这个L,为列数
    let l=[]
    let i=a:firstline
    :'<,'>call Vzlf(l,'len')
    "视行转列,上面将非空行压入
    :'<,'>norm! dd
    "删掉,下面为分列表
    "let e=len(l)/a:L
    "l为总列数,参数是列数,除下来就是行数
    let ll=Flb(l,a:L)
    let m=Dlcl(ll,'Hbh',a:fh)
    "多列处理
    let b=Mhjf(m,"\n")
    exe 'norm '.i.'G'
    "每行加符,可以通过下面来替换.
    :s/^/\=b/ge
endf