Can't open a file and use FileRead

[Hylia]

Hi, I'm trying to read a file one character at a time and store it in an array, however, I keep getting error 1 on FileRead, after searching on the forums for some time and trying all solutions mentioned nothing seems to help.

 

I would greatly appreciate some help with my code.

 

#include <file.au3>
#include <FileConstants.au3>
#include <MsgBoxConstants.au3>
#include <WinAPIFiles.au3>
Global $lines[36]
$fileloc = "Z:\Autoit Projects\text\001.txt"
Func ParseMain()
   msgbox(0, "FILE", $fileloc)
   $fileOpened = FileOpen($fileloc)

   for $c = 0 to _FileCountLines($fileOpened) Step 1
      $lines[$c] = FileRead($fileOpened, $c+1)
      msgbox(0, @error, $lines[$c])
   Next
   FileClose($fileOpened)
EndFunc

 

 

Edited September 4, 2015 by Hylia
I can't edit my post or reply to this post??!?

[Jfish]

I believe FileRead is reading a set number of characters from the entire file.  You can read one line at a time with FileReadLine and then use string methods to parse the characters one at a time for each line.

@‌Danyfirex has the solution

Edited September 4, 2015 by Jfish
mistake

[Hylia]

I don't see where you set the $lines array to store anything?  That array looks empty?  In either case, I believe FileRead is reading a set number of characters from the entire file.  You can read one line at a time with FileReadLine and then use string methods to parse the characters one at a time for each line.

$lines[$c] = FileRead($fileOpened, $c+1), that's where the array stores the gotten data.

FileReadLine also will not work, and still give me error 1.

 

Here's the msgbox resulting: http://i.imgur.com/XQ7JbpM.png

The error is 1 and the line read is nothing.

Edited September 4, 2015 by Hylia

[Danyfirex]

Try this:

#include <file.au3>
#include <FileConstants.au3>
#include <MsgBoxConstants.au3>
#include <WinAPIFiles.au3>
Local $aLines=FileReadToArray("1.txt")

_ArrayDisplay($aLines)

Local $aChars[UBound($aLines)]

For $i=0 to UBound($aLines)-1
$aChars[$i]=StringSplit($aLines[$i],"")
_ArrayDisplay($aChars[$i])
Next

_FileCountLines need a file path not a handle.

Saludos

Edited September 4, 2015 by Danyfirex

[Hylia]

Try this:

#include <file.au3>
#include <FileConstants.au3>
#include <MsgBoxConstants.au3>
#include <WinAPIFiles.au3>
Local $aLines=FileReadToArray("1.txt")

_ArrayDisplay($aLines)

Local $aChars[UBound($aLines)]

For $i=0 to UBound($aLines)-1
$aChars[$i]=StringSplit($aLines[$i],"")
_ArrayDisplay($aChars[$i])
Next

_FileCountLines need a file path not a handle.

Saludos

I'm not sure what it's supposed to show but it's not showing anything.

And yes, I changed "1.txt"

Edited September 4, 2015 by Hylia

[Danyfirex]

be sure you're using Lastest AutoIt Version.

Pass some txt example. And show in details how you need the output. 

 

Saludos

[jchd]

Telling us what you intend to do by reading "character by character" would also greatly help us help you. Guesswork: you're making your life difficult.

[Surya]

and at last you could join the arrays to a single array:

#include <Array.au3>

local $aryy[2] = ["Autoit","Programming"]
local $bryy[2] = ["is","good"]

_arraydisplay(_ArrayJoin($aryy,$bryy))


Func _ArrayJoin($ary1,$ary2)
$total = UBound($ary1) + UBound ($ary2) -2
ConsoleWrite (@CRLF &"total =" &$total)
Local $ary[$total*2]
For $i = 0 To UBound($ary1) -1
$ary[$i] = $ary1[$i]
Next
_ArrayDisplay($ary)
ConsoleWrite (@CRLF &UBound($ary1))
For $i = UBound($ary1) To $total
$ary[$i] = $ary2[$i - UBound($ary1)]
Next
$ary[UBound($ary)-1] = $ary2[UBound($ary2)-1]
Return $ary
EndFunc

my best choice goes to Kingbobs code

Edited September 4, 2015 by Surya

[BrewManNH]

If all you want to do is read the text file and store each character into different elements of an array, then all you need is this.

#include <Array.au3>
Local $sLines = FileRead("1.txt")
Global $aTextArray = StringSplit($sLines, "")

_ArrayDisplay($aTextArray)

 

[kcvinu]

Reading one character from file. So strange. Anyways, you can use FileRead function as KingBob said.

Local $file_path = "K:\Your_Folder\Your_File.txt"
Local $readed_char = FileRead($file_path,1) ; read the help file for the second parameter of this function.
MsgBox(0,"",$readed_char)

 

[Hylia]

If all you want to do is read the text file and store each character into different elements of an array, then all you need is this.

#include <Array.au3>
Local $sLines = FileRead("1.txt")
Global $aTextArray = StringSplit($sLines, "")

_ArrayDisplay($aTextArray)

 

That code works perfectly for what I want to do, thanks.

Edited September 4, 2015 by Hylia