Zahl in Tausender unterteilen?

[PMV]

Hier noch ein Klassiker in PB Syntax:

Code: Alles auswählen

OnErrorGoto(?Bed)

lol ... ich kannte den glaub nocht nicht, ist aber wirklich gut

Code: Alles auswählen

Procedure.s Str1000(Quad.q)
  Protected s.s = StrQ(Quad)
  Protected l.l = Len(s)
  Protected i.l, r.s
  Protected m.s
  If Quad < 0 : m = "-" : s = Right(s, Len(s) - 1) : l - 1 : EndIf
  
  For i = l To 4 Step -3
    r = "." + Mid(s, i - 2, 3) + r
  Next
  ProcedureReturn m + Left(s, i) + r
EndProcedure

Ich hab da auch noch ne Variante

MFG PMV

[KeyKon]

Naja, ich finde es besteht doch ein kleiner unterschied zwischen einem Code der eine Zahl in Tausender unterteilt und einem vorgefertigtem CS *g*
Ich fände eine Funktion wie in PHP (number_format) doch manchmal ganz praktisch...
Sicher kann man das alles per Hand lösen^^ Aber wir reden hier von PureBasic^^ Einer Sprache die doch eigentlich sehr simpel und praktisch sein sollte *g*

[ts-soft]

Sicher kann man das alles per Hand lösen^^ Aber wir reden hier von PureBasic^^ Einer Sprache die doch eigentlich sehr simpel und praktisch sein sollte *g*

siehe: http://purebasic.fr/german/viewtopic.ph ... 775#194775

[KeyKon]

Hab ich ja schon gesehen (*g*) aber wie gesagt, solche Funktionen könnten meiner Meinung nach schon in PB integriert sein....
Aber is ja egal, ich will hier keine Szene veranstalten ^^

[Fluid Byte]

Sicher kann man das alles per Hand lösen^^ Aber wir reden hier von PureBasic^^ Einer Sprache die doch eigentlich sehr simpel und praktisch sein sollte *g*

1.) PB ist sehr simpel und praktisch
2.) PB ist kein GameMaker
3.) Das von ts-soft gepostete Snippet kommt ohne API aus, es ist reiner PB code. Was wieder beweist das wenn etwas in PB "fehlt" man es meistens trotzdem nativ umsetzen kann. Man muss bzw. darf selber programmieren.
4.) Was Fred in den letzten Jahren bis zur heutigen Version geleistet hat ist gigantisch. Aber natürlich ist es unmöglich für jede Situation einen Befehl zu Verfügung zu stellen. Dann hol dir lieber ein Zusammen-Klick-Tool.

[KeyKon]

Oh man das man hier immer gleich "zurechtgewiesen" wird nur weil man einen Vorschlag macht...

[Shardik]

Warum is so eine Funktion eig nich in PB integriert? Wär doch ma ganz praktisch...

In PB ist so eine Funktion nicht integriert, aber ins Windows API...
Paul hatte dafür im englischen Forum folgende Prozedur vorgestellt (http://www.purebasic.fr/english/viewtop ... 01&start=1):

Code: Alles auswählen

Procedure.s FormatNumber(Number.q) 
  Buffer.s=Space(255) 
  GetNumberFormat_(0,0,StrQ(Number),0,@Buffer,Len(Buffer)) 
  ProcedureReturn Buffer 
EndProcedure 

Debug FormatNumber(123456789)

[AND51]

@Shradik:
Ein Buffer von 20 SPaces reicht, da Quads inkl. Minusvorzeichen maxa. 20-stellig sind.

PureBasic[, e]iner Sprache die doch eigentlich sehr simpel und praktisch sein sollte *g*

[...]
2.) PB ist kein GameMaker

Nun, ich finde auch, dass ein paar Befehle z. B. für die Math- oder STring-Lib nicht schaden könnten.

Überlegen wir doch mal: StringField() könnte locker selbst realisiert werden. Das geht genauso einfach wie Tausendertrennzeichen(). Warum nicht also auch ein paar "wünschenswerte" Befehle einbauen?
Natürlich wollen wir kein CreateGame() Befehl, wir wollen nur, dass ein paar klein(st)e Dinge angenehmer gestaltet werden. ReceiveHTTPFile() ist schließlich auch nur ein Ersatz für URLDownloadToFile_() und kann (wenn auch mit etwas mehr Aufwand) auch selbst realisiert werden. Es stellt auch niemand Fred's 'gigantische Leistung' in Frage. Wir wollen ihm ja nichts Böses, im Gegenteil, wir wollen helfen. Er muss ja Tausendertrennzeichen() nicht selbst coden und implementieren, er kann ja auch unsere Vorlagen nehmen, die wir hier gegenseitig optimieren, ggf. selbst noch ein wenig dran rumbasteln und dann implementieren.