Proper String Manipulation?

Blitz3D Forums/Blitz3D Programming/Proper String Manipulation?

Omnicode

(Posted 2016) [#1]

Section Data is parsed in up to a maximum of 512 times per game tick. (Lessens with lower priority, i.e distance to player) Handling it like a virtual thread.

Occasionally I get a result of another area of the map being changed (which i think lies within the replace command which I tried to compensate for with separators "|") whenever editing certain positions. This is what i would like to fix.

Also, I know the function Assemble_Value could have the Assemble_Position function be called within it but for the sake of debugging I split them up.

CHANGE_TYPE is a function flag to determine if something is being REMOVED or ADDED to the thread/string.

;Section Data (000000011|000100001|000200001|000300091|000400001|000500001|000600004|000001011|000101001|000201001|000301091|000401001|000501001|000601004|000002011|000102001|)

;00 00 00 011| <- x,y,z,value

Function Handle_Section(S.Map_Section,UX,UY,UZ,CHANGE_TYPE)
	Local CX=(UX-(S\ax*Section_Size))
	Local CY=UY
	Local CZ=(UZ-(S\az*Section_Size))
	
	Poked_Old$=(Assemble_Value$(CX,CY,CZ,Section_Handle(UX,UY,UZ))+"|")
	Poked_New$=(Assemble_Value$(CX,CY,CZ,CHANGE_TYPE)+"|")
	Poked_Offset=Instr(S\Data_Thread$,Poked_Old$)
	
	DebugLog "Global -> "+UX+" "+UY+" "+UZ+" Local -> "+CX+" "+CY+" "+CZ+" ("+Poked_Old$+"|"+Poked_New$+")"
	
	;Open Thread  ---\/
	If CHANGE_TYPE<>0
		Section_Handle(UX,UY,UZ)=CHANGE_TYPE
		S\Data_Thread$=Replace$(S\Data_Thread$,")","")
		S\Data_Thread$=S\Data_Thread$+Poked_New$+")"
		S\Voxel_Update=True ;Note an Actual Change was made...
	Else
		Section_Handle(UX,UY,UZ)=0
		S\Data_Thread$=Replace$(S\Data_Thread$,Poked_Old$,"")
		S\Voxel_Update=True ;Note an Actual Change was made...
	EndIf
	;Close Thread ---/\
End Function

Function Assemble_Value$(ax,ay,az,av)
	A_V$=av ;000 Voxel_Kind
	A_X$=ax ;00  Voxel_Array_LX
	A_Y$=ay ;00  Voxel_Array_LY
	A_Z$=az ;00  Voxel_Array_LZ
	
	A_X$=RSet$(A_X$,2) : A_X$=Replace$(A_X$," ","0")
	A_Y$=RSet$(A_Y$,2) : A_Y$=Replace$(A_Y$," ","0")
	A_Z$=RSet$(A_Z$,2) : A_Z$=Replace$(A_Z$," ","0")
	A_V$=RSet$(A_V$,3) : A_V$=Replace$(A_V$," ","0")
	
	Value$=(A_X$+A_Y$+A_Z$+A_V$)
	
	Return Value$
End Function

Function Assemble_Position$(ax,ay,az)
	A_X$=ax ;00 range of 0-15 / 16
	A_Y$=ay ;00
	A_Z$=az ;00
	
	A_X$=RSet$(A_X$,2) : A_X$=Replace$(A_X$," ","0")
	A_Y$=RSet$(A_Y$,2) : A_Y$=Replace$(A_Y$," ","0")
	A_Z$=RSet$(A_Z$,2) : A_Z$=Replace$(A_Z$," ","0")
	
	Value$=(A_X$+A_Y$+A_Z$)
	
	Return Value$
End Function

Function Disassemble_Value(SOURCE$,Return_X,Return_Y,Return_Z,Return_V)
	If Return_X=True Then Return Left$(SOURCE$,2)
	If Return_Y=True Then Return Mid$(SOURCE$,3,2)
	If Return_Z=True Then Return Mid$(SOURCE$,5,2)
	If Return_V=True Then Return Right$(SOURCE$,3)
End Function

Omnicode

(Posted 2016) [#2]

Did a bit of testing and it seems by simply detecting string length and then adding "0"s when needed is around 2x faster than replacing empty space with "0"s.

AppTitle "String Speed Test"
Graphics 800,600,32,2
SeedRnd MilliSecs()

Global Operator_String$="001200011"
Global Calc_1,Calc_2,Output_1$,Output_2$
Global G_X,G_Y,G_Z,G_V

G_X=Disassemble_Value(Operator_String$,True,False,False,False)
G_Y=Disassemble_Value(Operator_String$,False,True,False,False)
G_Z=Disassemble_Value(Operator_String$,False,False,True,False)
G_V=Disassemble_Value(Operator_String$,False,False,False,True)

Pre_Calc=MilliSecs()
For Sample_Size=0 To 2048
	Output_1$=Assemble_Value_1$(G_X,G_Y,G_Z,G_V)
Next
Post_Calc=MilliSecs()
Calc_1=Post_Calc-Pre_Calc
DebugLog Calc_1+" "+Output_1$

Pre_Calc=MilliSecs()
For Sample_Size=0 To 2048
	Output_2$=Assemble_Value_2$(G_X,G_Y,G_Z,G_V)
Next
Post_Calc=MilliSecs()
Calc_2=Post_Calc-Pre_Calc
DebugLog Calc_2+" "+Output_2$

WaitKey()
End


;Old Routine
Function Assemble_Value_1$(ax,ay,az,av)
	A_V$=av ;000
	A_X$=ax ;00
	A_Y$=ay ;00
	A_Z$=az ;00
	
	A_X$=RSet$(A_X$,2) : A_X$=Replace$(A_X$," ","0")
	A_Y$=RSet$(A_Y$,2) : A_Y$=Replace$(A_Y$," ","0")
	A_Z$=RSet$(A_Z$,2) : A_Z$=Replace$(A_Z$," ","0")
	A_V$=RSet$(A_V$,3) : A_V$=Replace$(A_V$," ","0")
	
	Value$=(A_X$+A_Y$+A_Z$+A_V$)
	
	Return Value$
End Function

;New Routine
Function Assemble_Value_2$(ax,ay,az,av)
	A_X$=ax ;00
	A_Y$=ay ;00
	A_Z$=az ;00
	A_V$=av ;000
	
	If Len(A_X$)=1 Then A_X$="0"+A_X$
	If Len(A_Y$)=1 Then A_Y$="0"+A_Y$
	If Len(A_Z$)=1 Then A_Z$="0"+A_Z$
	
	If Len(A_V$)=1 Then A_V$="00"+A_V$
	If Len(A_V$)=2 Then A_V$= "0"+A_V$
	
	Value$=(A_X$+A_Y$+A_Z$+A_V$)
	
	Return Value$
End Function

Function Disassemble_Value(SOURCE$,Return_X,Return_Y,Return_Z,Return_V)
	If Return_X=True Then Return Left$(SOURCE$,2)
	If Return_Y=True Then Return Mid$(SOURCE$,3,2)
	If Return_Z=True Then Return Mid$(SOURCE$,5,2)
	If Return_V=True Then Return Right$(SOURCE$,3)
End Function