Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Zahlen formatieren (VBScript) (https://www.delphipraxis.net/98142-zahlen-formatieren-vbscript.html)

TylerDurden 22. Aug 2007 09:04


Zahlen formatieren (VBScript)
 
Hallo zusammen!

Würde gerne Zahlen mit VBScript formatieren, da ich aber mittlerweile rausgefunden habe, dass es unter VBScript die Funktion Format nicht mehr gibt, wollte ich mal nachfragen ob mir jemand bei meinem Problem helfen kann.

Ich möchte, dass Zahlen z.B immer fünfstellig dargestellt werden:
Ich habe die Zahl 5 und diese soll zu 00005 formatiert werden

Früher ging das mit Format(5, "00000"), da es diese Funktion wie bereits erwähnt aber nicht mehr gibt, hänge ich momentan in der Luft!

Hoffe es kann mir jemand weiterhelfen!

Vielen Dank schon mal im Voraus!

shmia 22. Aug 2007 09:23

Re: Zahlen formatieren (VBScript)
 
Das ist nicht schwer. Einfach auf der linken Seite viele Nullen voranstellen
zahltext = "000000000000000" & zahl
Dann von rechts 5 Stellen kopieren. Dazu gibt es eine Funktion in VBScript. (RightStr oder so Ähnlich)
Man kann das noch verfeinern, indem man nicht 20 Nullen nimmt, sondern so viele, wie das Ergebnis
maximal an Stellen haben soll. In Delphi hiese die Funktion StringOfChar(),
auch hier gibt es eine vergleichbare VBScript Funktion.

TylerDurden 22. Aug 2007 09:56

Re: Zahlen formatieren (VBScript)
 
Vielen Dank!

Funktioniert bestens!

anubis2k5 13. Dez 2009 12:47

Re: Zahlen formatieren (VBScript)
 
Weiß jemand zufällig wie ich das o.g. Problemchen in Delphi umbauen kann?

Steh zur Zeit irgendwie auf der Leitung... :wall:

Sharky 13. Dez 2009 12:54

Re: Zahlen formatieren (VBScript)
 
Zitat:

Zitat von anubis2k5
Weiß jemand zufällig wie ich das o.g. Problemchen in Delphi umbauen kann?

Am einfachsten duch die Verwendung der im ersten Posting erwähnen Funktion Delphi-Referenz durchsuchenFormat.

anubis2k5 13. Dez 2009 13:02

Re: Zahlen formatieren (VBScript)
 
OK?! Kann's gar nicht glauben, dass es so einfach sein soll... Jetzt komm ich mir aber wirklich doof vor... :oops:


Alle Zeitangaben in WEZ +1. Es ist jetzt 22:55 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz