Programiranje varijabli na osnovu niza vrednosti

Recimo da imate ovakav problem: analizirate neku listu (artikle, stavke dokumenta, usluge, dod.troskove, neke stringove, ...) i na osnovu toga treba da dodelite vrednost nekim promenljivima. To moze da se odradi ovako:<br /> <br /> %COMMAND a := {&quot;COKOLADA&quot;, &quot;KEKS &quot;, &quot;BUREK &quot;}<br /> %COMMAND v := {&quot;m_cok &quot;, &quot;m_keks &quot;, &quot;m_burek&quot;}<br /> //<br /> %WHILE !Eof()<br /> %COMMAND m_pref := Upper(Left(a_naziv,8))<br /> %IF (n := AScan (a, m_pref)) &lt;&gt; 0<br /> %COMMAND cTmp := v[n]<br /> %COMMAND &amp;cTmp := m_kol<br /> %ENDIF<br /> %SKIP<br /> %ENDDO<br /> <br /> Ovde treba obratiti paznju na nekoliko stvari. Prvo, stavljanjem vrednosti u niz je izbegnuto da se koristi nepregledan niz IF naredbi. Vrednost se trazi koriscnjenjem fje ASCAN. Kada ona vrati neki broj &lt;&gt; 0, nadjena je vrednost koja nam treba. Sad sledi sledeci stos: najprostije bi bilo da je niz V niz brojeva i dovoljno bi bilo da stavimo V[N] := m_kol. Ali, recimo da nam bas treba da bude posebna varijabla. Tu se na osnovu naziva varijable koja se dobiaj iz niza (cTmp = &quot;m_cok&quot;, recimo) upisuje vrednost u samu varijablu (&amp;cTmp := ).