Hilfe beim ändern des Ausgabetextes (Regex)

Regular_vb_user · 15. Februar 2013, 18:24

Hey VB-Paradise Com,
ich habe derzeit Probleme mit einem "einfachen" Regex - Programm.

Zum Programm: Ich verwende eine Textbox, Listbox und einen Button. Der Eingangstext wird in die Textbox eingetragen -> Ausgabetext ist in der Listbox.
Beispiel: Der Inputtext ist: <test id="10" a="0" b="0" c="1" d="0" e="0" f="2"/> Der Ausgabetext soll sein (Listbox): TEST PROG `t_protocol` VALUES ('10', '0', '0', '1', '0', '0', '2');

Mein Derzeitiger Programmcode sieht so aus:

Quellcode

Imports System.Text.RegularExpressions
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Gefunden As New List(Of String)
Dim Curr As String
Dim MC As MatchCollection = Regex.Matches(TextBox1.Text, "<test id="(.*)" a="(.*)" b="(.*)" c="(.*)" d="(.*)" e="(.*)" f="(.*)"/>", RegexOptions.IgnoreCase)
For i As Integer = 0 To MC.Count - 1
If Gefunden.Contains(MC(i).Value) = False Then
Curr = MC(i).Value.ToString
ListBox1.Items.Add(Curr)
End If
Next
End Sub
End Class

Ich hoffe ihr könnt mir weiterhelfen.

PS: Habe noch keine guten Regex kenntnisse.
Mfg Regular_vb_user

Kangaroo · 15. Februar 2013, 19:26

Regular_vb_user schrieb:

PS: Habe noch keine guten Regex kenntnisse.

Das ist untertrieben: Du hast noch garkeine Regex-Kenntnisse :rolleyes:

Lies Dir erst einmal dieses Tutorial durch und versuch es anzuwenden: RegEx Tutorial - Blutige Anfänger und Fortgeschrittene

Dann helfen wir Dir gerne weiter ...

Regular_vb_user · 15. Februar 2013, 19:48

Kangaroo schrieb:

Regular_vb_user schrieb:

PS: Habe noch keine guten Regex kenntnisse.

Das ist untertrieben: Du hast noch garkeine Regex-Kenntnisse

Lies Dir erst einmal dieses Tutorial durch und versuch es anzuwenden: RegEx Tutorial - Blutige Anfänger und Fortgeschrittene

Dann helfen wir Dir gerne weiter ...

Ich habe es bereits mit replace versucht, doch ich bekomme es nicht hin die variablen aus textbox1 auszulesen...

Quellcode

Imports System.Text.RegularExpressions
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox2.Text = Regex.Replace(TextBox1.Text, "<test id="(.*)" a="(.*)" b="(.*)" c="(.*)" d="(.*)" e="(.*)" f="(.*)"/>", "TEST PROG `t_protocol` VALUES ('(.*)', '(.*)', '(.*)', '(.*)', '(.*)', '(.*)', '(.*)');", RegexOptions.IgnoreCase)
End Sub
End Class

Gibt es eine Möglichkeit über Replace ? oder nur über Split ?

Regular_vb_user · 16. Februar 2013, 10:25

Quellcode

Imports System.Text.RegularExpressions
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim input As String = TextBox1.Text
Dim filter1 As String = Regex.Replace(input, "a=" & "b=" & "c=" & "d=" & "e=" & "f=", ",")
Dim erg As String = filter1
TextBox2.Text = erg
End Sub
End Class

So sieht mein derzeitiger code aus, doch der output text wird nicht abgeändert

Weiß jemand woran das liegt, bzw. wie ich das ändern kann ?

Mfg Regular_vb_user

Kangaroo · 16. Februar 2013, 12:13

Regular_vb_user schrieb:

hat sich erledigt. Hilft ja sowieso niemand...

Da Du Dich bemüht hast:

VB.NET-Quellcode

