31 lines
736 B
VimL
31 lines
736 B
VimL
|
" Vim script to fix duplicate words in a .dic file vim: set ft=vim:
|
||
|
|
"
|
||
|
|
" Usage: Edit the .dic file and source this script.
|
||
|
|
|
||
|
|
let deleted = 0
|
||
|
|
|
||
|
|
" Start below the word count.
|
||
|
|
let lnum = 2
|
||
|
|
while lnum <= line('$')
|
||
|
|
let word = getline(lnum)
|
||
|
|
if word !~ '/'
|
||
|
|
if search('^' . word . '/', 'w') != 0
|
||
|
|
let deleted += 1
|
||
|
|
exe lnum . "d"
|
||
|
|
continue " don't increment lnum, it's already at the next word
|
||
|
|
endif
|
||
|
|
endif
|
||
|
|
if lnum%1000 == 0
|
||
|
|
echon "\r Processing line ".lnum. printf(" [ %02d%%]", lnum*100/line('$'))
|
||
|
|
endif
|
||
|
|
let lnum += 1
|
||
|
|
endwhile
|
||
|
|
|
||
|
|
if deleted == 0
|
||
|
|
echomsg "No duplicate words found"
|
||
|
|
elseif deleted == 1
|
||
|
|
echomsg "Deleted 1 duplicate word"
|
||
|
|
else
|
||
|
|
echomsg printf("Deleted %d duplicate words", deleted)
|
||
|
|
endif
|