Hollywood forums

Code: Select all

		tdata_flen[segcount]=ByteAsc(temp$,0)		
		tdata_func[segcount]=MidStr(temp$,1,1,#ENCODING_RAW)		
		tdata_parlen1[segcount]=ByteAsc(temp$,2)			
		tdata_argtyp[segcount]=MidStr(temp$,3,1,#ENCODING_RAW)	
		tdata_flen[segcount]=ByteAsc(temp$,4)				
		tdata_typ1[segcount]=MidStr(temp$,5,1,#ENCODING_RAW)		
		tdata_arglen1[segcount]=ByteAsc(temp$,6)			
		tdata_arg1[segcount]=ByteAsc(temp$,7)			
	

Code: Select all

		i = 0
		tdata_flen[segcount]=ByteAsc(temp$,i+)		
		tdata_func[segcount]=MidStr(temp$,i+,1,#ENCODING_RAW)		
		tdata_parlen1[segcount]=ByteAsc(temp$,i+)	
		tdata_argtyp[segcount]=MidStr(temp$,i+,1,#ENCODING_RAW)	
		tdata_flen[segcount]=ByteAsc(temp$,i+)			
		tdata_typ1[segcount]=MidStr(temp$,i+,1,#ENCODING_RAW)	
		tdata_arglen1[segcount]=ByteAsc(temp$,i+)		
		tdata_arg1[segcount]=ByteAsc(temp$,i+)
	;here i should be 8				

Code: Select all

Global iter
iter=-1 ;reset iterator
Function NextIter()
  iter=iter+1
  Return(iter)
EndFunction
...
		tdata_flen[segcount]=ByteAsc(temp$,NextIter())		
		tdata_func[segcount]=MidStr(temp$,NextIter(),1,#ENCODING_RAW)		
		tdata_parlen1[segcount]=ByteAsc(temp$,NextIter())
		tdata_argtyp[segcount]=MidStr(temp$,NextIter(),1,#ENCODING_RAW)	
		tdata_flen[segcount]=ByteAsc(temp$,NextIter())			
		tdata_typ1[segcount]=MidStr(temp$,NextIter(),1,#ENCODING_RAW)	
		tdata_arglen1[segcount]=ByteAsc(temp$,NextIter())	
		tdata_arg1[segcount]=ByteAsc(temp$,NextIter())
	;Here iter should be 7, the most recent value used.