Transporting letters to another file with filter

[Hypnotik 0]

Hey

i'd like to read a txt file containing letters, and i want to move them into another txt file, but to move only the words that dont contain a "-" and that are smaller than 6 letters

is that possible?

[Danyfirex 525]

Yes is Posible.

Example of the file?

[Hypnotik 0]

http://grabilla.com/04213-7ab02eaa-b391-444c-b03c-6336666ebcee.html

[Danyfirex 525]

I don't see any "-"  I think you Mean "_"

[Hypnotik 0]

I don't see any "-"  I think you Mean "_"

Yep sorry i meant _

[Danyfirex 525]

maybe not the most efficient way but it should work.

#include <Array.au3>
#include <File.au3>


Local $Data=FileRead("au.txt")

$Data=StringRegExpReplace($Data,"[A-Za-z_]{6,}",".")
$Data=StringRegExp($Data,"[A-Za-z]{1,5}",3)

_ArrayDisplay($Data)

_FileWriteFromArray("newau.txt",$Data)

Saludos