0
votes

Comment puis-je obtenir le mot le plus long de 1 variable

Définir la variable CODIABLE comme caractère no-annuler.

CWORK = "outil de développement Web".

sortie nécessaire

Développement

Comment puis-je obtenir le mot le plus long à partir de celui-ci lorsque c'est une variable 1 uniquement,

Ceci est un code Progress4GL BTW

openedge progress-4gl

1 commentaires

Quelle est votre tentative jusqu'à présent et comment ça échoue?

3 Réponses :

1
votes

DEFINE VARIABLE cWord          AS CHARACTER   NO-UNDO.
DEFINE VARIABLE iWord          AS INTEGER     NO-UNDO.
DEFINE VARIABLE iLongest       AS INTEGER     NO-UNDO.
DEFINE VARIABLE iLength        AS INTEGER     NO-UNDO.
DEFINE VARIABLE iLongestLength AS INTEGER     NO-UNDO.
DEFINE VARIABLE iEntries       AS INTEGER     NO-UNDO.

ASSIGN cWord = "Web Development Tool"

       iEntries = NUM-ENTRIES (cWord, " ").

DO iWord = 1 TO iEntries:

    ASSIGN iLength = LENGTH (ENTRY (iWord, cWord, " ")) . 

    IF iLength > iLongestLength THEN
    DO:
        ASSIGN iLongest       = iWord
               iLongestLength = iLength .        
    END.
END.

MESSAGE ENTRY (iLongest, cWord, " ") 
    VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.

0 commentaires

0
votes

Si vous avez deux mots de même longueur, cela reviendra en premier.

DEF VAR iCount      AS INT  NO-UNDO.
DEF VAR cLongest    AS CHAR NO-UNDO.
DEF VAR cString     AS CHAR NO-UNDO INIT 'Web Development Tool'.

DO  iCount = 1 TO NUM-ENTRIES(cString,' '):
    cLongest = (IF LENGTH(ENTRY(iCount,cString,' ')) > LENGTH(cLongest) THEN ENTRY(iCount,cString,' ') ELSE cLongest).
END.

MESSAGE cLongest
    VIEW-AS ALERT-BOX INFO BUTTONS OK.

0 commentaires

1
votes

Juste parce que mon marteau préféré est une table Temp-table; -) xxx

https://abldojo.services.progress.com:443/#/?shareid=5E56F4A84C3C

0 commentaires