Как скриптом организовать цикл по ЛС

Добрый день

//цикл по ЛС
{
    bool bInsertls=true;//только по выделенным ЛС 
    bool skipArhiveLs=true; //пропустить архивные ЛС
    int countLs=(bInsertls)?cntnum:counttn;
    for(int i=0;i < countLs;i++)
    {
        if (CMsg.Msg_Proc(("Подождите немного. Идет обработка ЛС"),100.*i/countLs)==ESC ) {return ESC;}
        int tnum=(bInsertls)?Porobr1(i)%sizetn:tn(i)%sizetn;
        if (skipArhiveLs && IsArchLS(tnum))
            continue;
        int RC=LSRead(tnum, 0); //читаем ЛС
        if(RC!=1) //не удалось прочитать
            continue;

        //тут пишем кусок полезного кода
     }  
}