I Need Help With StringRegExp()

[XanzyX]

I have HUGE text file (InputFile.txt) the content of which is like the following:

Four (not 4) score and seven years ago; our fathers brought forth, upon this: continent, a "new" nation, conceived in liberty, and dedicated to the proposition that “all men are created equal.”

I want to use StringRegExp() to create an array ($ArrayInput) of words in that text file with the exception of the Following characters;

"();:,

 

Example:

$ArrayInput = StringRegExp(FileRead("InputFile.txt"), xxxx, x)

 

$ArrayInput[0] = "Four"
$ArrayInput[1] = "not"
$ArrayInput[2] = "4"
$ArrayInput[3] = "score"
$ArrayInput[4] = "and"
$ArrayInput[5] = "seven"
$ArrayInput[6] = "years"
$ArrayInput[7] = "ago"
$ArrayInput[8] = "our"
$ArrayInput[9] = "fathers"
$ArrayInput[10] = "brought"
$ArrayInput[11] = "forth"
$ArrayInput[12] = "upon"
$ArrayInput[13] = "this"
$ArrayInput[14] = "continent"
$ArrayInput[15] = "a"
$ArrayInput[16] = "new"
$ArrayInput[17] = "nation"
$ArrayInput[18] = "conceived"
$ArrayInput[19] = "in"
$ArrayInput[20] = "liberty"
$ArrayInput[21] = "and"
$ArrayInput[22] = "dedicated"
$ArrayInput[23] = "to"
$ArrayInput[24] = "the"
$ArrayInput[25] = "proposition"
$ArrayInput[26] = "that"
$ArrayInput[27] = "all"
$ArrayInput[28] = "men"
$ArrayInput[29] = "are"
$ArrayInput[30] = "created"
$ArrayInput[31] = "equal."

 

[iamtheky]

#include<array.au3>

$sString = 'Four (not 4) score and seven years ago; our fathers brought forth, upon this: continent, a "new" nation, conceived in liberty, and dedicated to the proposition that “all men are created equal.'

$aString = stringregexp($sString , '[^();:,"“]\w+' , 3)

_ArrayDisplay($aString)

 

[jguinch]

\w already excludes these characters. So you can try with just \w+, or [\w-]+ to match composed words

[guinness]

\w already excludes these characters. So you can try with just \w+, or [\w-]+ to match composed words

​Seems they also want a period included as well. See $ArrayInput[31] = "equal.", though I suspect it's a typo.

[jchd]

Would that fit the bill?
 

Local $sString = 'Four (not 4) score and seven years ago; our fathers brought forth, upon this: continent, a "new" nation, conceived in liberty, and dedicated to the proposition that “all men are created equal.”'
Local $aWords = StringRegExp($sString, '\w+', 3)
_ArrayDisplay($aWords)

Of course it all depends on the definition of "word" that the OP thinks is correct for him/her.

Edited May 6, 2015 by jchd
got only 1 coffee before posting: 2 eyes => 2 coffees!