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

   
Vista:

PROBLEMA CON CAMPO MEMO AYDUA!!!!

Publicado por sebastianr (7 intervenciones) el 21/10/2009 17:11:20
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.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:PROBLEMA CON CAMPO MEMO AYDUA!!!!

Publicado por Humberto (83 intervenciones) el 21/10/2009 17:47:52
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Mauricio

PROBLEMA CON CAMPO MEMO AYDUA!!!!

Publicado por Mauricio (1368 intervenciones) el 21/10/2009 19:18:09
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:PROBLEMA CON CAMPO MEMO AYDUA!!!!

Publicado por sebastianr (7 intervenciones) el 21/10/2009 19:33:51
muchas gracias por su ayuda voy a probar
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar