Holen Sie sich Letzte element aus string array in vb6?

Wie kann man abrufen, die das Letzte element aus einem string-array in visual basic 6?

Ich bin den Umgang mit Dateinamen mit mehreren Punkten, die aufgeteilt sind in ein array, und ich will zu manipulieren, nur die Erweiterung. Der folgende code funktioniert, hat aber eine Feste element I entfernen möchten.

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
Warum nicht einfach den letzten index des'. ' - Zeichen in der Zeichenfolge?

InformationsquelleAutor |

  1. 27

    Ich denke, mit Ubound sollte den trick tun :

    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

    InformationsquelleAutor

  2. 4
    realExt = aPath(ubound(aPath))
    -- ich danke Ihnen sehr!

    InformationsquelleAutor

  3. 0

    Allerdings, wenn es wirklich nur um die Erweiterung, die Sie möchten, dies würde die Aufgabe:

    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

    InformationsquelleAutor

Schreibe einen Kommentar