_FileReadToArray

[Kerberuz 0]

I need to merge two files based on a common number in each file. The problem I'm having is the when I read 2 files into arrays the first array read is no longer valid. Does anyone know a work around for this?

Example:

#include <file.au3>
#include <array.au3>
Dim $aFile, $aMerged

_FileReadToArray("CC24-Other2.txt",$aFile)
_FileReadToArray("RAA P24 Data 3.txt",$aMerged)

_ArrayDisplay($aMerged, "")
_ArrayDisplay($aFile, "")

Thanks in advance for your replies

[zcoacoaz 0]

What do you mean "no longer valid." ? When i read two files to an array the same way you did it works perfectly.

[Ejoc 1]

Worked for me:

CC24-Other2.txt:

I'm that
CC24 file

RAA P24 Data 3.txt:

I'm That
RAA file

Script:

#include <file.au3>
#include <array.au3>
Dim $aFile, $aMerged

_FileReadToArray("CC24-Other2.txt",$aFile)
_FileReadToArray("RAA P24 Data 3.txt",$aMerged)

_ArrayDisplay($aMerged, "")
_ArrayDisplay($aFile, "")

[Kerberuz 0]

That's very curious. I have a work around. So it's no big deal, thanks for your replies. I still have a little cleanup to do, but I'm done with what I needed help on. Again thanks for your replies.

#include <file.au3>
#include <array.au3>
Dim $aMerged, $Merge

_FileReadToArray("RAA P24 Data 3.txt",$aMerged)
$CountLines = _FileCountLines ("CC24-Other2.txt")

$file = FileOpen ( "RAA_P24_Data_4.txt", 2)

FileWrite($file, "Case,Date,Problem,Party,Age,Trimester (60),Out (59),See Any Part (113),Contractions (125),Delivery (61),Pain Interval (127),SERIOUS Bleed (184),High Risk (98),Det Code,Other,Other (edited for sorting),Other (edited) 2nd condition" & @CRLF)

For $i = 1 to $aMerged[0] - 1 Step 1
    $Merge = 0
    For $x = 1 to $CountLines Step 1
        If StringLeft( FileReadLine ( "CC24-Other2.txt" ,$x ), 7) =  StringLeft($aMerged[$i], 7) Then
            $Merge = 1
            $aSplit = StringSplit(FileReadLine ( "CC24-Other2.txt" ,$x ), ",")
            FileWrite($file, StringStripWS($aMerged[$i], 2 ) & "," & $aSplit[3] & "," & $aSplit[4] & "," & $aSplit[5] & @CRLF )
        EndIf
    Next
    If $Merge = 0 Then
        FileWrite($file, StringStripWS($aMerged[$i], 2 ) & ",,," & @CRLF )
    EndIf
Next

[Kerberuz 0]

After closing and reopening SciTE it worked just fine...