>TEXT TO lcx NOSHOW >1 >10 >2 >03 >1.1 >12.R >1.1.R >1201.1.RBX.250.R.1 >1.R >1.R.1 >A >B >AA >5.R >CDXB >ENDTEXT &&lcx > >STRTOFILE(lcx,'xyz.tmp') > >CREATE CURSOR curXYZ (cField c(40), cSortFld c(240)) >APPEND FROM xyz.tmp DELIMITED WITH TAB >DELETE FILE xyz.tmp > >replace ALL cSortFld WITH IP_Ascii (cField) >INDEX on cSortFld TAG cSortFld >browse > > >FUNCTION IP_ASCII(tcRow) >LOCAL lnColLen, lnMaxCol, lnColCnt, laCols[1], lcErg, lcAdd, luCol >lnColLen = 5 >lnMaxCol = 7 >lnColCnt = ALINES(laCols, UPPER(tcRow),1,".") >lcErg = "" >FOR lnCurCol = 1 TO lnMaxCol > lcAdd = IIF(lnColCnt>=lnCurCol,laCols[lnCurCol], "") > lcErg = m.lcErg + PADL(m.lcAdd, m.lnColLen, iif (EMPTY(m.lcAdd), CHR(45), IIF(ISAlpha(m.lcAdd), CHR(64), CHR(47)))) + "." >next >RETURN m.lcErg > >