Sorry your browser is not supported!

//AGK 2.0.19
//MR

#option_explicit

Test()
end

function Test()

	local w as string[0]

	w=Split("Hello,World,123",",")

	local i as integer
	do
		for i=0 to w.length-1
			print(w[i])
		next
		
		if GetPointerPressed() then exit
		
		sync()
	loop

endfunction


function Split(text as string,delimiter as string)

	local sp as string[0] 
	local index as integer, count as integer
	
	count=CountStringTokens2 ( text, delimiter ) 
	sp.length = count

	for index=1 to count
		sp[index-1]=GetStringToken2(text,delimiter,index)
	next
	
endfunction sp

<?php
$str = "Hello,World,123";
print_r (explode("ld",$str));
?> 

//split "Hello,World,123" by the string "ld" will return
Array ( [0] => Hello,Wor [1] => ,123 )

w=Split("Hello,World,123","ld")

// will return
He

o,Wor
d,123

// Project: stringtok 
// Created: 2016-06-10
// Author: Conrad Brown

// set window properties
SetWindowTitle( "stringtok" )
SetWindowSize( 1024, 768, 0 )

// set display properties
SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 1, 1, 1, 1 )

Test$ = "HellotestMoo test Yeah! test woohoo test Works?"

do
    
	print( GetStringToken3(Test$,"test",2))

    Print( ScreenFPS() )
    Sync()
loop


function GetStringToken3(st as string, de as string, tok as integer)

if tok <= (FindStringCount(st,de)+1)

	wrk$ = st
	tokstart = 0
	`find the start of the token we want
	if tok = 1 
		tokstart = 1
	else
		for t = 1 to tok-1
			tokstart = tokstart + FindString(wrk$,de)+len(de)-1
			wrk$ = mid(wrk$,FindString(wrk$,de)+len(de),len(wrk$)-(FindString(wrk$,de)+len(de)))
		next t
		inc tokstart
	endif
	` find the end of the token we want
	tokend = FindString(wrk$,de)-1
	` if it is the very last token in the string
	if tokend = -1
		tokend = len(st)-tokstart+1
	endif

	st = mid(st,tokstart,tokend)

else
	` not enough tokens in the string
	st = ""
endif

endfunction st