text file to array, only the first word of every line

[MightyWeird]

As the title says, I need a text file in a array, but only the first word of every line. Space is the delimiter.

example content of text file:

thisword1 test3 test3  test3 testtsjflsjdfljflsjf exampletext

iwantthiswordtoo test3 test3  test3 testtsjflsjdfljflsjf exampletext

 

So I want only the first words "thisword" and  "iwantthiswordtoo"

 

I tried a lot of examples, but I just cant figure it how to do this in a array.

Below one of my test and trials...

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

$file = @scriptdir & "\resources\test\list.txt"
FileOpen($file, 0)
Global $arr[1000]
ReDim $arr[_FileCountLines($file)+1]

For $i = 1 to _FileCountLines($file)
    $line = FileReadLine($file, $i)
    $arr[$i] = $line
   $arr = stringsplit($file," ")
;~ return $arr[1]
Next

_ArrayDisplay($arr)

 

[Jos]

something like this?:

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

$file = @scriptdir & "\resources\test\list.txt"
$fh = FileOpen($file, 0)
$nrec = _FileCountLines($file)
Dim $arr[$nrec+1]
For $i = 1 to $nrec
    $line = FileReadLine($fh)
    $arr2 = stringsplit($line," ")
    $arr[$i] = $arr2[1]
Next

_ArrayDisplay($arr)

 

[Nine]

Don't forget to close the file with FileClose ($fh).

And you need to take into account the fact that the line may contain only one word...

In your example, the 1 of the first word of the first line, does not appear in the result

Edited August 11, 2020 by Nine

[Jos]

  On 8/11/2020 at 12:47 PM, Nine said:

Don't forget to close the file with FileClose ($fh).

Expand  

Agree ... but Autoit3 will handle it as well. 

  On 8/11/2020 at 12:47 PM, Nine said:

And you need to take into account the fact that the line may contain only one word...

Expand  

Which still works ...no?

Jos

[Nine]

@Jos Yep true, my bad...

[MightyWeird]

Hi,

 

This gives me something to tinker with.

 

Bedankt  / Thank you!

[jchd]

Why not faster?

#include <Array.au3>

$file = @scriptdir & "\resources\test\list.txt"
Local $aWords = StringRegExp(FileRead($file), "(?m)^(.*?) .*\R", 3)
_ArrayDisplay($aWords)

 

[Malkey]

This script,

#include <Debug.au3>

     $file = @ScriptFullPath
Local $aWords = StringRegExp(FileRead($file), "(?m)^\s*([^\s]+)\h*.*\R?", 3)

_DebugArrayDisplay($aWords)

returns

#include
$file
Local
_DebugArrayDisplay($aWords)

 

[flux]

2 years later, just wanted to say thanks for the answers 👍