StringRegExp help

[kor]

I have a piece of data

CN=308-142413,OU=Workstations,OU=Administrative,OU=Admin-Sites,DC=TEST,DC=COMPANY,DC=ORG

I would like to delete everything before the first OU statement (ou=workstations) effectively getting rid of 

CN=308-142413, (including that pesky comma)

But I'm not sure how to accomplish this deletion without accidentally deleting the rest of the string (if I based things on commas, or OU)

[mikell]

$str = "CN=308-142413,OU=Workstations,OU=Administrative,OU=Admin-Sites,DC=TEST,DC=COMPANY,DC=ORG"

$res = StringRegExpReplace($str, '^.*?,' , "")
Msgbox(0,"", $res)

Means : delete anything .*? between the beginning ^ and the comma , (comma included)

Edit

Don't forget the classic way

$str = "CN=308-142413,OU=Workstations,OU=Administrative,OU=Admin-Sites,DC=TEST,DC=COMPANY,DC=ORG"

$res = StringReplace($str, StringSplit($str, ",")[1] & ",", "")
Msgbox(0,"", $res)

Edit2

If "everything before the first OU" may include a comma, it could be done like this

$str = "CN=308-142413,something,OUelse,OU=Workstations,OU=Administrative,OU=Admin-Sites,DC=TEST,DC=COMPANY,DC=ORG"

$res = StringRegExpReplace($str, '^.*?(OU=.*)' , "$1")
Msgbox(0,"", $res)

Edited February 10, 2015 by mikell

[kor]

Thank you so much.

[kylomas]

mikell's last pattern is the correct one if your predicate string can contain more than one comma as in ...

local $str = 'CN=308-142413,fouteen,OU=Workstations,OU=Administrative,OU=Admin-Sites,DC=TEST,DC=COMPANY,DC=ORG'

$res = StringRegExpReplace($str, '^.*?(OU=.*)' , "$1")
Msgbox(0,"", $res)

[jguinch]

@kylomas : the comma should me escaped in this case :

local $str = 'CN=308-142413\,fouteen,OU=Workstations,OU=Administrative,OU=Admin-Sites,DC=TEST,DC=COMPANY,DC=ORG'

http://social.technet.microsoft.com/wiki/contents/articles/5312.active-directory-characters-to-escape.aspx

[kylomas]

@jguinch - Yes, but I am not going to make assumptions/force requirements on user input.