defaultext()函数返回什么值
各位:请问defaultext()函数作用是什么,返回什么值?
另:以下过程该如何调用
procedure s-mtof
lparameter s-cfield, s-cfile, s-default-return, s-old-file
local s-temp-str, s-old-file, s-return
clear resource
s-return=s-default-return
s-old-file=′′
if vartype(s-cfield) !=″C″ or vartype(s-cfile) !=″C″ or vartype(s-default-return) !=″C″
=MessageBox(″参数类型错！″,48,″提示″)
return ′′
endif
if type(″＆s-cfield″) != ″M″
=MessageBox( ″ ′ ″＋s-cfield ＋″ ′ ″＋ ″字段必须是二进制备注型数据！″,48,″提示″)
return s-return
endif
s-temp-str = ＆s-cfield
if len(s-temp-str) 〈= 128
return s-return
endif
s-old-file = alltrim(left(s-temp-str,128))
if empty(s-cfile)
s-return=s-old-file
else
s-return=defaultext( s-cfile, alltrim(justext(s-old-file)) )
endif
=STRTOFILE( substr(s-temp-str,129), s-return, .F.)
return s-return
endproc
