udfSwapNumCommaPoint
str udfSwapNumCommaPoint (str)
;------------------------------------------------------------------------------------------------------------------------------------------
#DefineFunction udfSwapNumCommaPoint (strNumber)
Return StrReplace (StrReplace (StrReplace (StrClean (strNumber, "0123456789.,E+-", "", @FALSE, 2), ".", ":"), ",", "."), ":", ",")
#EndFunction
;------------------------------------------------------------------------------------------------------------------------------------------

; Test.

strMsgTitle = "Demo udfSwapNumCommaPoint (strNum)"

strNumDecimalComma = "1.234.711,22"
strNumDecimalPoint = "1,234,711.22"

Pause (strMsgTitle, "from" : @CRLF : "decimal comma " : strNumDecimalComma : @CRLF : "to" : @CRLF : "decimal point " : udfSwapNumCommaPoint (strNumDecimalComma))
Pause (strMsgTitle, "from" : @CRLF : "decimal point " : strNumDecimalPoint : @CRLF : "to" : @CRLF : "decimal comma " : udfSwapNumCommaPoint (strNumDecimalPoint))

Pause (strMsgTitle, "from" : @CRLF : "decimal point " : @PI : @CRLF : "to" : @CRLF : "decimal comma " : udfSwapNumCommaPoint (@PI))
Pause (strMsgTitle, "from" : @CRLF : "decimal point " : @AMC : @CRLF : "to" : @CRLF : "decimal comma " : udfSwapNumCommaPoint (@AMC))

Exit