Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
REVERSE RGB(0,0,0,255,255,255) to RGB(255,255,255,0,0,0)
Message
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00799797
Message ID:
00799882
Views:
41
>Am I missing something George?
>
>
>clear
>lcstring = "RGB(123,124, 125, 126, 127, 128)"
>? lcstring
>oRE = CREATEOBJECT("VBScript.RegExp")
>oRE.Pattern = "(\d+)\, (\d+)\, (\d+)\, (\d+)\, (\d+)\, (\d+)"
>? oRE.Replace(lcstring, "$4, $5, $6, $1, $2, $3")
>
>
>OOPS, never mind, I just figured out that spaces matter. The below works:
>
>
>clear
>lcstring = "RGB(123, 124, 125, 126, 127, 128)"
>? lcstring
>oRE = CREATEOBJECT("VBScript.RegExp")
>oRE.Pattern = "(\d+)\, (\d+)\, (\d+)\, (\d+)\, (\d+)\, (\d+)"
>? oRE.Replace(lcstring, "$4, $5, $6, $1, $2, $3")
>
Yeppers, they sure. It's a simple matter, however, to use STRTRAN() to remove them in the original string and...
clear
lcstring = "RGB(123, 124, 125, 126, 127, 128)"
? lcstring
lcstring = STRTRAN(lcstring, " ", "")
oRE = CREATEOBJECT("VBScript.RegExp")
oRE.Pattern = "(\d+)\,(\d+)\,(\d+)\,(\d+)\,(\d+)\,(\d+)"
? oRE.Replace(lcstring, "$4,$5,$6,$1,$2,$3")
George

Ubi caritas et amor, deus ibi est
Previous
Reply
Map
View

Click here to load this message in the networking platform