zeichenfolge trennen beim letzten /

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von singu.

    zeichenfolge trennen beim letzten /

    Hallo,
    Ich habe das Problem. Ich will diesen Pfad

    C:\Users\Pascal\Music\Mika - Happy Ending.mp3

    trennen. Also in

    C:\Users\Pascal\Music\

    Mika - Happy Ending.mp3

    Nur ich habe keine Ahnung wie ich das anstellen soll.

    Bin dankbar für Hilfe.
    „Ex-ter-mi-nate all knock-knock jokes! They are an enemy of the daleks “ A Dalek
    Mein Blog zum Thema Klarträumen

    Dann suchst du in deinem String mit IntStrRev nach dem letzten Backslash, dann hast du die Position

    Beispiel:

    VB.NET-Quellcode

    1. If Pfad.Contains("\") = True Then
    2. Dim Slash As Integer = InStrRev(Pfad, "\") ' letzte Slash ermitteln
    3. Dateiname_Holen = Mid(Pfad, Slash + 1)
    4. Else
    5. Dateiname_Holen = Pfad
    6. End If


    du must natürlich den vorderen teil dann auslesen

    ich habe noch eine besseres Beispiel in meinen Programmen gefunden

    VB.NET-Quellcode

    1. Public Shared Function Pfad_Ohne_Datei(ByVal Pfad As String) As String
    2. 'filtert den Pfad aus einer Pfadangabe
    3. 'Beispiel: TextBox2.Text = "C:\System32\BS_Library.DLL"
    4. 'Ergebnis: TextBox1.Text = "C:\System32\"
    5. 'Aufrufbeispiel: TextBox2.Text = BS_Filter.Pfad_Ohne_Datei(TextBox1.Text)
    6. If String.IsNullOrEmpty(Trim(Pfad)) Then
    7. Pfad_Ohne_Datei = "Die Pfadangaben sind leer !"
    8. Exit Function
    9. Else : End If
    10. If Pfad.Contains("\") = True Then
    11. Dim Slash As Integer = InStrRev(Pfad, "\")
    12. Pfad_Ohne_Datei = Left(Pfad, Slash)
    13. Else
    14. Pfad_Ohne_Datei = "Es ist kein Backslash vorhanden!"
    15. End If
    16. End Function

    Oder so, bei folgendem Skript hast du die Infos auch gleich in einer List.

    VB.NET-Quellcode

    1. Public Class Form1
    3. Dim List As List(Of FileList)
    5. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    7. Dim Line As String = "C:\Users\Pascal\Music\Mika - Happy Ending.mp3"
    8. Dim File As String = Nothing
    9. Dim Path As String = Nothing
    11. Path = Line.Substring(0, Line.LastIndexOf(CChar("\")))
    12. File = Line.Substring(Line.LastIndexOf(CChar("\")) + 1, Line.Length - Line.LastIndexOf(CChar("\")) - 1)
    14. List.Add(New FileList(Path, File))
    16. MessageBox.Show(Path)
    17. MessageBox.Show(File)
    19. End Sub
    21. Public Class FileList
    23. Private propFile As String
    24. Private propPath As String
    26. Public Property File() As String
    27. Get
    28. Return propFile
    29. End Get
    30. Set(ByVal value As String)
    31. propFile = value
    32. End Set
    33. End Property
    35. Public Property Path() As String
    36. Get
    37. Return propPath
    38. End Get
    39. Set(ByVal value As String)
    40. propPath = value
    41. End Set
    42. End Property
    44. Public Sub New(ByVal Path As String, ByVal File As String)
    46. propFile = File
    47. propPath = Path
    49. End Sub
    50. End Class
    51. End Class