INFH      Проверка наличия информации в элементе таблицы

 SYSTEM INFH
 SWAP   St

 <INFH /St/(/Sn/)>

   Проверка наличия информации в элементе с номером Sn таблицы St.
 
   Значение:  Результатом замены является:
                  '+' - элемент есть в таблице и содержит данные,
                  '-' - элемент есть в таблице и не содержит данных,
                  '*' - такого элемента нет в таблице.

  -------------------------------- Пример ----------------------------------

               START
               ENTRY task
               SYSTEM NEWT,SWRH,WTRH,CLTH,MULTE,INFH,PROUT
               SWAP box,tab

      task =    <NEWT /tab//1/>                       +
                <MULTE /0/<SWRH /tab/('str1')/1111/>> +
                <MULTE /0/<SWRH /tab/('str2')/2222/>> +
                <MULTE /0/<SWRH /tab/('str3')/3333/>> +
                <MULTE /0/<SWRH /tab/('str4')/4444/>> +
                <MULTE /0/<SWRH /tab/('str5')/5555/>> +
                <MULTE /0/<SWRH /tab/('str6')/6666/>> +
                <MULTE /0/<SWRH /tab/('str7')/7777/>> +
                <PROUT 'Такого элемента нет в таблице:'> +
                <PROUT <INFH /tab/(/9/)>>             +
                <PROUT 'Элемент есть в таблице и содержит данные:'> +
                <PROUT <INFH /tab/(/2/)>>             +
                <prout 'Элемент есть в таблице и не содержит данных:'> +
                <WTRH /tab/('str2')>                  +
                <PROUT <INFH /tab/(/2/)>>             +
                <PROUT 'Таблица очищена:'> +
                <CLTH /tab/>                          +
                <PROUT <INFH /tab/(/2/)>>
                END

      C:\REFAL>primer.exe
      Такого элемента нет в таблице:
      *
      Элемент есть в таблице и содержит данные:
      +
      Элемент есть в таблице и не содержит данных:
      -
      Таблица очищена:
      *

      C:\REFAL>

Seealso:


 IDXH  
 PTRH  
 RDRH  
 SWRF  
 SWRH  
 SWRN  
 WTRH