extTagEnumerate (Function)

This function is used to retrieve the name of the tags in a platform extension program or module.

Input:

path : STRING

The full path to the program or module to enumerate, as shown in the Platform Extension dialog.

index : INT

The index of the tag to get. (One based)

Output:

tag : STRING

The name of the tag.

Returns: INT

Declaration:

FUNCTION extTagEnumerate : INT;
VAR_INPUT
   path   : STRING;
   index  : INT;
   tag    : ACCESS STRING;
END_VAR;

Example:

INCLUDE rtcu.inc
 
FUNCTION ShowTag;
VAR_INPUT
   path     : STRING;
END_VAR;
VAR
   tag      : STRING;
   text     : STRING;
   i, rc    : INT;
END_VAR;
 
   i := 0;
 
   DebugMsg(message := "Extension:     " + path);
   REPEAT
      // Setup
      i := i + 1;
 
      // Get tag
      rc := extTagEnumerate(path := path, index := i, tag := tag);
      IF rc > 0 THEN
         DebugMsg(message := "Tag:");
         DebugMsg(message := tag);
         rc := extTagRead(path := path, tag := tag, text := text);
         IF rc > 0 THEN
            DebugMsg(message := "Text:");
            DebugMsg(message := text);
         ELSE
            DebugFmt(message := "extReadTag=\1", v1 := rc);
         END_IF;
      ELSE
         DebugFmt(message := "extTagEnumerate=\1", v1 := rc);
      END_IF;
   UNTIL rc < 1
   END_REPEAT;
   DebugMsg(message := "--------------------------------------------------");
 
END_FUNCTION;
 
PROGRAM test;
 
   // Initialize
   fsMediaOpen(media := 1);
 
   // Show all the tags from the extension
   ShowTag(path := "B:\SYSTEM\EXT\SERVER.RPX");
 
 
END_PROGRAM;