117553
Goto Top

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

Content-Key: 315816

Url: https://administrator.de/contentid/315816

Printed on: April 24, 2024 at 16:04 o'clock

Member: emeriks
emeriks Sep 21, 2016 updated at 12:02:31 (UTC)
Goto Top
Mitglied: 129813
Solution 129813 Sep 21, 2016 updated at 11:21:47 (UTC)
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