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

Question

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

Answer 1

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

Answer 2

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

Answer 3

Dim s As String, i As Long
s = "C:\Documents and Settings\Administrator\桌面\0330.jpg"s=right(s,len(s)-instrrev(s,"\"))msgbox s

Answer 4

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

Answer 5

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

Answer 6

我晕，没看明白，改改就行。
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

Answer 7

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

Answer 8

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

Answer 9

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

Answer 10

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

Answer 11

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

Answer 12

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