Yoko

Code: Select all

sub test()
	var string="123,456,789"
	dim resArray[3]
	Split(string,",",resArray)
	var a = resArray[0]+resArray[1]
	var b = resArray[2]
endsub

Sub Split(string,delim,sArray)
	var LastAdd = 1
	var tempString = "";
	var i

	for i = 0 to Len(string)
	   If not string[i] == delim then
		  tempString = tempString + string[i]
	   End if
	   If string[i] == delim or Len(string) == i then
		  If not tempString == "" then
			 sArray[LastAdd] = tempString
			 tempString = "";
			 LastAdd = LastAdd + 1
		  End if
	   End if	   
	next
	sArray[0] = LastAdd - 1
	return sArray
End sub