• [^] # Re: Hum...

    Posté par . En réponse au message Extraire une sous chaîne de plusieurs lignes. Évalué à 2.

    Pas mal, ca fait un peu de bruit autour mais on se rapproche du l'idéal

    grep -z -a -U "SELECT .*;" src.pbl | sed "/^$/d"


    Dam

    ex fin du resultat obtenu :

    DAT* ö☺
    Boolean bRetour
    Pointer ptPointerCourant
    Long lIndex
    String strTypeZone
    //**********************
    //* CORPS DE LA FONCTION
    //--- Met en place le sablier
    ptPointerCourant = SetPointer(HourGlass!)
    //--- Déclare un curseur
    DECLARE Cur_Zone CURSOR FOR
    SELECT DISTINCT "ZONE"."C_ZONE",
    "ZONE"."T_ZONE"
    FROM "ZONE"
    WHERE "ZONE"."C_VER" = :lCODEVERSION
    ORDER BY "ZONE"."T_ZONE" ASC,
    "ZONE"."C_ZONE" ASC
    USING TRLOCALE;
    //--- Ouvre le curseur
    OPEDAT*