Custom Query (3910 matches)

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

GUICtrlSetDefBkColor mistakingly uses the same parameters table as GUICtrlSetDefColor deftextcolor = Default text color for all controls should be changed to color = Default background color for all controls.

I seldom use this function but it seems that each time I do, I find something else that is broken. If the array contains literal pipes then it will not display properly. Repro code

#include <array.au3>
Dim $Array[4] = ["Test","$Item = '|'", "Test 2", "$Item_2 = '||'"]
_ArrayDisplay($Array)

I have not taken the time to look at a fix at this point.