Loop / logic help [Solved]

[xcaliber13]

hey guys  I just cannot seem to figure out how to get this done.   I have a text file within that text file I have records.  Each record starts with 01|A.  

Example:

01|A|Data|Data

02|A|Data|Data

01|A|Data|Data <-- Start of new record

02|A|Data|Data

01|A|Data|Data   <--  Start of new record

02|A|Data|Data

02|A|Data|Data

02|A|Data|Data

01|A|Data|Data <-- Start of new record

02|A|Data|Data

So what I am trying to do is to get the file to look like this:

01|A|Data|Data 02|A|Data|Data

01|A|Data|Data 02|A|Data|Data

01|A|Data|Data 02|A|Data|Data 02|A|Data|Data 02|A|Data|Data

01|A|Data|Data 02|A|Data|Data

Were I am having the issue is when there is more the one(1) line that begins with 02|A|Data|Data.  I can only get the first 02|A|Data|Data to move to the same line with the 01|A|Data|Data

So I am just trying to get each record on a single line. 

Here is what I have tried

_FileReadToArray("C:\Temp\temp.txt", $aResults, $FRTA_NOCOUNT)

Local $aFinalResults[UBound($aResults)]

For $i = 0 to UBound($aResults) -1
    If StringLeft($aResults[$i], 4) = "01|A" Then
    $aFinalResults[$i] = $aResults[$i] & " " & $aResults[$i+1]
    EndIf
    Next
_ArrayDisplay($aFinalResults)
_FileWriteFromArray("C:\Temp\temp1.txt", $aFinalResults)

I have also tried with a While Wend loop but I am getting the same results.  Just the first 02|A|Data|Data line gets moved to the 01|A|Data|Data line.   

Can someone point me in the right direction to get this working correctly?

[jchd]

Local $sIn = FileRead("C:\Temp\temp.txt")
Local $sOut = StringRegExpReplace($sIn, "\R(?=02)", "")
ConsoleWrite($sOut & @LF)

 

[xcaliber13]

jchd  thank you  does exactly what I needed.