送分——————————VB中的字符串操作问题

Question

ii = 1
Do While ii <> 0
  i = ii + 1
  ii = InStr(i, list.Text, "\")
Loop
label.caption= Mid(list.Text, i, Len(list.Text) - i + 1)

Answer 1

Function Dir2Name(Dir As String, Name As String) As Long
Dim S As String
Dim i As Long
Dim Break As Boolean
For i = Len(Dir) To 1 Step -1
S = Mid$(Dir, i, 1)
If S = "\" And Break = False Then
Name = Right$(Dir, Len(Dir) - i)
Break = True
End If
Next i
End Function
'这段代码合适吗？
'Made by Thirdapple's Studio

Answer 2

Public Function GetFile(StrF As String) As String
    Dim i As Integer
    For i = Len(StrF) To 1 Step -1
        If Mid(StrF, i, 1) = "\" Then
            Exit For
        End If
    Next i
    Strfile = Right(StrF, Len(StrF) - i)
End Function