[bb] Extract a number under a string with SPACE by Filax [ 1+ years ago ]

BlitzBot · June 29, 2017, 00:28:41

Title : Extract a number under a string with SPACE
Author : Filax
Posted : 1+ years ago

Description : Use it for your lan coding !

Code :

Code (blitzbasic) Select

Pos$="-455.12456 -23.52 12.2656"
 
Print Pos$
Print 
Print Proc_ValueDepack(Pos$,1)
Print Proc_ValueDepack(Pos$,2)
Print Proc_ValueDepack(Pos$,3)
WaitKey 
 
Function Proc_ValueDepack$(Dat$,Value)
	Local SearchValue$=""
	Local SpaceChar$=""
	Local String_Counter=1
 
 	For Decrunch = 1 To Len(Dat$)
		SpaceChar$ = Mid(Dat$,Decrunch,1)
 
		If SpaceChar$ = " " Then
			String_Counter= String_Counter + 1
  		Else If String_Counter = Value Then
	     	SearchValue$=SearchValue$+SpaceChar$
   		EndIf 
	Next
 
	Return SearchValue$
End Function

Comments : none...

SyntaxBomb - Indie Coders

[bb] Extract a number under a string with SPACE by Filax [ 1+ years ago ]

BlitzBot