PureBasic

Get MessageSet IDs as a Comma-Separated String

Demonstrates the Chilkat MessageSet.ToCommaSeparatedStr method, which returns the unique identifiers as a comma-separated string in ascending numeric order. It takes no arguments; an empty set returns an empty string. This example inserts a few ids and prints them.

Background: This is the fully expanded, human-readable form — every identifier listed explicitly, such as 1,2,3,5. It is handy for logging or display. When you need the terse form that collapses consecutive runs into ranges (for example 1:3,5), use ToCompactString instead. Like the compact form, the returned string contains only the numeric values and not the HasUids setting.

Chilkat PureBasic Downloads

Download Chilkat for PureBasic

PureBasic

IncludeFile "CkMessageSet.pb"

Procedure ChilkatExample()

    ;  Demonstrates the MessageSet.ToCommaSeparatedStr method, which returns the unique identifiers
    ;  as a comma-separated string in ascending numeric order.  It takes no arguments.

    msgSet.i = CkMessageSet::ckCreate()
    If msgSet.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ;  Build a set by inserting individual identifiers.  The insertion order does not matter;
    ;  the identifiers are kept in ascending order and duplicates are ignored.
    CkMessageSet::ckInsertId(msgSet,3)
    CkMessageSet::ckInsertId(msgSet,1)
    CkMessageSet::ckInsertId(msgSet,2)
    CkMessageSet::ckInsertId(msgSet,5)

    ;  Get the identifiers as a comma-separated string.
    csv.s = CkMessageSet::ckToCommaSeparatedStr(msgSet)
    Debug csv
    ;  Output: 1,2,3,5


    CkMessageSet::ckDispose(msgSet)


    ProcedureReturn
EndProcedure