hallo liebe Community,
ich habe folgendes Problem: man kann per ar varname = varwert; eine Variable deklarieren.
ich parse mit regex und füge diese 2 Sachen in eine Dictonary ein.
jetzt will ich noch dass der variablenname durch den variablenwert in einer externen richtextbox ersetzt: nur irgendwie Klappt das nicht.
Meine Codes:
Button_Click
ParseVar-Funktion
was mach ich falsch, und wie kann ich das Problem beheben?
Vielen Dank, im voraus
ich habe folgendes Problem: man kann per ar varname = varwert; eine Variable deklarieren.
ich parse mit regex und füge diese 2 Sachen in eine Dictonary ein.
jetzt will ich noch dass der variablenname durch den variablenwert in einer externen richtextbox ersetzt: nur irgendwie Klappt das nicht.
Meine Codes:
VB.NET-Quellcode
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Dim calc As New mcCalc()
- Dim richtextbox1 As New RichTextBox
- Dim Symbollist As New Dictionary(Of String, String)
- richtextbox1.Lines = SyntaxRtb1.Lines
- ParseVar(Symbollist, richtextbox1)
- For Each vars In Symbollist
- richtextbox1.Text.Replace(vars.Key, vars.Value)
- 'MsgBox(vars.Key & ":" & vars.Value)
- Next vars
- For Each term In richtextbox1.Lines
- MsgBox(calc.evaluate(term))
- 'MsgBox(term)
- Next term
- End Sub
VB.NET-Quellcode
- Private Sub ParseVar(ByVal symbollist As Dictionary(Of String, String), ByVal rtb As RichTextBox)
- For Each vars As String In rtb.Lines
- If vars.StartsWith("var ") Then
- If vars.EndsWith(";") Then
- Dim varname As String = Regex.Match(vars, "var (?<varname>.*?) = ").Groups("varname").Value
- Dim varvalue As String = Regex.Match(vars, "var (?<varname>.*?) = (?<varvalue>.*?);").Groups("varvalue").Value
- symbollist.Add(varname, varvalue)
- Else
- MsgBox("; is missing")
- End If
- End If
- Next vars
- End Sub
was mach ich falsch, und wie kann ich das Problem beheben?
Vielen Dank, im voraus