Cobol - Como saber la cantidad de veces que se repite una palabra en un string de caracteres

   
Vista:

Como saber la cantidad de veces que se repite una palabra en un string de caracteres

Publicado por Patricio (3 intervenciones) el 19/06/2015 16:40:31
Hola, me gustaría que me den una ayuda por favor.

Necesito sacar el numero de veces que se repite una palabra en un string, por ejemplo:

variable = 'la casa es de color verde, en la casa hay muchas ventanas, pero la casa esta lejos'

la palabra a buscar es 'casa' y debería indicar que esta 3 veces.

De ante mano gracias.
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

Como saber la cantidad de veces que se repite una palabra en un string de caracteres

Publicado por gatomalo (1 intervención) el 20/06/2015 00:33:16
WORKING STORAGE.
01 CONT PIC 999.
01 PALABRA PIC X(35).
01 wLongRaiz PIC 9(03).
01 NOMBRE PIC X(150).
PROCEDURE DIVISION.
MOVE 'adfecdecasakodedec' TO nombre.
INSPECT NOMBRE CONVERTING "abcdefghijklmnñopqrstuvwxyz"
TO "ABCDEFGHIJKLMNNOPQRSTUVWXYZ".
MOVE "CASA" TO PALABRA.
UNSTRING PALABRA DELIMITED BY SPACES INTO PALABRA COUNT IN wLongRaiz
INSPECT NOMBRE TALLYING CONT FOR ALL PALABRA(1:wLongRaiz).
IF CONT = 0 DISPLAY "NO EXISTE PALABRA".



la variable cont contiene las veces que la palabra se repite
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

Como saber la cantidad de veces que se repite una palabra en un string de caracteres

Publicado por SuperIndio (13 intervenciones) el 24/06/2015 16:09:40
Este es mi ejemplito que tengo, reemplazo y veras:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
77 WLos-Orozcos          PIC  X(3000) VALUE SPACES.
77 Wc-Comas              PIC  9(0003) VALUE 0.
77 Wc-LetraO             PIC  9(0003) VALUE 0.
77 Wc-LetraP             PIC  9(0003) VALUE 0.
 
STRING "Nosotros no somos como los Orozco, "
       "yo los conozco, son ocho los monos: "
       "Pocho, Toto, Cholo, Tom, "
       "Moncho, Rodolfo, Otto, Pololo. "
       "Yo pongo los votos sólo por Rodolfo, "
       "los otros son locos, yo los conozco, son todos trolos. "
       "Stop. Stop. "
       "Toto Orozco: "
       "Colocón "
       "Drogón como pocos "
       "Tomó todos los hongos "
       "Monologó solo como por dos otoños "
       "Botó formol por los hongos "
       "Tomó cloroformo, bols, ron, porrón, torronto, toso "
       "Norto con Bordón "
       "¿Lo votó o no? "
       "Dobló los codos como loco "
       "¡¡Coño!! ¿sos vos Toto? "
       "Corroboró "
       "Socorro, cómo tomó "
       "Morfó hot dog, mondongo, pollo con porotos "
       "Lloró, lloró con dolor "
       "Por como lloró tomó como dos hongos "
       "Tocó fondo "
       "Tocó como loco "
       "Contó todo, todo, todo "
       "Bochornoso como Cóppolo. Stop. Stop. "
       DELIMITED BY SIZE INTO WLos-Orozcos
END-STRING
INSPECT WLos-Orozcos TALLYING Wc-Comas   FOR ALL ','.
INSPECT WLos-Orozcos TALLYING Wc-LetraO  FOR ALL 'o'.
INSPECT WLos-Orozcos TALLYING Wc-LetraP  FOR ALL 'P'.
Display "Cantidad de Comas.........: " Wc-Comas .
Display "Cantidad de LetraO........: " Wc-LetraO.
Display "Cantidad de LetraP........: " Wc-LetraP.
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