Darren did not specifically ask for a 3.x solution. If he did, I would have suggested an upgrade. [Smile]

But anyway Kix 3.x code:
code:
While instr($filename, ".") > 0
	$x = instr($filename, ".")
	If $x = 0
		$x = len($filename)
	Endif
	$y = "" + $y + substr($filename, 1, $x)
	$filename = substr($filename, $x+1, len($filename))
Loop
$y = substr($y, 1, len($y)-1)
? "y = " + $y


[ 30 April 2002, 16:58: Message edited by: Howard Bullock ]
_________________________
Home page: http://www.kixhelp.com/hb/