117553
Sep 21, 2016, updated at 11:40:53 (UTC)
1705
2
0
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
Please also mark the comments that contributed to the solution of the article
Content-Key: 315816
Url: https://administrator.de/contentid/315816
Printed on: April 24, 2024 at 16:04 o'clock
2 Comments
Latest comment
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