[Help] Replace _FileReadToArray

[Sym98]

Hello everyone, I need to know how to get the same result as of the underlying code, in case the contents of the txt file was stored in a variable.

#include <File.au3>
Dim $aArray
_FileReadToArray("File.txt",$aArray)
MsgBox(0,"Text",$aArray[1])
MsgBox(0,"Text",$aArray[2])
MsgBox(0,"Text",$aArray[3])

Thank you in advance

Edited May 25, 2011 by Sym98

[bogQ]

you need some other example to populatie array if i understand you correctly?!

#Include <Array.au3>
Dim $arr[20]
$arr[0] = UBound($arr)-1
_ArrayDisplay($arr)
For $x = 1 To $arr[0]
    $arr[$x] = @SEC&":"&@MSEC
    Sleep(10)
Next
_ArrayDisplay($arr)

if not so, pls be more specific

Edited May 25, 2011 by bogQ

[Melba23]

Sym98,

This gives you the same array as if you read the string in from a file with _FileListToArray:

#include <Array.au3>

$sString = "Line 1" & @CRLF & "Line 2" & @CRLF & "Line 3"

$aArray = StringSplit($sString, @CRLF, 1)

_ArrayDisplay($aArray)

M23

[GEOSoft]

First off, you should not be using Dim to declare an empty array. Use Global, Local or Static and you will get the same result.

Local $sTest = "This is some" & @CRLF & @CRLF & "test string"
;;Global $Array
_StringReadToArray($sTest, $Array);; Method 1
;; _StringReadToArray(FileRead("C:\Somefile.txt"), $Array);; Method 2
;; _StringReadToArray("C:\Somefile.txt", $Array);; Method 3


Func _StringReadToArray($s_String, ByRef $a_Array)
    If FileExists($s_String) Then $s_String = FileRead($s_String)
    If NOT $s_String Then Return SetError(1, 1, "There is no valid string to parse")
    Local $a_Result = StringRegExp($s_String, "(?m:^).*", 3)
    If NOT @Error Then
        $a_Array = $a_Result
        Return $a_Array
    EndIf
    Return SetError(1, 2, "Unable to create the new array")
EndFunc

You can pass the function either a string or a file name. If you pass it the file name there is no need for _FileReadToArray(). See the 3 methods that are useable.

Edited May 25, 2011 by GEOSoft

[Sym98]

Thank you all, as soon as I get time I'll try the codes you gave me

Edited May 25, 2011 by Sym98