Tausender-Trennzeichen mit valueFormat?

[grappa24]

(Wie) kann man denn ein Tausender-Trennzeichen setzen?

Code Auswählen Erweitern

valueFormat "%'d" geht leider nicht (bei mir).

[JoWiemann]

(Wie) kann man denn ein Tausender-Trennzeichen setzen?

Code Auswählen Erweitern

valueFormat "%'d" geht leider nicht (bei mir).

Laut commandref werden die Formatierungszeichen der Sprintf-Stilformat-Zeichen verwendet. M. W. gibt es kein Zeichen für eine Tausender Formatierung in Perl. %d mit Apostroph gibt es in C/C++.

Grüße Jörg

[yersinia]

Würde dir eine Funktion in der myUtils helfen? Weiss nicht, ob dies mit readingsGroup funktioniert.

[grappa24]

@yersinia: Prima, das hilft mir, muss ich halt nur vorschalten

[Franz Tenbrock]

würde mich auch interessieren,
würde gerne in meiner Readingsgroup die Watt Werte in KW umgerechnet anzeigen, leider nur dummy

hatte so was wie das hier probiert:

valueFormat {(my $NewValue = $VALUE / 1000)}
damit kann ich im Reading umrechnen, aber nun habe ich teilweise 4 Nachkommastellen, das dann formatieren habe ich noch nicht geschafft

[grappa24]

Mit der sub von yersinia hab ich es z.B. wie folgt umgesetzt:

Code Auswählen Erweitern


brightness 3455.77
userReadings Brightness { tausender((split(/\./, ReadingsVal("HM_6ABA70","brightness", 5000.0)))[0]) }
Brightness 3.455


Code Auswählen Erweitern

sub tausender {
  my $zahl = shift;
  my $text = reverse $zahl;
  $text =~ s/\./\,/g;  #replace decimal point by decimal comma
  $text =~ s/(\d\d\d)(?=\d)(?!\d*\,)/$1./g;
  return scalar reverse $text;
}

P.S. Das split() entfernt die Nachkommastellen:

Code Auswählen Erweitern

split(/\./, ... [0])