Zahlen übersichtlicher anzeigen

Übersicht

BlitzBasic

Codearchiv

	TOONY Betreff: Zahlen übersichtlicher anzeigen	Do, Mai 19, 2005 22:50 Antworten mit Zitat
Meine Funktion lässt Zahlen übersichtlich anzeigen: Code: [AUSKLAPPEN] [EINKLAPPEN] Print punktzahl("12345678") Print punktzahl("1456465456465486486754542345678") WaitKey() End Function punktzahl$(l$) m=Len(l$) Mod 3 n=Len(l$) a$= Left(l$,m) For i=1 To n Step 3 a$=a$+"."+Mid(l$,m+i,3) Next Return Left$(a$,Len(a$)-1) End Function

TOONY

Betreff: Zahlen übersichtlicher anzeigen

Do, Mai 19, 2005 22:50
Antworten mit Zitat

Meine Funktion lässt Zahlen übersichtlich anzeigen:

Code: [AUSKLAPPEN]

Print punktzahl("12345678")
Print punktzahl("1456465456465486486754542345678")

WaitKey()
End

Function punktzahl$(l$)
m=Len(l$) Mod 3
n=Len(l$)
a$= Left(l$,m)
For i=1 To n Step 3
a$=a$+"."+Mid(l$,m+i,3)
Next
Return Left$(a$,Len(a$)-1)
End Function

	feider ehemals "Decelion"	Do, Mai 19, 2005 23:12 Antworten mit Zitat
einfach, aber da zu faul zum selbermachen, nützlich.

feider

ehemals "Decelion"

Do, Mai 19, 2005 23:12
Antworten mit Zitat

einfach, aber da zu faul zum selbermachen, nützlich.

	Rallimen Sieger des 30-EUR-Wettbewerbs	Do, Mai 19, 2005 23:41 Antworten mit Zitat
Sieht gut aus! Fehlt noch die Komma Variante BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Function Pointing$ (a$) PosKomma%= Instr(a$,\".\") If PosKomma% Then c$=\",\"+Mid(a$,PosKomma%+1) a$ = Left (a$,PosKomma%-1) End If While Len (a$) > 3 b$ = \".\" + Right (A$,3) + b$ a$ = Left (A$,Len (A$) - 3) Wend Return a$ + b$ + c$ End Function
[BB2D \| BB3D \| BB+]

Rallimen

Sieger des 30-EUR-Wettbewerbs

Do, Mai 19, 2005 23:41
Antworten mit Zitat

Sieht gut aus!

Fehlt noch die Komma Variante

BlitzBasic: [AUSKLAPPEN]

Function Pointing$ (a$)
    PosKomma%= Instr(a$,\".\")
    If PosKomma% Then
        c$=\",\"+Mid(a$,PosKomma%+1)
        a$ = Left (a$,PosKomma%-1)
    End If 

    While Len (a$) > 3 
        b$ = \".\" + Right (A$,3) + b$ 
        a$ = Left (A$,Len (A$) - 3) 
    Wend 
    Return a$ + b$ + c$
End Function

[BB2D | BB3D | BB+]