Monkey.Retro

degac

(Posted 2011) [#1]

From the old BASIC days they're always here...

Right Left Mid LSet RSet

FormatNumeric(value:float)

I've changed (a little) RSet and LSet functions to use other characters to 'pad' the string (you can use ie: - or 0)

	Function FormatNumeric:String(value:Float)
			Local i:Int,s:String,ns:String,k:Int
			Local os:String
			s=String(value)
			os=s
			Local pos:Int=s.Length()
			If s.Find(".")>0 pos=s.Find(".") Else os=""
			For i=pos To 1 Step -1
				If k>2 ns+="." k=0
				k+=1
				ns=ns+Mid(s,i,1)
			Next
			s=""
			For i= ns.Length() To 1 Step -1
				s+=Mid(ns,i,1)
			Next
			If os<>"" s=s+","+os[pos+1..]
			Return s
	End Function

	Function Left$( str$,n:Int )
		If n>str.Length() n=str.Length()
		Return str[..n]
	End Function
	
	Function Right$( str$,n:Int )
		If n>str.Length() n=str.Length()
		Return str[str.Length()-n..]
	End Function
	
	Function LSet$( str$,n:Int,char:String=" " )
		Local rep:String
		For Local i:Int=1 To n
			rep=rep+char
		Next
		str=str+rep
		Return str[..n]
	End Function
	
	Function RSet$( str$,n:Int,char:String=" " )
		Local rep:String
		For Local i:Int=1 To n
			rep=rep+char
		Next
		str=rep+str
		Return str[str.Length()-n..]
	End Function

	Function Mid$( str$,pos:Int,size:Int=-1 )
		If pos>str.Length() Return ""
		pos-=1
		If( size<0 ) Return str[pos..]
		If pos<0 size=size+pos pos=0
		If pos+size>str.Length() size=str.Length()-pos
		Return str[pos..pos+size]
	End Function

Stupid example:


Strict
Import mojo
Class Game Extends App
    Method OnCreate:Int()
	     SetUpdateRate 60
		Return 0
    End
    Method OnRender:Int()
		Cls 20,40,60
		Local ss:String="1234567890"

		DrawText "Left : "+Left(ss,3),100,10
		DrawText "Right: "+Right(ss,3),100,30
		DrawText "Lset : "+LSet(ss,15,"-"),100,50
		DrawText "Rset : "+RSet(ss,15),100,70
		DrawText "Mid  : "+Mid(ss,5,3),100,90
		DrawText "Pad  : "+RSet("24000",7),100,170
		DrawText "Numeric : "+RSet(FormatNumeric(12000.75),10),100,190
		DrawText "Numeric : "+FormatNumeric(12000),100,210
		Return 0
    End

	Function FormatNumeric:String(value:Float)
			Local i:Int,s:String,ns:String,k:Int
			Local os:String
			s=String(value)
			os=s
			Local pos:Int=s.Length()
			If s.Find(".")>0 pos=s.Find(".") Else os=""
			For i=pos To 1 Step -1
				If k>2 ns+="." k=0
				k+=1
				ns=ns+Mid(s,i,1)
			Next
			s=""
			For i= ns.Length() To 1 Step -1
				s+=Mid(ns,i,1)
			Next
			If os<>"" s=s+","+os[pos+1..]
			Return s
	End Function

	Function Left$( str$,n:Int )
		If n>str.Length() n=str.Length()
		Return str[..n]
	End Function
	
	Function Right$( str$,n:Int )
		If n>str.Length() n=str.Length()
		Return str[str.Length()-n..]
	End Function
	
	Function LSet$( str$,n:Int,char:String=" " )
		Local rep:String
		For Local i:Int=1 To n
			rep=rep+char
		Next
		str=str+rep
		Return str[..n]
	End Function
	
	Function RSet$( str$,n:Int,char:String=" " )
		Local rep:String
		For Local i:Int=1 To n
			rep=rep+char
		Next
		str=rep+str
		Return str[str.Length()-n..]
	End Function

	Function Mid$( str$,pos:Int,size:Int=-1 )
		If pos>str.Length() Return ""
		pos-=1
		If( size<0 ) Return str[pos..]
		If pos<0 size=size+pos pos=0
		If pos+size>str.Length() size=str.Length()-pos
		Return str[pos..pos+size]
	End Function
End

Function Main:Int()
    New Game
Return 0
End

OvineByDesign

(Posted 2011) [#2]

nice one

TheRedFox

(Posted 2011) [#3]

Much welcome!