text: " 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
    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
  