Cobol Foro

Cobol Foro (https://www.cobolforo.es/index.php)
-   RM/COBOL (https://www.cobolforo.es/forumdisplay.php?f=16)
-   -   [Sintaxis] Rutina de filtrado de palabras (https://www.cobolforo.es/showthread.php?t=162)

Gatomalo 22 de junio de 2015 22:47
Rutina de filtrado de palabras
 
Hola amigos, tengo una consulta si me pueden ayudar
tengo estos campos

Código:
  Maria carpio  cedula 52335
  Jose monzante cedula 62355
  Carlos del Prado Cozo cedula 4255656
  Sandro Villafuerte Hernandez cedula 3255552
por programa necesito que solo se muestren el nombre sin la cedula ni el numero
en un listado todo esta grabado en un solo campo.

GRACIAS

Kuk 23 de junio de 2015 09:27
gatomalo, toma un ejemplo de filtrado de texto. En este ejemplo, el campo TXT contiene el texto ya limpio (sin "cedula" y demás). Te he hehco el ejemplo suponiendo que lees de un fichero. Imagino que podrás adaptarlo un poco a tus necesidades:

Código COBOL:
  1.  WORKING-STORAGE SECTION.
  2.  01  IDX-1           PIC 9(5).
  3.  01  TXT             PIC X(50).
  4.  PROCEDURE DIVISION.
  5.  
  6.      PERFORM UNTIL SW-FIN-FICHERO
  7.          MOVE 1 TO IDX-1
  8.          
  9.          PERFORM UNTIL (IDX-1 + 6) > 50
  10.              IF  RE-REGISTRO(IDX-1:6) = 'cedula'
  11.                  MOVE RE-REGISTRO(1:IDX-1 - 1) TO TXT 
  12.              END-IF
  13.              
  14.              ADD 1 TO IDX-1
  15.          END-PERFORM
  16.          
  17.          READ FICHERO NEXT
  18.      END-PERFORM

Hrmcobol 30 de junio de 2015 14:14
Hola Amigo, otro opcion seria

Código COBOL:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  01 TXT1 PIC X(90) VALUE "Jose monzante cedula 62355".
  5.  01 TXT2 PIC X(90) VALUE SPACES.
  6.  PROCEDURE       DIVISION.
  7.       INSPECT TXT1 REPLACING ALL "cedula" BY "******"
  8.       STRING TXT1 DELIMITED BY "*" INTO TXT2 END-STRING
  9.       INVOKE POW-SELF "DisplayMessage" USING TXT2 " " 0

Roger 10 de marzo de 2017 04:03
Necesito filtrar desde un campo cmtext de la siguiente manera
si pongo C semuestre todas las palabras que empiezen con c
si pongo CA todas que con CA
si pongo CAM y asi sucecivamente ..... muy similar al filtrado que usan en Visual Basic.

:foto:

Kuk 10 de marzo de 2017 09:09
Roger, échale un vistazo a esto: [Aporte] Ejemplo de Filtro de búsqueda (Type ahead search) - COBOL Foro

Está hehco en Power v3 pero puedes leer el fuente para ver lo que se hace.


La franja horaria es GMT +2. Ahora son las 14:45.

Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.