StringRegExpReplace , not within ( )

[BigDaddyO 81]

I'm trying to convert a sql that's in a single line back into a nicely formatted string but i'm having problems with the comma's when they are within a command such as SUBSTR

for an Example:  Select SUBSTR(sx.YMD, 5, 2) || '/' || SUBSTR(sx.YMD, 7, 2) || '/' || SUBSTR(sx.YMD, 1, 4) as RecvDt, TRIM(sx.MBR) as MbrNbr From Services

currently comes out as 

Select SUBSTR(sx.YMD,
     5,
     2) || '/' || SUBSTR(sx.YMD,
     7,
     2) || '/' || SUBSTR(sx.YMD,
     1,
     4) as RecvDt,
     TRIM(sx.MBR) as MbrNbr
From Services

Where it should show as 

Select SUBSTR(sx.YMD, 5, 2) || '/' || SUBSTR(sx.YMD, 7, 2) || '/' || SUBSTR(sx.YMD, 1, 4) as RecvDt,
     TRIM(sx.MBR) as MbrNbr
From Services

 

This is what i've coded so far.  I'm pretty sure I need to use a StringRegExpReplace to replace the , only when it's not within a ( ) but i'm not sure how to do it.  Anyone have some RegEx pointers?

$sSQL = "Select SUBSTR(sx.YMD, 5, 2) || '/' || SUBSTR(sx.YMD, 7, 2) || '/' || SUBSTR(sx.YMD, 1, 4) as RecvDt, TRIM(sx.MBR) as MbrNbr From Services"
$sSQL = StringReplace($sSQL, ",", "," & @CRLF & @TAB)

;Only replace , with , & @CRLF & @TAB if that , is not within ( )
;~ StringRegExpReplace($sSQL, "

$sSQL = StringReplace($sSQL, " Select ", @CRLF & "Select" & @CRLF & @TAB)
$sSQL = StringReplace($sSQL, "From ", @CRLF & "From ")
$sSQL = StringReplace($sSQL, "Join ", @CRLF & "Join ")
$sSQL = StringReplace($sSQL, "Left Join ", @CRLF & "Left Join ")
$sSQL = StringReplace($sSQL, "Inner Join ", @CRLF & "Inner Join ")
$sSQL = StringReplace($sSQL, "Outer Join ", @CRLF & "Outer Join ")
$sSQL = StringReplace($sSQL, "ON ", @CRLF & @TAB & "ON ")
$sSQL = StringReplace($sSQL, "Where ", @CRLF & "Where ")
$sSQL = StringReplace($sSQL, "AND ", @CRLF & "AND ")

ConsoleWrite(@CRLF & $sSQL & @CRLF & @CRLF)

Thanks, Mike

[rcmaehl 95]

You're likely looking for:

[^(] - Don't match (

[^)] - Don't match )

 

[TheXman 624]

<snip>

Edited December 15, 2022 by TheXman