117553

Vb.net Pfadangabe mit Wildcards wie Stern Regex Pattern

Hallo zusammen,

ich würde gerne in meinem Project einen Pfad angeben in folgender Form...

- Laufwerk, Pfad bis zum letzten Ordnern sind bekannt und dann Datei
- Dateiname Anfang P1234_ mittel aus Textbox und ende _8905

Bsp. P1234_8t9811777_8905
1234 ist unbekannt und 8905 auch
8t9811777 wird über Textbox eingegeben

- wobei immer Anfang und ende unbekannt ist

wie könnte man das am besten umsetzen, hab mich versucht in Pattern und Regex einzulesen, leider komm ich damit alleine nicht ganz klar... face-sad

__________________________________________________________________________________________________________________________
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

ListBox1.Items.Clear()

For Each Line As String In IO.File.ReadAllLines("C:\DMO\" & "P" & "*_" & (TextBox1.Text) & "_*" & ".dmo")


If Line.Contains("TEILENUMMER") Then
ListBox1.Items.Add(Line)
End If

If Line.Contains("ZEICHNUNGSSTAND") Then
ListBox1.Items.Add(Line)
End If
End If

Next

End Sub
___________________________________________________________________________________________________________________________
vielen Dank für eure Hilfe
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilen

Content-ID: 315816

Url: https://administrator.de/forum/vb-net-pfadangabe-mit-wildcards-wie-stern-regex-pattern-315816.html

Ausgedruckt am: 30.04.2025 um 21:04 Uhr

emeriks
emeriks 21.09.2016 aktualisiert um 14:02:31 Uhr
Goto Top
129813
Lösung 129813 21.09.2016 aktualisiert um 13:21:47 Uhr
Goto Top
Dim search As String = "TEILENUMMER"  
For Each file In My.Computer.FileSystem.FindInFiles("C:\DMO", search, True, FileIO.SearchOption.SearchAllSubDirectories, "P*.dmo")  
    Dim result() as String = IO.File.ReadAllLines(file).Where(Function(x) x.Contains(search)).ToArray()
    For Each line In result
        ListBox1.Items.Add(line)
    Next
Next
Regards