
117553
21.09.2016, aktualisiert um 13:40:53 Uhr
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...
__________________________________________________________________________________________________________________________
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
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...
__________________________________________________________________________________________________________________________
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
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
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
2 Kommentare
Neuester Kommentar
Hi,
schau mal hier https://gallery.technet.microsoft.com/scriptcenter/68b0cd25-a8f6-4f80-97 ...
und hier https://msdn.microsoft.com/en-us/library/ms974570.aspx
E.
Edit: Ach so. VB.Net. Ich war auf VBscript aus ...
schau mal hier https://gallery.technet.microsoft.com/scriptcenter/68b0cd25-a8f6-4f80-97 ...
und hier https://msdn.microsoft.com/en-us/library/ms974570.aspx
E.
Edit: Ach so. VB.Net. Ich war auf VBscript aus ...

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