怎样获取一个文件的扩展名？在线等待！

怎样获取一个文件的扩展名？我用GetFileOpenName取出一个文件，但是我怎么样才能知道这个文件的扩展名称呢？ 问题点数：20、回复次数：9Top

1 楼ldy（罗大佑）回复于 2003-08-04 09:58:06 得分 5

将文件名反向搜索第一个"."，该位置后的就是扩展名Top

2 楼suziniren（泥人）回复于 2003-08-04 10:06:30 得分 5

string       ls_path,ls_filename  
  long           ll_return,ll_pos  
  string       ls_text  
   
  ll_return   =   GetFileOpenName('',ls_path,ls_filename)  
  if   ll_return   =   1   then    
      ll_pos   =   pos(ls_path,'.')  
      if   ll_pos   >   0   then    
            //取得扩展名  
            ls_text   =   mid(ls_path,ll_pos   +   1,len(ls_path)   -   ll_pos)  
      end   if    
  end   if    
  Top

3 楼wht8008（宁）回复于 2003-08-04 10:09:11 得分 0

可是现在的文件名称里面也可以有‘.’啊。  
  比如数据库的备份没有后缀。但我也可以给它命名成‘bak.bak’啊。Top

4 楼zxiaofei_2000（随缘珍重）回复于 2003-08-04 10:12:57 得分 5

string   ls_Title,   ls_PathName,   ls_FileName,   ls_Extension  
  GetFileOpenName(ls_Title,   ls_PathName,   ls_FileName)  
  ls_Extension   =   Mid(   FileName,   Pos(FileName,'.')+1   )Top

5 楼gcg_cumt（手扶拖拉机）回复于 2003-08-04 10:16:39 得分 5

我告诉你一个办法,可能不太好,但是肯定对  
  string   ls_filename='abc.123.txt'  
   
  下面的语句返回:txt  
   
  reverse(mid(reverse(ls_filename),1,pos(reverse(ls_filename),'.')   -1)))Top

6 楼zxiaofei_2000（随缘珍重）回复于 2003-08-04 10:24:07 得分 0

string   ls_Title,   ls_PathName,   ls_FileName,   ls_Extension  
  if   GetFileOpenName(ls_Title,   ls_PathName,   ls_FileName)   =   1   then  
        ls_Extension   =   Right(ls_FileName,3)  
  end   ifTop

7 楼wht8008（宁）回复于 2003-08-04 10:30:59 得分 0

可是大家有没有考虑到这种情况啊？  
  就是说这个文件没有后缀，但是文件名称里面有‘.’，这样的话怎么办？  
  Top

8 楼wht8008（宁）回复于 2003-08-04 10:31:37 得分 0

能否调用系统的api函数得到啊？我想这样可能比较准确一些。Top

9 楼wht8008（宁）回复于 2003-08-04 13:23:08 得分 0

dingTop

相关问题

• 文件
• ls
• 扩展名
• getfileopenname
• filename
• ll
• pos
• pathname
• 名称
• mid

• 帖主：wht8008
• ldy
• suziniren
• zxiaofei_2000
• gcg_cumt

• PowerBuilder类图书
• PowerBuilder类源码下载