[Solved] StringRegExp

[Shanheavel]

Hello,

I've string:

[D: D, D] A D

where D is digital (0-9), A is some alpha (A-Z) string and D appears as digital or doesn't appear.

So example string can be:

[126: 1, 99] Hello!

or

[1921: 34, 50] Text 501

How can I get these values to array, e.g. $Array = [1921, 34, 50, "Text", 501] ? Edited November 27, 2011 by Shanheavel

[Melba23]

Shanheavel,

This looks as if it might do what you want:

#include <Array.au3>

$sString = "[126: 1, 99] Hello!"
$aRet = StringRegExp($sString, "w+", 3)
_ArrayDisplay($aRet)

$sString = "[1921: 34, 50] Text 501"
$aRet = StringRegExp($sString, "w+", 3)
_ArrayDisplay($aRet)

M23

[jchd]

Let me suggest something else:

#include <Array.au3>
Local $text[2] = [ _
"[1921: 34, 50] Text 501", _
"[1921: 34, 50] Hello!" _
]
Local $Array[5], $res, $sep = Chr(0x01)
For $i = 0 To UBound($text) - 1
;~  Local $Array[5] = Execute(StringRegExpReplace($text[$i], "[(d+):s*(d+),s*(d+)]s*(S+)s*(d+)?", "[Int($1), Int($2), Int($3), '$4', Int('$5')]"))
$res = StringSplit(StringRegExpReplace($text[$i], "[(d+):s*(d+),s*(d+)]s*(S+)s*(d+)?", "Int($1)"&$sep&"Int($2)"&$sep&"Int($3)"&$sep&"'$4'"&$sep&"Int('$5')"), $sep, 2)
For $j = 0 To UBound($res) - 1
  $Array[$j] = Execute($res[$j])
Next
_ArrayDisplay($Array)
Next

Elements type should be fine and ponctuation characters are allowed in the text part. Could be adjusted if the text part may in fact be a phrase but please specify which characters might be there.

I tried variations using Assign and Execute but it doesn't seem possible to assign an array in one shot by these means.

I won't submit a feature request for allowing that, as it doesn't look like it would be widely used, if ever.

[Melba23]

jchd,

I did wonder about the missing "!" in my solution, but the OP did say:

"A is some alpha (A-Z) string"

so I decided that it was not required - and it made the SRE much simpler!

M23

[jchd]

I get it but you know how to treat such rules: wait for exceptional cases found in practice.

But if you look closer, having to later apply Number() to every numeric entry in the array doesn't make the whole process really much simpler.

[UEZ]

A non RegEx method:

#include <Array.au3>
$string1 = "[126: 1, 99] Hello!"
$string2 = "[1921: 34, 50] Text 501"
$aSplit = StringSplit(StringReplace(StringReplace(StringReplace(StringReplace($string1, "[", ""), "]", ""), ":",  ""), ",", ""), " ", 2)
_ArrayDisplay($aSplit)
$aSplit = StringSplit(StringReplace(StringReplace(StringReplace(StringReplace($string2, "[", ""), "]", ""), ":",  ""), ",", ""), " ", 2)
_ArrayDisplay($aSplit)

Br,

UEZ

[Shanheavel]

Thank you all for help!

@UEZ

I used something like it.