简单的取字符串问题

Question

"12345.exe"
我要取文件名,不要后缀.exe,怎么取呢谢谢我是菜鸟呵呵

Answer 1

aa="1234.exe"
msgbox left(aa,len(aa)-4)

Answer 2

aa="1234.exe" 
msgbox left(aa,len(aa)-4) '********************
'这样比较合适.因为后缀名可能不是三名.aa="1234.jn" 
msgbox mid(aa,1,instrrev(aa,".")-1) 

Answer 3

如果你是去文件名的部分的话：最好这样
添加个引用Microsoft Scripting Runtime：（具体是菜单里的:工程->引用->找到 Microsoft Scripting Runtime->确定），这个是微软的文件处理库。
然后添加代码：
Dim Fs as new Filesystemobject
msgbox Fs.Getbasename("1234.exe")   '--取基本文件名就可以了
你也可以取各种各样的数据，比如：
msgbox Fs.Getbasename("c:\aaa.rmvb")  '--取基本文件名
或者取别的：
msgbox Fs.GetExtionName("1234.exe")   '取扩展名=exe...
等等
很方便的。

Answer 4

Private Sub Command1_Click() '新建三个TextBox 分别显示
'取文件前面路径
Text1.Text = Left("c:\12345.exe", InStrRev("c:\12345.exe", "\"))
'取整个文件名
Text2.Text = Right("c:\12345.exe", Len("c:\12345.exe") - InStrRev("c:\12345.exe", "\"))
'只取文件名
Text3.Text = Mid(Text2.Text, 1, InStrRev(Text2.Text, ".") - 1)
End Sub