>>I was just pointing out that your algorithm is not an equivalent replacement for juststem().
>
>Oooh ooh, what about mine?
>
>forceext(justfname(dbf()), '')

another:


function stripext (tcPath)

if len(tcPath) = 0
return ""
endif

local lnBackSlash, lnForwardSlash, lnColon, lnPeriod, lnStart

lnBackSlash = ratc('\', tcPath)
lnForwardSlash = ratc('/', tcPath)
lnColon = ratc(':', tcPath)
lnPeriod = ratc('.', tcPath)

lnStart = max(0, lnBackSlash, lnForwardSlash, lnColon) + 1

if lnPeriod < lnStart
lcStem = substr(tcPath, lnStart)
else
lcStem = substr(tcPath, lnStart, lnPeriod - lnStart)
endif

return lcStem