>>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 >> >>