blob: 3f28fb517931b1065c7336da025c73882466e0f3 [file] [log] [blame]
Bram Moolenaar5c736222010-01-06 20:54:52 +01001" Vim script to fix duplicate words in a .dic file vim: set ft=vim:
2"
3" Usage: Edit the .dic file and source this script.
4
5let deleted = 0
6
7" Start below the word count.
8let lnum = 2
9while lnum <= line('$')
10 let word = getline(lnum)
11 if word !~ '/'
12 if search('^' . word . '/', 'w') != 0
13 let deleted += 1
14 exe lnum . "d"
15 continue " don't increment lnum, it's already at the next word
16 endif
17 endif
Bram Moolenaar2a953fc2019-01-26 17:41:47 +010018 if lnum%1000 == 0
19 echon "\r Processing line ".lnum. printf(" [ %02d%%]", lnum*100/line('$'))
20 endif
Bram Moolenaar5c736222010-01-06 20:54:52 +010021 let lnum += 1
22endwhile
23
24if deleted == 0
25 echomsg "No duplicate words found"
26elseif deleted == 1
27 echomsg "Deleted 1 duplicate word"
28else
29 echomsg printf("Deleted %d duplicate words", deleted)
30endif