Question

有以下这样一个字符串，如何提取出最后一个“/”之前的字符，结果如下

字符串 C:/APP\workspace/q3p-web/bin/com/inetpsa/q3p/web/calendrier/struts/transactions/gestioncalendrier/Messages_fr_FR.properties
结果 C:/APP\workspace/q3p-web/bin/com/inetpsa/q3p/web/calendrier/struts/transactions/gestioncalendrier

Answer 1

Private Sub Command1_Click()
Dim myData() As String, myOutput As String, myInputStr As String, i As Integer
myInputStr = "C:/APP\workspace/q3p-web/bin/com/inetpsa/q3p/web/calendrier/struts/transactions/gestioncalendrier/Messages_fr_FR.properties"
myData = Split(myInputStr, "/")
For i = 0 To UBound(myData) - 1
myOutput = myOutput & myData(i) & "/"
Next
myOutput = Left(myOutput, Len(myOutput) - 1)
MsgBox myOutput
End Sub