An help with array splitting

[MyEarth]

Hello. I have a 1D array. Is made in this way:

1. This is a line
Messages: a message etc
Context: a context etc
2. This is a line
Messages: a message etc
Context: a context etc
3. This is a line
Messages: a message etc
Correction: a correction etc
Context: a context etc

I need to make something like:

1. This is a line|Messages: a message etc|Context: a context etc
2. This is a line|Messages: a message etc|Context: a context etc
3. This is a line|Messages: a message etc|Correction: a correction|Context: a context etc

For exporting in another software. I need to split every time there is a number when the line start, can be 1. until something like 3.976. Since i don't know if there a 2 line after a number or 3 i have opened this thread. Thanks

[FrancescoDiMuro]

Hi @myheart
Remember the powerful use of Step in For loops:

#include <AutoItConstants.au3>
#include <MsgBoxConstants.au3>

Local $arrArray[] = ["1. This is a line", _
                    "Messages: a message etc", _
                    "Context: a context etc", _
                    "2. This is a line", _
                    "Messages: a message etc", _
                    "Context: a context etc", _
                    "3. This is a line", _
                    "Messages: a message etc", _
                    "Correction: a correction etc", _
                    "Context: a context etc"], _
    $i = 0

For $i = 0 To UBound($arrArray) - 1 Step 3
    If $i + 2 > UBound($arrArray) Then
        ExitLoop
    Else
        ConsoleWrite($arrArray[$i] & "|" & $arrArray[$i+1] & "|" & $arrArray[$i+2] & @CRLF)
    EndIf
Next

Best Regards.

Francesco

[rudi]

Hello,

What you presented looks like a plain text file?

So If I get your task correctly, any line starting with numbers (int or floating) will mark a new data set, at least one line will follow, but it also can be a row of lines that belong to the same single data set?

 

Regards, Rudi.

[jchd]

 The For with Step N method doesn't work since the number N of lines to be grouped isn't a constant.

Try this:

Local $aStr = [ _
    "1. This is a line", _
    "Messages: a message etc", _
    "Context: a context etc", _
    "2. This is a line", _
    "Messages: a message etc", _
    "Context: a context etc", _
    "3. This is a line", _
    "Messages: a message etc", _
    "Correction: a correction etc", _
    "Context: a context etc", _
    "4. This is a line", _
    "Messages: a message etc", _
    "Remark: a remark etc", _
    "Correction: a correction etc", _
    "Correction: another correction etc", _
    "Context: a context etc" _
]
Local $aGrouped = StringSplit(StringRegExpReplace(_ArrayToString($aStr), "\|(\d)", @LF & "$1"), @LF, 2)
_ArrayDisplay($aGrouped)

 

[FrancescoDiMuro]

@jchd

Yeah, I noticed it later.
Nice workaround

[MyEarth]

Thanks to all, thanks @jchd