Imports System.Text.RegularExpressions
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim inputText = "<test id=""10"" a=""0"" b=""0"" c=""1"" d=""0"" e=""0"" f=""2""/>"
' entfernen wir erstmal die Anführungsstriche
Dim cleanInput As String = inputText.Replace(""""c, "")
' regex pattern
Dim pattern As String = "id=(?<ID>\d+) .*? a=(?<A>\d+) .*? b=(?<B>\d+) .*? c=(?<C>\d+) .*? d=(?<D>\d+) .*? e=(?<E>\d+) .*? f=(?<F>\d+)"
Dim m As Match = Regex.Match(cleanInput, pattern, RegexOptions.IgnorePatternWhitespace Or RegexOptions.IgnoreCase)
' output
Dim text As String = String.Format("TEST PROG 't_protocol' VALUES ('{0}', '{1}', '{2}', '{3}', '{4}', '{5}', '{6}' )", _
m.Groups("ID").Value, m.Groups("A").Value, m.Groups("B").Value, m.Groups("C").Value, m.Groups("D").Value, m.Groups("E").Value, m.Groups("F").Value)
MessageBox.Show(text)
End Sub
End Class

Regular_vb_user · 16. Februar 2013, 21:40

Kangaroo schrieb:

Imports System.Text.RegularExpressions
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim inputText = "<test id=""10"" a=""0"" b=""0"" c=""1"" d=""0"" e=""0"" f=""2""/>"
' entfernen wir erstmal die Anführungsstriche
Dim cleanInput As String = inputText.Replace(""""c, "")
' regex pattern
Dim pattern As String = "id=(?<ID>\d+) .*? a=(?<A>\d+) .*? b=(?<B>\d+) .*? c=(?<C>\d+) .*? d=(?<D>\d+) .*? e=(?<E>\d+) .*? f=(?<F>\d+)"
Dim m As Match = Regex.Match(cleanInput, pattern, RegexOptions.IgnorePatternWhitespace Or RegexOptions.IgnoreCase)
' output
Dim text As String = String.Format("TEST PROG 't_protocol' VALUES ('{0}', '{1}', '{2}', '{3}', '{4}', '{5}', '{6}' )", _
m.Groups("ID").Value, m.Groups("A").Value, m.Groups("B").Value, m.Groups("C").Value, m.Groups("D").Value, m.Groups("E").Value, m.Groups("F").Value)
MessageBox.Show(text)
End Sub
End Class

Danke das du mir doch noch geholfen hast. In der zwischenzeit kam ich selbst zum ergebnis.

Quellcode

Imports System.Text.RegularExpressions
Public Class query_converter
Private Sub query_converter_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim input As String = TextBox1.Text
Dim filter1 As String = Regex.Replace(input, "'", "")
Dim erg As String = filter1
TextBox2.Text = erg
End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
Dim filter2 As String = Regex.Replace(TextBox2.Text, """", "'").Replace("<test id=", "TEST PROG `t_protocol` VALUES (").Replace("/>", ");")
Dim erg As String = filter2
TextBox3.Text = filter2
End Sub
Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
Dim filter3 As String = Regex.Replace(TextBox3.Text, "a=", ",").Replace("b=", ",").Replace("c=", ",").Replace("d=", ",").Replace("e=", ",").Replace("f=", ",")
Dim erg As String = filter3
TextBox4.Text = filter3
End Sub
End Class

Trotzdem danke, deine Version ist aufjedenfall besser, weil man dort die values in versch. reihenfolgen ausgeben lassen kann z.B. a, b ,d, f,c,e .

Regular_vb_user · 23. Februar 2013, 11:04

Ich habe mein Projekt erweitert und stehe an einem weiterem Problem.

Mein Code:

Quellcode

Imports System.Text.RegularExpressions
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim input As String = TextBox3.Text
Dim filter1 As String = Regex.Replace(input, "'", "")
Dim erg As String = filter1
TextBox2.Text = erg
End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
Dim inputText = TextBox2.Text
Dim cleanInput As String = inputText.Replace(""""c, "")
Dim pattern As String = "id=(?<ID>\d+) .*? a=(?<A>\d+) .*? b=(?<B>\d+) .*? c=(?<C>\d+) .*? d=(?<D>\d+) .*? e=(?<E>\d+) .*? f=(?<F>\d+) .*? x=(?<X>\d+) .*? y=(?<Y>\d+)"
Dim m As Match = Regex.Match(cleanInput, pattern, RegexOptions.IgnorePatternWhitespace Or RegexOptions.IgnoreCase)
' output
Dim text As String = String.Format("TEST PROG 't_protocol' VALUES ('{0}', '{1}', '{2}', '{3}', '{4}', '{5}', '{6}' , '{7}', '{8}')", _
m.Groups("ID").Value, m.Groups("A").Value, m.Groups("B").Value, m.Groups("C").Value, m.Groups("D").Value, m.Groups("E").Value, m.Groups("F").Value, m.Groups("X").Value, m.Groups("Y").Value)
TextBox5.Text = text
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim input As String = TextBox1.Text
Dim filter1 As String = Regex.Replace(input, "/>", "x=100 y=200")
TextBox3.Text = filter1
End Sub
End Class

Der Inputtext in Textbox1 lautet wie folgt: <test id="10" a="0" b="0" c="1" d="0" e="0" f="2"/>
Der Ausgabetext wird um X=100 und Y=200 erweitert -> Ausgabetext soll sein: TEST PROG `t_protocol` VALUES ('10', '0', '0', '1', '0', '0', '2', '100', '200');
Das Funktioniert bereits mit meinem Code... Mein aktuelles Problem ist, dass sich dieser Code nur für die erste Zeile des Inputtextes auswirkt -> Rest wird ignoriert.

#Die Values X=100 und Y=200 sind fest im Programm eingestellt und sollen es auch bleiben!
Beispiel: Inputtext:

Quellcode

<test id="10" a="0" b="0" c="1" d="0" e="0" f="2"/>
<test id="50" a="10" b="20" c="5" d="60" e="20" f="7"/>

Ausgabetext:

Quellcode

TEST PROG `t_protocol` VALUES ('10', '0', '0', '1', '0', '0', '2', '100', '200');

Ich habe es bereits mit

Quellcode

Dim pattern As String = "id=(?<ID>\d+) .*? a=(?<A>\d+) .*? b=(?<B>\d+) .*? c=(?<C>\d+) .*? d=(?<D>\d+) .*? e=(?<E>\d+) .*? f=(?<F>\d+) .*? x=(?<X>\d+) .*? y=(?<Y>\d+)"
For Each listMatch As Match In Regex.Matches(inputtext, pattern, RegexOptions.Singleline Or RegexOptions.IgnoreCase)
Dim m As Match = Regex.Match(cleanInput, pattern, RegexOptions.IgnorePatternWhitespace Or RegexOptions.IgnoreCase)
Dim text As String = String.Format("TEST PROG 't_protocol' VALUES ('{0}', '{1}', '{2}', '{3}', '{4}', '{5}', '{6}' , '{7}', '{8}')", _
m.Groups("ID").Value, m.Groups("A").Value, m.Groups("B").Value, m.Groups("C").Value, m.Groups("D").Value, m.Groups("E").Value, m.Groups("F").Value, m.Groups("X").Value, m.Groups("Y").Value)
TextBox5.Text = text
Next

versucht, doch dies funktioniert nicht...

Wie kann ich meinen Code so umbauen, dass ich damit mehrere Ereignisse des Inputtextes ausgeben kann ?

Mfg Regular_vb_user

Eierlein · 23. Februar 2013, 19:31

VB.NET-Quellcode

Module Module1
Sub main()
Dim inputText As String = "<test id=""10"" a=""0"" b=""0"" c=""1"" d=""0"" e=""0"" f=""2""/>" & vbCrLf & _
"<test id=""50"" a=""10"" b=""20"" c=""5"" d=""60"" e=""20"" f=""7""/>"
Dim t() As String, tmp As String, ausgabetext As String
t = Split(inputText, vbCrLf)
For i As Integer = 0 To t.Length - 1
tmp = t(i).Replace(Chr(34), "'").Replace("=", ", ")
tmp = tmp.Replace("<test id, ", "(").Replace("/>", " '100', '200');")
tmp = tmp.Replace(" a", "").Replace(" b", "").Replace(" c", "")
tmp = tmp.Replace(" d", "").Replace(" e", "").Replace(" f", "")
ausgabetext &= "TEST PROG `t_protocol` VALUES " & tmp & vbCrLf
Next
'TextBox5.Text = ausgabetext
Debug.Print(ausgabetext)
End Sub
End Module

Regular_vb_user · 17. März 2013, 09:31

@Eierlein
Dein Beispiel funktioniert bei mir nicht...
Ich bekomme als ausgabetext keine antwort oder nur eine

der_Kurt · 17. März 2013, 09:41

Bitte nochmal kurz die Boardregeln durchlesen.
Die Farbe ROT ist der Moderation vorbehalten. Bitte nicht verwenden.
Pustposts nach kurzer Zeit sind nicht gestattet.

Derfuhr · 17. März 2013, 09:45

Hallo,

hast du dir das so vergestellt?

VB.NET-Quellcode

Dim inputText As String = "<test id=""10"" a=""0"" b=""0"" c=""1"" d=""0"" e=""0"" f=""2""/>" & vbCrLf & _
"<test id=""50"" a=""10"" b=""20"" c=""5"" d=""60"" e=""20"" f=""7""/>"
Dim t() As String, tmp As String
t = Split(inputText, vbCrLf)
Dim ausgabetext(t.Length - 1) As String
For i As Integer = 0 To t.Length - 1
tmp = t(i).Replace(Chr(34), "'").Replace("=", ", ")
tmp = tmp.Replace("<test id, ", "(").Replace("/>", " '100', '200');")
tmp = tmp.Replace(" a", "").Replace(" b", "").Replace(" c", "")
tmp = tmp.Replace(" d", "").Replace(" e", "").Replace(" f", "")
ausgabetext(i) = "TEST PROG `t_protocol` VALUES " & tmp
Next
For Each a In ausgabetext
MessageBox.Show(a)
Next

mfG

Derfuhr

ErfinderDesRades · 17. März 2013, 11:54

ich hab hier einen Pattern, der alles gequotete selektiert.
Das wird dann jeweils in SingleQuotes gepackt, und dann wieder zu einen String zusammengesetzt, mit Komma dazwischen:

VB.NET-Quellcode

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
Dim inputText = "<test id=""10"" a=""0"" b=""0"" c=""1"" d=""0"" e=""0"" f=""2""/>"
Dim rgx = New Regex(".*?""(.*?)""")
Dim mts = From mt In rgx.Matches(inputText).Cast(Of Match)() Select String.Concat("'", mt.Groups(1).Value, "'")
Dim text = String.Join(", ", mts)
MessageBox.Show(text)
End Sub

Ausgabe:

Quellcode

'10', '0', '0', '1', '0', '0', '2'

Das Drumrum sollte der TE dann selber hinkriegen.

zu beachten, dass der Regex auf zeilenweises einlesen ausgelegt ist.

Rinecamo · 17. März 2013, 12:32

@ErfinderDesRades: Deine Lösung würde jedoch nur funktionieren, wenn außer den "<test .../>"'s nichts anderes im Quellcode steht.

Sollte auch funktionieren, wenn auch noch was anderes als <test .../> drin steht.

VB.NET-Quellcode

For Each m As Match in Regex.Matches(content, "(?<=\<test\s)(\w{1,2}\=""\d+""[\s/])+"))
Dim s As String = String.Join(", ", (From mc As Match in Regex.Matches(m.Value, "(?<=\="")\d+(?="")") Select String.Format("'{0}'", mc.Value)))
Console.WriteLine(String.Format("{0}{1}{2}", "TEST PROG `t_protocol` VALUES (", s, ");")
Next

ErfinderDesRades · 17. März 2013, 12:43

wie gesagt: pro zeile wird alles extrahiert und umgeformt, was in Double-Quotes steht. Nicht mehr und nicht weniger.

Dein Snippet ist bei mir nicht lauffähig - Klammerfehler, und scheint mit Option Strict Off geproggt.

Rinecamo · 17. März 2013, 13:01

Ist in C# geschrieben und im Editor hier übersetzt (deshalb auch der Klammerfehler). Wieso VB bei dem Linq-Query meckert ist mir schleierhaft.

Verbessert:

VB.NET-Quellcode

Dim Content As String = "<test id=""10"" a=""0"" b=""0"" c=""1"" d=""0"" e=""0"" f=""2""/>"
For Each m As Match In Regex.Matches(Content, "(?<=\<test\s)(\w{1,2}\=""\d+""[\s/])+")
Dim s As String = String.Join(", ", (From mc In Regex.Matches(m.Value, "(?<=\="")\d+(?="")").Cast(Of Match)() Select String.Format("'{0}'", mc.Value)))
Console.WriteLine(String.Format("{0}{1}{2}", "TEST PROG `t_protocol` VALUES (", s, ");"))
Next

Hilfe beim ändern des Ausgabetextes (Regex)

Hilfe beim ändern des Ausgabetextes (Regex)

Quellcode

Regular_vb_user schrieb:

Kangaroo schrieb:

Regular_vb_user schrieb:

Quellcode

Quellcode

Regular_vb_user schrieb:

VB.NET-Quellcode

Kangaroo schrieb:

Quellcode

Quellcode

Quellcode

Quellcode

Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Tags

Ähnliche Themen

5 Benutzer haben hier geschrieben