字符串操作 问题

Question

字符串c:\dd\gg\zz.zip
如何利用字符串函数取得zz.zip的文件名不包括路径和扩展名既取得zz

Answer 1

'strFile为文件名，如："c:\dd\gg\zz.zip",没测试，应该没问题
public function GetFileName(byval strFile as string) as string 
dim ar() as string
dim strName as string
dim nPos as integer
ar=split(strFile,"\")
strName=ar(ubound(ar))  '获取zz.zip
nPos=Instr(strName,".") '获取.的位置
strName=Left(strName,nPos-1) '得到zz
GetFileName=strName
end function'调用该函数获取名称：
msgbox GetFilename("c:\dd\gg\zz.zip")

Answer 2

a="c:\dd\gg\zz.zip"
b=split(a)
c=b(ubound(b))
b=split(c)
c=b(0)
debug.print c

Answer 3

Private Sub Command1_Click()
  Dim s As String, s1 As String
  Dim tmpstr() As String
  s = Text1.Text '字符串c:\dd\gg\zz.zip
  tmpstr = Split(s, "\")
  s1 = tmpstr(UBound(tmpstr))
  Text2.Text = Left(s1, InStr(s1, ".") - 1)
  
End Sub