在VB6中获取字符串数组的最后一个元素？

Question

如何在Visual Basic 6中获取字符串数组的最后一个元素？

我正在处理包含多个点的文件名，将其拆分成数组，并且我只想操作扩展名。下面的代码可以工作，但它有一个硬编码元素我想要移除。

Private Sub Form_Load()
    Dim aPath() As String
    Dim FileName As String
    Dim realExt As String

    FileName = "A long dotty.file.name.txt"
    aPath = Split(FileName, ".")

    realExt = aPath(3) ' <-- how to not hardcode?'

    MsgBox ("The real extension is: " & realExt)
    Unload Me
End Sub

- matt wilkie

---

为什么不直接在字符串中找到最后一个'.'字符的索引？ - Ed S.

Answer 1

我认为使用 Ubound 应该可以解决问题：

Private Sub Form_Load()
    Dim aPath() As String
    Dim FileName As String
    Dim realExt As String

    FileName = "A long dotty.file.name.txt"
    aPath = Split(FileName, ".")

    realExt = aPath(UBound(aPath))

    MsgBox ("The real extension is: " & realExt)
    Unload Me
End Sub

- MaxiWheat

Answer 2

realExt = aPath(ubound(aPath))

- shahkalpesh

Answer 3

然而，如果你真的只是想要扩展名，这样就可以了：

Private Sub Form_Load()
    Dim sFileName As String
    Dim lPos As Long
    Dim sRealExt As String

    sFileName = "A long dotty.file.name.txt"
    lPos = InStrRev(sFileName, ".")
    If lPos Then sRealExt = Mid$(sFileName, lPos + 1)
End Sub

- user1889116