Consultor Eletrônico



Kbase P6974: How to search for the second space in a statment using 4GL
Autor   Progress Software Corporation - Progress
Acesso   Público
Publicação   29/01/2003
Status: Unverified

GOAL:

How to search for the second space in a statment using 4GL

FIX:

DEFINE VARIABLE cLinea AS CHARACTER INITIAL "This is a test" NO-UNDO.
DEFINE VARIABLE i AS INTEGER NO-UNDO.

REPEAT i = 1 TO NUM-ENTRIES(cLinea, " "):
MESSAGE ENTRY(i, cLinea, " ")
VIEW-AS ALERT-BOX INFO BUTTONS OK.
END.