Regex *komprimieren*

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von Phreak87.

    Regex *komprimieren*

    Hallo Leute,

    wie würdet ihr am geschicktesten vorgehen, um ein Regex zu "komprimieren" ...
    Sprich aus einer Zeichenfolge (nehmen wir an "ABCDEFGKLMabcstlk123490" mit Pipes
    dazwischen (also ein Buchstabe / Zahl der Auswahl)) folgenden dem Beispiel entsprechenden
    String "A-G|K-M|a-c|s|t|l|k|0-4|9" zu erzeugen ?

    naja ... was will ich ... ist eig. schon genau beschrieben ... ich will eine Funktion, die mir ein
    Regex Pattern "umformt" und somit "komprimiert" auf die Zeichenlänge + lesbarkeit optimiert eben ...

    die langen Regex-Zeichenketten für Zeichengruppen nerven mich einfach und ich möchte das ganze
    Inhaltlich besser lesbar darstellen ...

    Hier mal der Source, wie es funktionieren sollte ... ist noch nicht so ganz ausgereift,
    geht aber schon ...

    VB.NET-Quellcode

    1. Public Shared Function CleanRegex(Pattern As String) As String
    3. Dim Pattern_Out As New System.Text.StringBuilder
    5. Dim RGXCol As System.Text.RegularExpressions.MatchCollection = System.Text.RegularExpressions.Regex.Matches(Pattern, "\(.*?\)")
    7. For Each Match As System.Text.RegularExpressions.Match In RGXCol
    9. Dim Liste As New List(Of String)
    10. Dim ListeASC As New List(Of Integer)
    11. Dim Reserve As New List(Of String)
    13. Liste = Split(Mid(Match.Value, 2, Len(Match.Value) - 2), "|").ToList
    15. For Each Satz As String In Liste.Distinct
    16. If Trim(Satz) <> "" And Len(CStr(Satz)) = 1 Then
    17. ListeASC.Add(Asc(Satz))
    18. Else
    19. Reserve.Add(Satz)
    20. End If
    21. Next
    23. If ListeASC.Count > 0 Then
    24. Pattern_Out.Append("(")
    26. Pattern_Out.Append(CreatePatternPart(ListeASC, 0, 47, True)) ' SZ1
    27. Pattern_Out.Append(CreatePatternPart(ListeASC, 48, 57)) ' Zahlen
    28. Pattern_Out.Append(CreatePatternPart(ListeASC, 58, 64, True)) ' SZ2
    29. Pattern_Out.Append(CreatePatternPart(ListeASC, 65, 90)) ' Buchstaben groß
    30. Pattern_Out.Append(CreatePatternPart(ListeASC, 91, 96, True)) ' SZ3
    31. Pattern_Out.Append(CreatePatternPart(ListeASC, 97, 122)) ' Buchstaben klein
    32. Pattern_Out.Append(CreatePatternPart(ListeASC, 123, 127, True)) ' SZ1
    34. For Each satz As String In Reserve
    35. Pattern_Out.Append(satz & "|")
    36. Next
    38. Pattern_Out.Append(")")
    39. Pattern = Pattern.Replace(Match.Value, Replace(Pattern_Out.ToString, "|)", ")"))
    40. Pattern_Out.Clear()
    41. End If
    43. Next
    45. Return (Pattern)
    46. End Function
    48. Private Shared Function CreatePatternPart(ListeASC As List(Of Integer), Von As Int16, Bis As Int16, Optional Anfügen As Boolean = False) As String
    49. Dim Pattern_OUt As New System.Text.StringBuilder
    51. If Anfügen = False Then
    52. Dim MinAsc As Int16 = 0
    53. Dim MaxAsc As Int16 = 0
    55. For i As Int16 = Von To Bis
    56. If ListeASC.Contains(i) = False Then
    57. If MinAsc > 0 Then
    58. If MinAsc = MaxAsc Then
    59. Pattern_OUt.Append(Chr(MinAsc))
    60. Else
    61. Pattern_OUt.Append(Chr(MinAsc) & "-" & Chr(MaxAsc))
    62. End If
    64. MinAsc = 0
    65. End If
    66. Else
    67. If MinAsc = 0 Then MinAsc = i
    68. If Bis = i Then
    69. If MinAsc = i Then
    70. Pattern_OUt.Append(Chr(i))
    71. Else
    72. Pattern_OUt.Append(Chr(MinAsc) & "-" & Chr(i))
    73. End If
    74. End If
    75. MaxAsc = i
    76. End If
    77. Next
    78. Else
    79. For i As Int16 = Von To Bis
    80. If ListeASC.Contains(i) = True Then
    81. Pattern_OUt.Append(Chr(i) & "|")
    82. End If
    83. Next
    84. End If
    86. Return Pattern_OUt.ToString
    87. End Function

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Phreak87“ ()

    Ähm - und ich könnte mich drauf verlassen, wennich das etwa

    Quellcode

    1. "(?<Date>.+?)(?<Time>\s\d{2}:\d{2}:\d{2}).+?(?<HostIp>\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}).*?(?<ProcessID>Anxilion:)(.+?[0-9]+\]:)?\W*(?<Several>.*)"

    als Pattern eingebe, dass dein Code den Pattern iwie verbessert, ohne ihn kaputt zu machen?

    Bei deinem Pattern würde genau das gleiche rauskommen ... :D

    Es werden nur einzelne Zeichen in Klammern zu Bereichen zusammengefasst ...
    also ein (A|B|C) wird zu (A-C) ... Der Rest bleibt unangetastet ...
    wenn du also in der Klammer kein Pipe verwendest passiert gar nix .

    Des ganze ist für eine Funktion für das Projekt der automatischen Patternerstellung ...
    und da hab ichs mir einfach gemacht und variable Zeichen mit Pipe in der Klammer getrennt ..

    Also bei meinen Tests hat alles funktioniert ... ausnahmen bestätigen sicher mal wieder die Regel :D

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Phreak87“ ()

    Hallo :)

    ich mal wieder ... Regex komprimieren funktioniert jetzt Problemlos ...
    jetzt bin ich bei Schritt 2, bei dem mir (wieder mal) die Ideen ausgehen ...

    Wenn ich eine Liste mit Wörtern habe, die sich *überschneiden*
    ein, kein, klein, einstein, steinbruch, einbruch... dann enthält jedes Wort "ein",
    jedoch bei einstein und steinbruch ist "stein" die Menge, die das Pattern
    um mehr Zeichen verkleinert ....

    jetzt möchte ich das kleinste gemeinsame Pattern für die Wörter finden ...
    (k)?(l)?ein(stein)?(bruch)? bzw. (k|kl)?ein(stein)?(bruch)?

    Hat irgendwer Ideen, wie ich das am geschicktesten erreichen kann ?

Facebook
Telefonspende