http://route477.net/w/?VimScriptMemo
http://d.hatena.ne.jp/parasporospa/20061024/p3
http://advweb.seesaa.net/article/1741595.html
function! s:Chomp(str)
let a:last = a:str[strlen(a:str)-1]
if a:last == "\n"
return strpart(a:str, 0, strlen(a:str)-1)
else
return a:str
end
endfunction