Proposed changes to _StringAddThousandsSep()
This allows for regional settings.
Func _StringAddThousandsSep($sString, $sThousands = -1, $sDecimal = -1)
Local $sResult = "" ; Force string
Local $rKey = "HKCU\Control Panel\International"
If $sDecimal = -1 Then $sDecimal = RegRead($rKey, "sDecimal")
If $sThousands = -1 Then $sThousands = RegRead($rKey, "sThousand")
Local $aNumber = StringRegExp($sString, "(\d+)\D?(\d*)", 1)
If UBound($aNumber) = 2 Then
Local $sLeft = $aNumber[0]
While StringLen($sLeft)
$sResult = $sThousands & StringRight($sLeft, 3) & $sResult
$sLeft = StringTrimRight($sLeft, 3)
WEnd
$sResult = StringTrimLeft($sResult, StringLen($sThousands)) ; Strip leading thousands separator
If $aNumber[1] <> "" Then $sResult &= $sDecimal & $aNumber[1]
EndIf
Return $sResult
EndFunc ;==>_StringAddThousandsSep
Change History
(8)
| Severity: |
None → Blocking
|
| Severity: |
Blocking → None
|
| Severity: |
None → Blocking
|
| Status: |
new → assigned
|
| Milestone: |
→ 3.2.13.11
|
| Resolution: |
→ Completed
|
| Status: |
assigned → closed
|
| Milestone: |
3.2.13.11
|
| Resolution: |
Completed
|
| Severity: |
Blocking → None
|
| Status: |
closed → reopened
|
| Owner: |
changed from Gary to Valik
|
| Severity: |
None → Blocking
|
| Status: |
reopened → assigned
|
| Milestone: |
→ 3.3.1.0
|
| Resolution: |
→ Completed
|
| Status: |
assigned → closed
|
Automatic ticket cleanup.