AutoHotkey Community

How I can remove duplicate word in a .txt

Read a txt file and delete duplicate lines?
Duplicate lines in a file

_________________

(Common Answers) - New Tutorials Forum - Humongous FAQ

FileSelectFile, FileName, 1
FileRead, OutputVar, %FileName%
Sort, OutputVar, N
FileAppend, %OutputVar%, y.txt
Loop, Read, y.txt,
{
If Var <> %A_LoopReadLine%
FileAppend, %A_LoopReadLine%`n, z.txt
Var = %A_LoopReadLine%
}
FileDelete, y.txt

with this i still got duplicate word.

ie: word1
word2
word1 --->erase
word1 --->erase
word3
word4
word4 --->erase



I want that found in all the .txt same word, and erase if a word is already found.

read further in the threads:

_________________

(Common Answers) - New Tutorials Forum - Humongous FAQ

thats write 2x each word.

I used this correctly and thats write 2x each word.

It works, you have to ensure last line has `r`n at the end.
Of course, if you FileAppend to the original file, you will get redundancy...

_________________
vPhiLho := RegExReplace("Philippe Lhoste", "^(\w{3})\w*\s+\b(\w{3})\w*$", "$1$2")

yah i fileappend thats :\

To change the original file, you have to first delete it, then do FileAppend.
Hopefully someday we will have a FileOverwrite command...