| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 791 人关注过本帖
标题:defaultext()函数返回什么值
只看楼主 加入收藏
zrbaddc
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2007-1-7
收藏
 问题点数:0 回复次数:2 
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
搜索更多相关主题的帖子: defaultext 函数 
2007-01-12 23:31
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 

defaultext( ) 函数: 如果一个文件没有扩展名,则返回一个带新扩展名的文件名。

语法: DEFAULTEXT(cFileName, cDefault)

返回值类型: 字符型

参数:
cFileName : 指定要返回的文件名(带有或不带有路径或扩展名)。
cDefault : 指定默认的扩展名,没有点号。

举例:
?defaultext("xxx","dbf") &&返回xxx.dbf
?defaultext("xxx.dbf","xls") &&返回xxx.dbf


感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2007-01-13 00:03
zrbaddc
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2007-1-7
收藏
得分:0 
谢谢Tiger5392版主, 调用以上"s-mtof "过程时,那该如何设置实参,如何接收过程的返回值呢?
2007-01-13 17:50
快速回复:defaultext()函数返回什么值
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.031290 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved