String Prozedur für Führende Nullen und mehr

[Xaby]

Vielleicht gibt's sowas schon, komisch, dass es das nicht schon in Pure direkt gibt oder ich habe es übersehen.
Ich brauche die Prozedur ständig, vielleicht wäre das auch was für V.4

Code: Alles auswählen

Procedure.s StrN(S1.s, S2.s,n.l, a.l)
  Zahl$=LSet(S1,n-Len(Str(a)),S2)
  Zahl$=Zahl$+Str(a)
  ProcedureReturn Zahl$
EndProcedure

Also der Code ist wohl klar.
Für drei führende Nullen sieht der String dann so aus:

Code: Alles auswählen

StrN("","0",3,i)

Wobei das ja meist in Schleifen wichtig ist und i hier die Zählvariable
Wenn man z.B. Level-Nummern hat oder für eine Darstellung führende Zeichen benötigt. Statt der Null kann man sich auch ein Leerzeichen vorstellen, für die Console z.B., dass Zahlen schöner unter einander stehen.

Für das Level 15 z.B. StrN("LEV","0",8,15)
Wobei hier die Anzahl der führenden Nullen vom Text am Anfang abgezogen wird. Die Zahl, die nach den beiden StringTeilen kommt, gibt an, wie lang der String dann werden soll. Bei Dateinamen z.B. 8 Zeichen
Resultat: LEV00015


Ich hatte nach Strings mal gesucht und nach führenden Nullen, naja nichts gefunden, aber ich kann mir nicht vorstellen, dass ich der erste bin, der sowas braucht.

Liebe Grüße, viel Spaß mit dem Code.

[ts-soft]

Verstehe ich nicht
Wo ist der Unterschied, ausser der Parameterreihenfolge?

Code: Alles auswählen

Procedure.s StrN(S1.s, S2.s,n.l, a.l)
  Zahl$=LSet(S1,n-Len(Str(a)),S2)
  Zahl$=Zahl$+Str(a)
  ProcedureReturn Zahl$
EndProcedure

Debug StrN("","0",3,i)
Debug LSet("", 3, "000")

[NicTheQuick]

Wie wärs mit [c]RSet()[/c]:

Code: Alles auswählen

Procedure.s StrN(S1.s, S2.s,n.l, a.l) 
  Zahl$=LSet(S1,n-Len(Str(a)),S2) 
  Zahl$=Zahl$+Str(a) 
  ProcedureReturn Zahl$ 
EndProcedure 

zahl.l = 99
Debug StrN("","0",3, zahl) 
Debug RSet(Str(zahl), 3, "0")

[otto]

Ich hatte nach Strings mal gesucht und nach führenden Nullen, ...

Führende Nullen gibts überall, besonders in der Politik.
Wie man die wegbekommt, weiß ich auch nicht so genau.

Es gilt aber weiterhin:
'Nullen zählen mit und dürfen auch gewählt werden.'
zitiert aus Ekel Alfred

[Xaby]

Lieben Dank an NicTheQuick
Muss ich den Wald vor lauter Bäumen nicht gesehen haben.
Aber ich hab ja gesagt, ich denke, dass es sowas schon geben muss.