Zahlen formatieren

jonk

Ich habe vor längerem mal aus interesse eine Function geschrieben, mit der man ganze Zahlen in das länderspezifische Format bringen kann. Kommazahlen können noch nicht formatiert werden.

$sAmount = Zahl die konvertiert werden soll
$iDecimals = Nachkommastellen
$iCurrency = Währung ausgeben (boolean)

Code

Func _FormatNumber($sAmount, $iDecimals = 0, $iCurrency=0)
Const $sGrouping 		= StringLeft(RegRead("HKEY_CURRENT_USER\Control Panel\International", "sGrouping"),1)
Const $sMonGrouping 		= StringLeft(RegRead("HKEY_CURRENT_USER\Control Panel\International", "sMonGrouping"),1)
Const $iCurrDigits 		= RegRead("HKEY_CURRENT_USER\Control Panel\International", "iCurrDigits")
Const $sMonThousandSep 	= RegRead("HKEY_CURRENT_USER\Control Panel\International", "sMonThousandSep")
Const $sMonDecimalSep 	= RegRead("HKEY_CURRENT_USER\Control Panel\International", "sMonDecimalSep")
Const $sCurrency		 	= RegRead("HKEY_CURRENT_USER\Control Panel\International", "sCurrency")

	Local $len = StringLen($sAmount)
	local $dec


	if $sAmount <> "" And StringIsDigit($sAmount) Then
		if $iDecimals <> 0 And $iDecimals < $len Then 
			$dec = $sMonDecimalSep & StringRight($sAmount,$iDecimals)
			$sAmount = StringTrimRight($sAmount,$iDecimals)		
			$len = $len - $iDecimals
		EndIf


		Local $sAmountCurrency = $dec
		Dim $Groups_temp = $len / $sMonGrouping


		if (isint($Groups_temp)) Then
			$iGroups = $Groups_temp
		Else
			$iGroups = int($Groups_temp) +1
		Endif

		Dim $aThousand[$iGroups]
		If $iGroups > 1 Then
			for $i = 0 to UBound($aThousand)-1
   				$aThousand[$i] = StringRight($sAmount,$sMonGrouping)
   				$sAmount = StringTrimRight($sAmount,$sMonGrouping)
   			Next
			for $i = 0 to UBound($aThousand)-1
				if $i = UBound($aThousand)-1 then
					$sAmountCurrency = $aThousand[$i] & $sAmountCurrency 
				Else
					$sAmountCurrency = $sMonThousandSep & $aThousand[$i] & $sAmountCurrency 
				EndIf
			Next
		ElseIf $iGroups <=1 Then
			$sAmountCurrency = $sAmount & $sAmountCurrency
		EndIf
		if $iCurrency = 1  Then
			$sAmountCurrency = $sAmountCurrency &" "&$sCurrency
		EndIf
		return $sAmountCurrency
	EndIf
EndFunc

Alles anzeigen

Beispiel:
Ausgabe mit zwei Nachkommastellen und Währung

Code

Msgbox(0,"formatierte Zahl",_FormatNumber("3234234",2,1))

**peethebee**

Hallo!

Es gibt doch eine AutoIt-Funktion, um Strings/Zahlen zu formatieren.
StringFormat, glaube ich.
Damit sollte es auch gehen, aber die Handhabung der Funktion ist zugegebenermaßen nicht einfach. Aber wenn du deine Funktion weiter ausbaust, wird sie das auch ;-).

Solll natürlich keine Kritik an dir sein, jonk, es kann ja mal wichtig sein, die Funktion selbst anpassen zu können, aber ich wollte auch klargestellt haben, dass AutoIt so toll ist, dass es viel schon selbst kann :D.

peethebee's best tip: RTFM (wir brauchen einen Smilley dafür!) - und zwar am besten komplett.

peethebee

jonk

Hi peethebee,

Kritik ist schon in Ordnung, wahr ja auch ein Grund warum ich das hier gepostet habe ;). Wenn ich mich richtig erinnere konnte die Autoitfunktion das formatieren aber nicht länderspezifisch... also Währung und Einteilung entsprechend der jeweiligen Ländereinstellung. Ist auf jeden Fall für mich ein schöner Übungserfolg

Zitat

peethebee's best tip: RTFM (wir brauchen einen Smilley dafür!) - und zwar am besten komplett.

.. . und das am besten zweimal :musik2:

**peethebee**

Hallo!

Das Argument mit dem länderspezifischen könnte stimmen, bin mir da aber nicht sicher.
Wenn es nicht automatisch darafu achtet, dann ist dein Funktion natürlich mehr als berechtigt!!

peethebe

**GtaSpider**

Hallo

Ein sehr schönes skript! Werde es warscheinlich nicht brauchen aber trozdem schön

Zum smilie: vlt mal extern in erwägung ziehen? [Blockierte Grafik: http://forums.ugo.com/images/smilies/rtfm.gif]
der code sieht dan z.b. so aus: ["IMG"]http://forums.ugo.com/images/smilies/rtfm.gif["/IMG"](Natürlich ohne "!