如何取“\”后面的字符串呀

[haww1218]

例如C:\Documents and Settings\Administrator\桌面\0330.jpg这样的地址，我想去最后一个'\'后面的字符串，也就是文件名0330.jpg，请问该怎么做呢？

[programart_life]

用函数InStrRev
这个函数是从一个指定的字符串后面开始向前查找第一个适配的字符串。

[wanbotang]

Dim s As String, i As Long
s = "C:\Documents and Settings\Administrator\桌面\0330.jpg"
For i = 1 To Len(s)
If InStr(i, s, "\") = 0 Then Exit For
i = InStr(i, s, "\")
Next i
If i <> 0 Then
s = Left(s, i - 1)
End If

[colorslife]

Dim s As String, i As Long
s = "C:\Documents and Settings\Administrator\桌面\0330.jpg"

s=right(s,len(s)-instrrev(s,"\"))

msgbox s

[haww1218]

楼上大虾，这个取出来的是前面的C:\Documents and Settings\Administrator\桌面

[clear_zero]

instrrev找到后，然后用right找

还有一个方法
dim s() as string , str as string
s=split(C:\Documents and Settings\Administrator\桌面\0330.jpg,"\")
str=s(ubound(s))
就是了

[wanbotang]

我晕，没看明白，改改就行。
Dim s As String, i As Long
s = "C:\Documents and Settings\Administrator\桌面\0330.jpg"
For i = 1 To Len(s)
If InStr(i, s, "\") = 0 Then Exit For
i = InStr(i, s, "\")
Next i
If i <> 0 Then
s = Right(s, Len(s) - i + 1)
End If

[guyehanxinlei]

方法太多了

[guyehanxinlei]

Dim strS1 As String
strS1 = "C:\Documents and Settings\Administrator\桌面\0330.jpg"
Debug.Print Mid(strS1, InStrRev(strS1, "\"), Len(strS1) - InStrRev(strS1, "\") + 1)

[programart_life]

没办法，我一般只提供理论支持，没想到函数都给出了，还有需要提供源代码的。

[zzyong00]

Dim strS1 As String
strS1 = "C:\Documents and Settings\Administrator\桌面\0330.jpg"
Debug.Print Right(strS1, Len(strS1) - InStrRev(strS1, "\"))

[hxlvb]

Dim s As String, i As Long
s = "C:\Documents and Settings\Administrator\桌面\0330.jpg"
For i = 1 To Len(s)
If InStr(i, s, "\") = 0 Then Exit For
i = InStr(i, s, "\")
Next i
If i <> 0 Then
Text1.Text = Mid$(s, i, Len(s) - i + 1)
End If

[northwolves]

Sub xxxx()
Const s As String = "C:\Documents and Settings\Administrator\桌面\0330.jpg"
MsgBox Mid(s, 1 + InStrRev(s, "\"))
End Sub

[zhaoyifhq]

b=split("C:\Documents and Settings\Administrator\桌面\0330.jpg","\")
print b(ubound(b))



正解

[zhaoyifhq]

b=split("C:\Documents and Settings\Administrator\桌面\0330.jpg","\") '---用"\"分解字符串
print b(ubound(b))'---ubound(b)返回数组最大下标


正解