DataFlex

Get MessageSet IDs as a Compact String

Demonstrates the Chilkat MessageSet.ToCompactString method, which returns the unique identifiers in ascending order using compact IMAP message-set syntax, collapsing consecutive runs into inclusive ranges. It takes no arguments. This example loads 1,2,3,4,5,8,9,10 and prints the compact form 1:5,8:10.

Background: The result is canonical for the current set — unique, sorted, and range-compacted — which is the compact notation IMAP servers expect for message-set arguments. It is the inverse of FromCompactString, so the two round-trip: a set emitted here can be reloaded later. The string contains only numbers and omits the HasUids setting, so track UID-vs-sequence separately.

Chilkat DataFlex Downloads

Download Chilkat for DataFlex

DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoMsgSet
    String sCompact
    String sTemp1

    Move False To iSuccess

    //  Demonstrates the MessageSet.ToCompactString method, which returns the unique identifiers in
    //  ascending order using compact IMAP message-set syntax, with consecutive runs collapsed into
    //  inclusive ranges.  It takes no arguments.

    Get Create (RefClass(cComChilkatMessageSet)) To hoMsgSet
    If (Not(IsComObjectCreated(hoMsgSet))) Begin
        Send CreateComObject of hoMsgSet
    End

    //  Load a set of individual identifiers.
    Get ComFromCompactString Of hoMsgSet "1,2,3,4,5,8,9,10" To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoMsgSet To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    //  Get the canonical compact representation.
    Get ComToCompactString Of hoMsgSet To sCompact
    Showln sCompact
    //  Output: 1:5,8:10


End_Procedure