如果我要截取e:\国内\歌手\阿杜\天黑.mp3中的“天黑”如何截取呢？

Question

请给出代码，我以前用的是instrev函数和inst函数，但不能截取到正确位置

Answer 1

Dim a, b As String
a = "e:\国内\歌手\阿杜\天黑.mp3"
b = Left(Right(a, Len(a) - InStrRev(a, "\")), InStr(Right(a, Len(a) - InStrRev(a, "\")), ".") - 1)
MsgBox b

Answer 2

Dim strA As String
strA = "e:\国内\歌手\阿杜\天黑.mp3"
Dim l As Long
l = 1
While InStr(strA, "\") <> 0
    l = InStr(strA, "\")
    strA = Mid(strA, l + 1)
Wend
strA = Left(strA, InStr(strA, ".") - 1)
MsgBox strA

Answer 3

如果你的文件名是用CommonDialog控件得到的，用.FileTitle属性就可以直接得到

Answer 4

简单的代码：
 AA = StrReverse("e:\国内\歌手\阿杜\天黑.mp3")
 AA = StrReverse(Left(AA, InStr(AA, "\") - 1))
MSGBOX AA

Answer 5

写错了， 应该是：
 AA = MID（StrReverse("e:\国内\歌手\阿杜\天黑.mp3")）
 AA = StrReverse(Left(AA, InStr(AA, "\") - 1))
MSGBOX AA

Answer 6

Dim a, b As String
dim c
a = "e:\国内\歌手\阿杜\天黑.mp3"
c=split(a,"\")
b=a(ubound(a))
c=split(b,".")
b=c(0)
msgbox b
'then b="天黑"

Answer 7

feihong0233(泓) 应该是对的，思路很清晰。
搂住好好看看！

Answer 8

还是错了： 
AA = MID（StrReverse("e:\国内\歌手\阿杜\天黑.mp3")，4）
 AA = StrReverse(Left(AA, InStr(AA, "\") - 1))
MSGBOX AA方法有很多~

Answer 9

你的问题不是截取天黑还是"阿杜"的问题而是从一个字符串里区其中的一部分
，在c语言里可以用指针实现，但vb没有指针，你可以利用几个字符串函数，组合成你自己的函数来实现，我就写过一个截取字符串的函数，我可以发给你

Answer 10

Private Sub Form_Load()aa = StrReverse("e:\国内\歌手\阿杜\天黑.mp3")
 aa = StrReverse(Left(aa, InStr(aa, "\") - 1))
aa = Left(aa, InStr(aa, ".") - 1)
MsgBox aa
End Sub