fun! Hth(a)
"后替换a,aa不用每一行,每一行太慢
"s为串,匹配串之后替换.c,d为新串,旧串.
"这主要是用来弥补g/../的缺陷的.
"后替换是全局的.
let[s,c,d]=split(a:a)
let j=Zhh()
"总行数
for i in range(1,j+1)
    "这里注意,取行(i)要加1行.太坑人了.
    let l=getline(i)
    let k=matchstrpos(l,s)
    "还要改
    if k[1]==-1
        continue
    endif
    let[m,n]=F2(l,k[2])
    "m为前面内容不管,n为后面
    let k=matchstrpos(n,c)
    "没有,则往下
    if k[1]==-1
        continue
    endif
    let o=Cth(n,c,d)
    "这里不限制次数.
    call setline(i,m.o)
    "m.o是m+o的意思
endfor
endf

这里的关键点在于,getline的行数是从1开始的.