FoxPro/Visual FoxPro - PROBLEMA CON CAMPO MEMO AYDUA!!!!

Hola gente, una pregunta tengo un campo memo dentro del el (al presionar ctrl + ini) tengo estos datos:

[RELADOC][02001010 ][576.69][192.23][0.00][01][000001][0000000012345][20123760141]

como hago yo para separar esos datos, es decir ese campo memo ponerlo en un cursor pero por separado es decir asi

campo1
[RELADOC]

campo2
[02001010 ]

campo3
[576.69]

campo4
[192.23]

campo5
[0.00][01]

campo6
[000001]

campo7
[0000000012345]

campo8
[20123760141]

como haria eso? si alguien me puede ayudar, es algo urgente. gracias de antemano

pd. se entiende lo que quiero hacer no?, sino me avisan para detallarles mas el caso.

Hola. A ver si es así:

store CAMPOMEMO to CADENA

store subs(cadena,1,7) to campo1 && thisform.text1.value
store val(subs(cadena,8,15)) to campo2 && thisform.text2.value
store val(subs(cadena,23,6)) to campo3 && thisform.text3.value
store val(subs(cadena,30,6)) to campo4 && thisform.text4.value
store subs(cadena,37,4)+" "+subs(cadena,42,2) to campo5 && thisform.text5.value
store val(subs(cadena,45,6)) to campo6 && thisform.text6.value
store val(subs(cadena,52,13)) to campo7 && thisform.text7.value
store val(subs(cadena,66,11)) to campo8 && thisform.text8.value

esto debería de funcionar, aunque tengo mi duda, sinceramente si la primer línea es CORRECTA. Me refiero a " store CAMPOMEMO to CADENA ".

Si algún valor te da como resultado CERO "0" es porque tal vez conté mal las posiciones, por las dudas controlalo.

Es importante que repases los comandos Left(), Right(), Substr(),str() y val() para el manejo de cadenas alfanumericas.

store "ESTO ES ASI" to cadena

store subs(cadena,1,4) to uno && donde uno="ESTO"
store subs(cadena,6,2) to dos && donde dos="ES"
store subs(cadena,9,3) to tres && donde tres="ASI"
en este ejemplo los espacios en blanco no vienen considerados

Un abrazo y suerte

Sebastian, prueba esta rutina, te aclaro que no es lo unico en programacion pero de algo te ayudara, ademas de otras personas aca en el foro que te daran otra idea:
*--- Sebastian Campo memo LWP ALT + 91 ALT + 93
CLOSE TABLE ALL
* Structura de tabla seb_memo campo_memo M
USE seb_memo IN 0
SELE seb_memo
DIMENSION campo_M(15)
vcampo = ''
STORE 1 TO I, vindice
cIni = '['
cFin = ']'
DO WHILE .T.
IF SUBSTR(campo_memo,I,1) = cIni
DO Sigo_llenando
ELSE
vcampo = vcampo + ' '
ENDIF
IF vcampo = ' '
EXIT
ENDIF
ENDDO
RETURN
FUNCTION Sigo_llenando
DO WHILE .T.
vcampo = vcampo + SUBSTR(campo_memo,I,1)
IF SUBSTR(campo_memo,I,1) = cFin
I = I + 1
EXIT
ENDIF
I = I + 1
ENDDO
campo_m(vindice) = vcampo
vindice = vindice + 1
vcampo = ''
ENDFUNC

muchas gracias por su ayuda voy a probar