Some StringRegExp Patterns

[darkjohn20]

Alright, so this is the first time I haven't been able to figure out a correct pattern. What I need is a pattern that will match any of the following:

r(0x90)
r(0xEEEEEEEE-0xFFFFFFFF)
r(0x11111111-0x22222222,0x98765432)

Basically I need it to match a list of hex strings, whether it be a single hex, a range, or both together.

'r\((0x[[:xdigit:]]+)\)'

works for a single hex such as the first example, but adding "-" and "," is where I've had trouble.

Also, I tried this but it only returns "0x98765432" from the third example:

r\((0x[[:xdigit:]]+-?,?)+\)

They can be in any order, and there can be an unlimited amount of them. I only need the pattern to check a single line, not a multiline control.

Could anybody help me?

Edit: Also, I need the group to be a full match of everything inside the parenthesis, so for the third example I'd like:

1
0x11111111-0x22222222,0x98765432

Where 1 would be Flag 0, and the rest would be Flag 1.

Edited August 25, 2010 by darkjohn20

[GEOSoft]

This might get you started

$sRegExp = "r\(([[:xdigit:],-0x]+)\)"

if that works for any of it then post the next problem and we can work on that.

[darkjohn20]

This might get you started

$sRegExp = "r\(([[:xdigit:],-0x]+)\)"

if that works for any of it then post the next problem and we can work on that.

Everything works except that ",-" ",," "-," "--" etc. are still allowed. As far as getting the information it works.

r(0x11111111-0x22222222,0x98765432)
returns "0x11111111-0x22222222,0x98765432"

Now to fix invalid inputs in terms of symbols.

Edit: the 0 in the set can be removed because it's included in xdigit, if we continue using that set.

Edited August 25, 2010 by darkjohn20

[GEOSoft]

Can you post what you expect to be returned from each of your example lines?

This works to get each of the HEX values from any of the example lines or all of them together using the global match flag (3). It skips the 3 characters in the first group which are (-,

$sRegExp = "[^\(,-]*(0x[[:xdigit:]]+)"

EDIT:

I would use the global match regardless and loop through them with 0 To Ubound($array) -1 Even if there is only a single match as in your first line it will still work fine.

Edited August 25, 2010 by GEOSoft

[darkjohn20]

I'm actually just going to go with your previous pattern. It works well enough for me to know what I'm doing. If I distribute my script in the future I might update the pattern to check for errors, but for now I'll just watch what I'm doing.

Thanks

[GEOSoft]

No problem. Did you try the second pattern?

[darkjohn20]

I didn't, but I will now.

With the new line:

pattern = [^\(,-]*(0x[[:xdigit:]]+)
test = r(0x11111111-0x22222222,0x98765432)
returns 0x11111111

Edited August 25, 2010 by darkjohn20

[4ggr35510n]

(?:r\x28|\x2d|\x2c|)(0x[0-F]+)(?:\x29|\x2c|\x2d)

Done.

Edited August 25, 2010 by 4ggr35510n

[darkjohn20]

(?:r\x28|\x2d|\x2c|)(0x[0-F]+)(?:\x29|\x2c|\x2d)

Done.

Same thing.