Traspasar linea string

[Ricardo Alfredo]

existe alguna rutina a la cual le pase un string en el que contiene algun caracter especifico por ejemplo el @ y me devuelva un arreglo dinamico en el cual cada columna es el valor que se encuentra entre el caracter especial.
Por ejemplo
archivo texto

298@juan perez@san carlos@22/11/2004@jazmin
339@velencia saturnino@new york@11/02/2004@hortencia
98362@sebastian@los angeles de santiago@@primavera

y la funcion me devuelva un arreglo con los valores de la linea que le pase
como parametros.

por ejemplo asumiento que la funcion se llama SalStrTokenize

SalStrTokenize(str_linea,'@','@',strarreglo)

y el arreglo tenga

strarreglo[0]=298
strarreglo[1]=juan perez
strarreglo[2]=san carlos
strarreglo[3]=22/11/2004
strarreglo[4]=jazmin