FoxPro/Visual FoxPro - Extraer Palabras por espacio de un Cadena en un Campo Memo

 
Vista:
sin imagen de perfil
Val: 69
Ha aumentado 1 puesto en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

Extraer Palabras por espacio de un Cadena en un Campo Memo

Publicado por Jesus (121 intervenciones) el 09/11/2020 07:29:04
Estimados Expertos
Buenas Noches
De Excel desep seleccionar una fila cualquiera para este ejemplo esta fila que son 12 columas y las pego en un campo Memo en mi Formulario en VFP

TMR-4002 02/07/2014 REP2020-1 5,899 16,775 0,445 8,011 22,786 11,682 19,777 21,992 15,991

y en el campo Memo se ve asi:

TMR-4002 02/07/2014 REP2020-1 5,899 16,775 0,445 8,011 22,786 11,682 19,777 21,992 15,991

el resultado esperado es que cada palabra que esta separado por ESPACIOS en BLANCO se
Muestre en los campos de mi Formulario algo ASI:

Thisform.codigo.Value= TMR-4002
Thisform.fecha.Value= 02/07/2014
Thisform.reporte.Value= REP2020-1
.
.
.
.
Thisform.Valor9.Value=15,991

de ya mil gracias por tu tiempo y paciencia a cada uno de Ustedes



Atentamente,
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
Imágen de perfil de Abel
Val: 642
Plata
Ha mantenido su posición en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

Extraer Palabras por espacio de un Cadena en un Campo Memo

Publicado por Abel (286 intervenciones) el 10/11/2020 14:53:27
Suponiendo que los datos del campo memo estuviese dentro de la variable cMemo...

1
2
3
4
5
6
7
8
Thisform.codigo.Value= getwordnum(cMemo,1," ")
Thisform.fecha.Value= getwordnum(cMemo,2," ")
Thisform.reporte.Value= getwordnum(cMemo,3," ")
.
.
.
.
Thisform.Valor9.Value=getwordnum(cMemo,12," ")
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