Befehl mit Parameter auslesen, evtl. Regex

  • VB.NET

Es gibt 24 Antworten in diesem Thema. Der letzte Beitrag () ist von singu.

    Befehl mit Parameter auslesen, evtl. Regex

    Ich habe folgende Zeile, wie kann ich nun bei diesem den Befehl ShowMessage und die 2 Parameter auslesen. Es kann vor der Klammer auch was anderes stehen und in der Klammer können auch mehr Parameter stehen.

    Quellcode

    1. ShowMessage("Dies ist eine Nachricht.", "Titel")

    singu schrieb:

    Es kann vor der Klammer auch was anderes stehen .

    Mit einem solchen Unterangebot an Informationen kann man Dir wieder einmal nicht helfen, und auf Ratespiele was Du wohl konkret beabsichtigen könntest fehlt mir heute sowohl die Zeit als auch die Lust. Ausserdem solltest Du Dich bei der Anzahl Deiner Beiträge auch mittlerweile selber mit Regex auskennen ...

    Hier mal der Code, wie ich mir das vorstelle.

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    5. Dim code As String = Nothing
    6. Dim befehl As String = Nothing
    7. Dim parameter1 As String = Nothing
    8. Dim parameter2 As String = Nothing
    10. ' In der Textbox steht folgende Zeichenfolge:
    11. ' ShowMessage("Dies ist eine Nachricht.", "Titel")
    13. code = Me.TextBox1.Text
    15. ' befehl soll dann ShowMessage enthalten
    16. ' parameter1 soll dann "Dies ist eine Nachricht." enthalten
    17. ' parameter2 soll dann "Titel" enthalten
    19. End Sub
    20. End Class

    Also ich hab es jetzt so weit hinbekommen, das er zwar den Befehl ausliest, aber die Klammer stört noch.

    VB.NET-Quellcode

    1. Imports System.Text.RegularExpressions
    3. Public Class Form1
    5. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    7. Dim code As String = Nothing
    8. Dim befehl As String = Nothing
    9. Dim parameter1 As String = Nothing
    10. Dim parameter2 As String = Nothing
    12. ' In der Textbox steht folgende Zeichenfolge:
    13. ' ShowMessage("Dies ist eine Nachricht.", "Titel")
    15. code = Me.TextBox1.Text
    17. ' befehl soll dann ShowMessage enthalten
    18. ' parameter1 soll dann "Dies ist eine Nachricht." enthalten
    19. ' parameter2 soll dann "Titel" enthalten
    21. 'Dim txt As String = "ShowMessage(""Dies ist eine Nachricht."", ""Titel"")"
    23. Dim re1 As String = ".*?" 'Non-greedy match on filler
    24. Dim re2 As String = "\(" 'Any Single Character 1
    26. Dim r As Regex = New Regex(".*?\(", RegexOptions.IgnoreCase Or RegexOptions.Singleline)
    27. Dim m As Match = r.Match(code)
    28. If (m.Success) Then
    29. For Each group As Group In m.Groups
    30. Console.WriteLine(group.ToString)
    31. Next
    32. 'Dim c1 = m.Groups(1)
    33. 'Console.WriteLine("(" + c1.ToString() + ")" + "")
    34. End If
    35. 'Console.ReadLine()
    38. End Sub
    39. End Class

    Wie wärs mit IndexOf("(")? Alles was davor ist ist der Befehl, alles danach bis LastIndexOf(")") die Parameter. Musst halt aufpassen da man auch z.B. ShowMessage(("bla"), ("1")) Schreiben könnte. Ich würde die Parameter hinterher bei , splitten

    Ich möchte es gerne mit Regex lösen, da es auch mehrere Parameter sein können und da scheiter ich momentan mit folgendem Code. Dieser liest nur 2 Parameter aus, aber es können auch mehrere Parameter sein und teilweise auch Integer.

    VB.NET-Quellcode

    1. Imports System.Text.RegularExpressions
    3. Public Class Form1
    5. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    7. Dim code As String = Nothing
    8. Dim befehl As String = Nothing
    9. Dim parameter1 As String = Nothing
    10. Dim parameter2 As String = Nothing
    12. ' In der Textbox steht folgende Zeichenfolge:
    13. ' ShowMessage("Dies ist eine Nachricht.", "Titel")
    15. code = Me.TextBox1.Text
    17. ' befehl soll dann ShowMessage enthalten
    18. ' parameter1 soll dann "Dies ist eine Nachricht." enthalten
    19. ' parameter2 soll dann "Titel" enthalten
    21. 'Dim txt As String = "ShowMessage(""Dies ist eine Nachricht."", ""Titel"")"
    23. 'Dim re1 As String = ".*?" 'Non-greedy match on filler
    24. 'Dim re2 As String = "\(" 'Any Single Character 1
    26. Dim re1 As String = "((?:[a-z][a-z0-9_]*))" 'Variable Name 1
    27. Dim re2 As String = ".*?" 'Non-greedy match on filler
    28. Dim re3 As String = "("".*?"")" 'Double Quote String 1
    29. Dim re4 As String = ".*?" 'Non-greedy match on filler
    30. Dim re5 As String = "("".*?"")" 'Double Quote String 2
    32. Dim r As Regex = New Regex(re1 + re2 + re3 + re4 + re5, RegexOptions.IgnoreCase Or RegexOptions.Singleline)
    33. Dim m As Match = r.Match(code)
    34. If (m.Success) Then
    35. For Each group As Group In m.Groups
    36. Console.WriteLine(group.Value)
    37. Next
    38. Dim c1 = m.Groups(1)
    39. Console.WriteLine("(" + c1.ToString() + ")" + "")
    40. End If
    41. 'Console.ReadLine()
    44. End Sub
    45. End Class

    @Smoove: Momentan nicht berücktsichtigt, kann aber auch vorkommen, wird aber noch kommen. Nur momentan nicht. Mir geht es lediglich darum, wie ich sauber die Methoden hier z.b. ShowMessage und die Parameter in der Klammer auslesen kann.

    Edit: @EiPott: Split und IndexOf möchte ich vermeiden, da die Befehle unterschiedlich sind und auch verschiedene Parameter haben.

    Hallo singu,
    Ich habe jetzt 'ne Lösung für dein Problem gefunden.
    Allerdings nicht die beste.
    Wenn ich rausfinde wie es noch besser geht ( sprich mit 1 Regex ) poste ich es.

    VB.NET-Quellcode

    1. Imports System.Text.RegularExpressions
    2. Public Class Form1
    3. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    4. Dim Target As String = "ShowMessage(""Dies ist eine Nachricht."", ""Titel"")"
    6. Dim Start As String = Regex.Match(Target, "([a-zA-Z]+)").Groups(1).Value
    8. Dim Parameter As MatchCollection = Regex.Matches(Target, """([^),""]+)""")
    9. For Each m As Match In Parameter
    10. MessageBox.Show(m.Groups(1).Value)
    11. Next
    12. End Sub
    13. End Class


    Mfg Kevin.

Facebook
Telefonspende