Help with group's regex

[Luigi]

Greetings,

Someone can help-me with this regex?
 

start1 a,b,c aaa,bbb,ccc dd,ee,ff a1,a2,a3 b1,b2,b3 c1,c2,c3 end1

start2 aa,bb,cc dd,ee,ff a1,a2,a3 b1,b2,b3 c1,c2,c3 end2

Obs: have multiples start? - end?
each block have 3 words, each word have numbers, latters with any lenght

 

Need catch an array
 

$arr1 = ["a", "b", "c", "aaa", "bbb", "ccc", "dd", "ee", "ff", "a1", "a2", "a3", "b1", "b2", "b3", "c1", "c2", "c3"]

$arr2 = ["aa", "bb", "cc", "dd", "ee", "ff", "a1", "a2", "a3", "b1", "b2", "b3", "c1", "c2", "c3"]

Best regards.

 

 

This is not clever...
But resolve with 2 regex...

Is possible solve this with one regex?

Local $regex1 = "(?s)start1(.*?)end1"
    Local $regex2 = "\w+"

    Local $raw_antes = " start1 aa,bb,cc dd,ee,ff g,h,i @ end1 "

    Local $arr = StringRegExp($raw_antes, $regex1, 3)
    If IsArray($arr) Then
        $arr = $arr[0]
        ConsoleWrite("@Ok1" & @LF)

        $arr = StringRegExp($arr, $regex2, 3)
        If IsArray($arr) Then
            For $ii = 0 To UBound($arr, 1) - 1 Step 3
                ConsoleWrite($arr[$ii] & ", " & $arr[$ii + 1] & ", " & $arr[$ii + 2] & @LF)
            Next
        Else
            ConsoleWrite("@Erro2" & @LF)
        EndIf
    Else
        ConsoleWrite("@Erro1" & @LF)
    EndIf

 

Edited November 5, 2019 by Luigi

[Danyfirex]

Hello. maybe this:

Local $aReg=StringRegExp($String,"([0-9a-f]{2})",3)

saludos

[Luigi]

7 minutes ago, Danyfirex said:

Hello. maybe this:

Local $aReg=StringRegExp($String,"([0-9a-f]{2})",3)

saludos

So sorry @Danyfirex...
I forgot write something... It was completed...

[Danyfirex]

try this:

Local $aReg=StringRegExp($String,"\b(?!(end|start))[0-9a-z]{1,}\b",3)

Saludos

[Luigi]

3 minutes ago, Danyfirex said:

try this:

Local $aReg=StringRegExp($String,"\b(?!(end|start))[0-9a-z]{1,}\b",3)

 

I update for:

 

Local $aReg=StringRegExp($String,"\b(?!(end|start))\w+\b",3)

Work fine.

 

Thank you  @Danyfirex

[mikell]

another flavour 

StringRegExp($txt,"(?:start|end)(*SKIP)(*F)|\b(\w+)\b", 3)

 

[Nine]

Or a non regexp ?

#include <Array.au3>

$sTxt1 = "start1 a,b,c aaa,bbb,ccc dd,ee,ff a1,a2,a3 b1,b2,b3 c1,c2,c3 end1"
$sTxt2 = "start2 aa,bb,cc dd,ee,ff a1,a2,a3 b1,b2,b3 c1,c2,c3 end2"

$a1 = StringSplitEX ($sTxt1)
_ArrayDisplay ($a1)
$a2 = StringSplitEX ($sTxt2)
_ArrayDisplay ($a2)

Func StringSplitEX ($sString)
  Local $aArray = StringSplit ($sString, ", ", $STR_CHRSPLIT+$STR_NOCOUNT)
  _ArrayDelete ($aArray, "0;" & UBound($aArray)-1)
  Return $aArray
EndFunc

 

[mikell]

The challenge was apparently to make a one-liner
Anyway regex is very versatile

#Include <Array.au3>

$txt = "start1 a,b,c aaa,bbb,ccc dd,ee,ff a1,gosh... ,a2,a3 b1,b2,b3 heyhey c1,c2,c3 end1"

$res = StringRegExp($txt,"(?:start|end|gosh|hey)(*SKIP)(*F)|\b(\w+)\b", 3)
 _ArrayDisplay($res)

 

[Nine]

1 hour ago, mikell said:

to make a one-liner

Ya so sorry.  Mine has 2 lines. That's 100% more. Terrible.  So sorry.