Seite 1 von 1

String Prozedur für Führende Nullen und mehr

Verfasst: 19.01.2006 14:05
von 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.

Verfasst: 19.01.2006 14:11
von ts-soft
Verstehe ich nicht :freak:
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")

Verfasst: 19.01.2006 20:13
von 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")

Re: String Prozedur für Führende Nullen und mehr

Verfasst: 21.01.2006 15:55
von otto
Xaby hat geschrieben: 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

Hier vielen Dank an NicTheQuick

Verfasst: 28.01.2006 23:25
von Xaby
Lieben Dank an NicTheQuick :allright:
Muss ich den Wald vor lauter Bäumen nicht gesehen haben.
Aber ich hab ja gesagt, ich denke, dass es sowas schon geben muss. :?