如何从字符串"d:\aa\bb\cc\myfile.txt"中截取"myfile.txt"文件名.

如何从字符串"d:\aa\bb\cc\myfile.txt"中截取"myfile.txt"文件名. 问题点数：10、回复次数：4Top

1 楼Firing_Sky（火的天空）回复于 2001-01-30 15:31:00 得分 3

for   i=1   to   length(string)  
      if   mid(length(string)-i,1,1)='/'   then    
          s=right(string,   i)  
          exit   for  
      end   if  
  next   i  
   
      Top

2 楼zzh（）回复于 2001-01-30 15:39:00 得分 5

步骤如下：  
  1、使用反转函数把字符串反转。  
  2、把第一个\前的字符取出  
  3、把取出的字符再反转,反转函数好象是strReverse吧！查一下MSDN吧  
  其实你可以用GetCurrentDirectory先得到目录，再得文件名，两者相减就可以了。或者查找一下最后一个\所在的位置，然后再使用left()或right函数就可以了。Top

3 楼haor（一个好人）回复于 2001-01-30 15:39:00 得分 2

Private   Sub   Command1_Click()  
          Dim   strSource   As   String  
          strSource   =   "d:\aa\bb\cc\myfile.txt"  
          Dim   i   As   Integer  
          Dim   strDesc   As   String  
          strDesc   =   strSource  
          Do   While   InStr(1,   strDesc,   "\")  
                  strDesc   =   Right(strDesc,   Len(strDesc)   -   InStr(1,   strDesc,   "\"))  
          Loop  
          MsgBox   strDesc  
  End   Sub  
  Top

4 楼jinkai_woo（fly）回复于 2001-01-30 17:48:00 得分 0

Private   Sub   Command1_Click()  
          Dim   Sourcestring   As   String  
          Dim   s   As   String  
          Dim   n   As   Integer  
          Dim   i   As   Integer  
          Sourcestring   =   Text1.Text  
          n   =   Len(Sourcestring)  
          For   i   =   0   To   n  
          If   Mid(Sourcestring,   n   -   i,   1)   =   "\"   Then  
                    s   =   Right(Sourcestring,   i)  
                  Exit   For  
          End   If  
          Next   i  
          Label1.Caption   =   s  
   
  End   Sub  
  Top

相关问题

• 文件名
• 函数
• strdesc
• 字符串
• myfile
• sourcestring
• strsource
• txt
• aa
• bb

• 帖主：jinkai_woo
• Firing_Sky
• zzh
• haor

• Visual Basic类图书
• Visual Basic类源码下载