Separar texto en 2 lineas...para impresion de cheques

[[BlueSteel]]

Hola amigos...

Estaba buscando una funcion que me permitiera separar un texto (sin cortar una palabra) en dos lineas,,, para la impresion de cheques....

Hace un tiempo hice la misma funcion pero en clipper.. y ahora no me cruje como hacerla....

la funcion que utilizaba en Clipper era la siguiente:

Lar := Len(numeropala(cmonto))  -> el largo de numero en palabras

if (lar >= 50)
  pal1:= substr(pala,1,50)
  pos:= rat(" ",pal1)  -> me indicaba la posición donde empezaba un espacio
  Pal1 := SubStr(pala,1, pos - 1)
  Pal2 := SubStr(pala, pos +1, lar - pos);
else
  Pal1 := pala;

Bueno,

hasta el momento he encontrado lo siguiente:

Length -> para obtener el largo de la palabra

me falta poder buscar un espacio despues de dicha posición... y empezar a cortar y unir...

la idea seria imprimir lo siguiente (Monto -> $ 854.254.121)

Ochocientos cincuenta y cuatro millones doscientos cincuenta y cuatro mil ciento veintiun

y separarlos en

Ochocientos cincuenta y cuatro millones doscientos
cincuenta y cuatro mil ciento veintiun