Hi,
muss es unbedingt in einer Access Abfrage sein? Ich weiß jetzt nicht, ob man in VBA auch Regex verwenden kann aber falls ja, wäre das definitiv die sinnvollere Wahl. Mit einer reinen Access SQL Abfrage wage ich mal zu behaupten, dass das Gewünschte nicht
umsetzbar ist.
Egal, mit welcher Technologie, eine 100%ige Erkennungsrate wirst Du nicht erreichen, wenn die Elemente nicht separat getaggt sind oder es sein kann, dass noch weitere Inhalte, die dem Format entsprechen, im Text vorkommen.
Wenn man den Nachnamen und den Vornamen als eines sieht (also ggfs. nicht immer ein Komma dazwischensteht, sondern auch mal ein Leerzeichen oder auch gar nichts) würde bspw. ein Regex Ausdruck (mit dem man das schon parsen könnte) auch "2 Minuten"
als entsprechende Kombination erkennen.
Wenn man das Format exakt auf "<Zahl> <Nachname>, <Vorname>" setzen kann, geht es zwar. Aber auch dann darf im Text natürlich auch nichts vorkommen, was diesem Format entspricht.
In VB.NET könnte das bspw. so aussehen:
Dim Items As New List( Of String )
Items.Add( "Tor durch 18 Mustermann, Max (TV 1928 Hummelhausen)" )
Items.Add( "2 Minuten Strafe gegen 18 Mustermann, Max (TV 1928 Hummelhausen)" )
Items.Add( "7-Meter verworfen durch 18 Mustermann, Max (TV 1928 Hummelhausen)" )
Items.Add( "Disqualifikation gegen 18 Mustermann, Max (TV 1928 Hummelhausen)" )
Items.Add( "Tor nach 7-Meter durch 18 Mustermann, Max (TV 1928 Hummelhausen)" )
Items.Add( "Verwarnung gegen 18 Mustermann, Max (TV 1928 Hummelhausen)" )
Dim Regex As New Regex( "(\d{1,2}) (\w*, \w*)", RegexOptions.IgnoreCase Or RegexOptions.Singleline )
For Each Item As String In Items
TextBox1.AppendText( Item & Environment.NewLine )
For Each Match As Match In Regex.Matches( Item )
TextBox1.AppendText( "Nummer: " & Match.Groups( 1 ).Value & Environment.NewLine )
TextBox1.AppendText( "Name: " & Match.Groups( 2 ).Value & Environment.NewLine )
TextBox1.AppendText( Environment.NewLine )
Next
Next
Das ergibt dann folgende Ausgabe:
Tor durch 18 Mustermann, Max (TV 1928 Hummelhausen)
Nummer: 18
Name: Mustermann, Max
2 Minuten Strafe gegen 18 Mustermann, Max (TV 1928 Hummelhausen)
Nummer: 18
Name: Mustermann, Max
7-Meter verworfen durch 18 Mustermann, Max (TV 1928 Hummelhausen)
Nummer: 18
Name: Mustermann, Max
Disqualifikation gegen 18 Mustermann, Max (TV 1928 Hummelhausen)
Nummer: 18
Name: Mustermann, Max
Tor nach 7-Meter durch 18 Mustermann, Max (TV 1928 Hummelhausen)
Nummer: 18
Name: Mustermann, Max
Verwarnung gegen 18 Mustermann, Max (TV 1928 Hummelhausen)
Nummer: 18
Name: Mustermann, Max
Ein Beispiel für einen Text, der hier falsche Ergebnisse liefern würde, wäre bspw.:
Treffer nach 2 Minuten, geworfen durch Abc.
Hier würde dann als Nummer 2 und als Name "Minuten, geworfen" ausgegeben. Das lässt sich aber nicht verhindern.
Bei folgendem Text:
Treffer nach 2 Minuten, geworfen durch 18 Mustermann, Max
kämen dann zwei Ergebnisse:
Treffer nach 2 Minuten, geworfen durch 18 Mustermann, Max
Nummer: 2
Name: Minuten, geworfen
Nummer: 18
Name: Mustermann, Max
Gruß, Stefan
Microsoft MVP - Visual Developer ASP/ASP.NET
http://www.asp-solutions.de/ - Consulting, Development
http://www.aspnetzone.de/ - ASP.NET Zone, die ASP.NET Community
