Extract a number under a string with SPACE

This code has been declared by its author to be Public Domain code.

Extract a number under a string with SPACE by Filax

2004

Use it for your lan coding !

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.

Code Archives Forum