procedure dejbs2
parameters nbanuc,nbn1,nbn2
pomlcka1 = at('-',nbanuc)
if pomlcka1 <> 0 then
pomlcka2 = at('-',substr(nbanuc,pomlcka1+1,17))
else
pomlcka2 = 0
endif
if pomlcka1 <> 0 then
if pomlcka2 = 0 then
* nbanuc = substr(nbanuc,1,pomlcka1-1)+substr(nbanuc,pomlcka1+1,17)+' '
else
nbanuc = substr(nbanuc,1,pomlcka2+pomlcka1-1)+substr(nbanuc,pomlcka2+pomlcka1+1,17)+' '
endif
endif
pomlcka = at('-',nbanuc)
if pomlcka <> 0 then
nbn1 = alltrim(substr(nbanuc,1,pomlcka-1))
nbn2 = alltrim(substr(nbanuc,pomlcka+1,10))
else
nbn1 = space(6)
nbn2 = alltrim(nbanuc)
endif
return
Prijde mi, ze je to takovy soft 'from the good old days' - pocita se s tim ze vse pobezi na jedne konkretni platforme ktera se nikdy nezmeni, s fixnim rozlisenim vseho co lze a naprosto bez uvah o prenositelnosti. A prepisovat znovu se to urcite nikomu chtit nebude.
Kazdopadne i tak jsem rad za kazdou novou dotazenou svobodnou aplikaci.