he creado una tabla adicional con la misma estructura y he adicionado cuatro campos de texto de 250 caracteres cada uno pues el campo memo que uso no excede los 1000 caracteres (van desde 100 a casi 1000 caracteres). y he construido un programa con el siguiente código:
Código PHP:
set memowidth to 125
set path to t:d01geral
use rutas excl
zap
appe from d00r0001 for !empty(cdemp)
scan
c = 0
a = 3
for x=1 to memlines(dsrut)
if a = 3
c = c + 1
a = 1
d = ""
endif
campo = "ds"+alltrim(str(c))
d = d + alltrim(mline(dsrut,x)) + " "
a = a + 1
repl &campo. with d
next
endscan
si alguien necesita comentarios de lo que hace este código con gusto se las puedo hacer llegar...