string sub GibCSVFieldPlz(string line, string separatorReg, int fieldNumber)
    string oldBuf = buf
    buf = line
    int ite
    string found
    while (found = find regular "?+" + separatorReg)
        ite += 1
        if ite == fieldNumber then
            GibCSVFieldPlz = found
            exit
        else
            delete found
        endif
    wend
    ite += 1
    if ite == fieldNumber then
        GibCSVFieldPlz = buf
    endif
    buf = oldBuf
endsub

string pole = GibCSVFieldPlz(linia, "/|", 10)

buf="A1|A2|A3|A4|A5|A6|A7|A8|A9|A10|A11|A12|A13"
   
   while find regular "{*}[|]-"
   
      print (regular 1),lf

   wend

string Sub GetElem(string sAll,int ElNum)
   int iLicz
   buf = sAll + "|"
   
   while find regular "{*}[|]-"
      iLicz += 1
      if iLicz == ElNum then GetElem = regular 1   
   wend

endsub

print GetElem("A1|A2|A3|A4|A5|A6|A7|A8|A9|A10|A11|A12|A13",4)