==怎么截这个字符串？==

[LeonLu2001]

c:\dir1\dir2\abc.txt
c:\dir3\def.txt
我想从这些字符串中截取文件的路径c:\dir1\dir2，在VB里用什么字符串函数？
有直接判断str2即'\'在str1里出现的最后位置的函数吗？根据出现首位置再截有点累。

[LeonLu2001]

在线等，立即结帖。

[LeonLu2001]

InstrRev可以吗？

[viena]

InStrRev

[sunnyfire]

InStrRev从右侧开始找
len()-instrrev()+1

[leswang107]

Private Sub Command1_Click()
For i = 1 To Len(Text1.Text)
If Asc(Right(Text1.Text, i)) = 92 Then
Text1.Text = Left(Text1.Text, Len(Text1.Text) - i)
Exit Sub
End If
Next
End Sub

[LeonLu2001]

Ok，我搞定了。position = InstrRev(str1,'\')
谁还有别的好办法？散分

[Surpass]

Function ExtractPath(sFileName) As String
Dim nIdx As Integer
For nIdx = Len(sFileName) To 1 Step -1
If Mid$(sFileName, nIdx, 1) = "\" Then
ExtractPath = Mid$(sFileName, 1, nIdx)
Exit Function
End If
Next nIdx
ExtractPath = sFileName
End Function

[viena]

left("c:\dir3\def.txt",InStrRev("c:\dir3\def.txt","\")-1)
结果c:\dir3

从右侧开始找，但得到的位置是从左边开始的位数
len()-instrrev()+1不对吧？

[LeonLu2001]

//agree viena(晓琴)
但得到的位置是从左边开始的位数