cantidad de palabras
Publicado por Juan (1 intervención) el 11/02/2011 16:05:23
Hola, buenos dias no se si me podrian ayudar tengo este programa:
DEFINE VARIABLE l-Straux AS CHAR NO-UNDO.
DEFINE VARIABLE l-dirinput AS CHAR NO-UNDO.
DEFINE VARIABLE l-Recid AS RECID.
DEFINE VARIABLE l-conta AS INTEGER.
DEFINE VARIABLE l-palabra AS CHAR NO-UNDO.
DEFINE VARIABLE l-conta2 AS INT NO-UNDO.
l-dirinput = "c:\Documents\".
INPUT FROM "c:\Documents\contrato.txt".
l-conta = 0.
REPEAT:
IMPORT UNFORMATTED l-Straux.
l-conta = l-conta + 1.
END.
DISPLAY l-conta.
INPUT CLOSE.
El cual me lee el numero de lineas que contiene ese archivo, pero tambien quiero saber cuantas palabras contiene el archivo la unica manera que se me ocurre es identificando los espacios en blanco entre palabras pero no sabria como hacerle me podrian ayudar?
DEFINE VARIABLE l-Straux AS CHAR NO-UNDO.
DEFINE VARIABLE l-dirinput AS CHAR NO-UNDO.
DEFINE VARIABLE l-Recid AS RECID.
DEFINE VARIABLE l-conta AS INTEGER.
DEFINE VARIABLE l-palabra AS CHAR NO-UNDO.
DEFINE VARIABLE l-conta2 AS INT NO-UNDO.
l-dirinput = "c:\Documents\".
INPUT FROM "c:\Documents\contrato.txt".
l-conta = 0.
REPEAT:
IMPORT UNFORMATTED l-Straux.
l-conta = l-conta + 1.
END.
DISPLAY l-conta.
INPUT CLOSE.
El cual me lee el numero de lineas que contiene ese archivo, pero tambien quiero saber cuantas palabras contiene el archivo la unica manera que se me ocurre es identificando los espacios en blanco entre palabras pero no sabria como hacerle me podrian ayudar?
Valora esta pregunta
0