Regulärer Ausdruck

BeefyX · 30. Oktober 2012, 14:04

Hallooo Leute..
Ich bin nicht grade der hellste was Reguläre Ausdrücke angehen, von daher frage ich mal die Community.

Habe folgenden code:

Quellcode

<!--
<BASIC_INFO>
KOREAN = DE_G36¹ÝÀú°Ý_D
ENGLISH = DE_G36_D
CODE = DE02
ACTIVE = FALSE
LABEL = 0
</BASIC_INFO>
<OPTION>
ANIMATION = DE02
</OPTION>
<BUY_INFO>
BUYABLE = FALSE
BUYTYPE = 9
BUYOPTION = 0
COST = 0
ADD_DINAR = 0
REQ_BP = 67950
REQ_LVL = 11
RANDOM_NUM = 0
</BUY_INFO>
<USE_INFO>
APPLY_TARGET = 0
APPLY_OPTION = 0
ADD_POING = 0
DURATION_TIME = 0
USEABLE_CHANNEL = 1,1,1,1
</USE_INFO>
<ABILITY_INFO>
POWER = 400
DEFENCE = 0
SOOTRANGE = 5000
AMMONNUM = 100
MAGAZINENUM = 2
EFFECTRANGE = 0
PARABOLA = 1
REACTAMOUNT = 1.850000
REACTRECOVERY = 4.200000
ACCURATE = 36.000000
SHOOTSPEED = 11000
WEIGHT = 20
COOLTIME = 0.000000
RELOADTIME = 750.000000
HEATFACTOR = 0.000000
COOLFACTOR = 0.000000
FSDTIME = 0.000000
SCDTIME = 0.000000
ARMORTYPE = 0
</ABILITY_INFO>
<TARGET_INFO>
PERSONAL = 100,100,100
SURFACE = 2,0,0
AIR = 2,0,0
SHIP = 2,0,0
</TARGET_INFO>
//-->

etwa 750 mal in einer Datei stehen.
Es handelt sich offensichtlich um Waffen Informationen (für ein Spiel).
Dazu möchte ich die Preise der Waffen und den Schaden sie anrichten in mein Programm laden.
Im grunden genommen will ich CODE, BUYABLE, BUYTYPE, COST, ADD_DINAR, REQ_LVL, APPLY_TARGET, USEABLE_CHANNEL, POWER und AMMONUM.

Mein bisheriger Ansatz:

VB.NET-Quellcode

Dim myCodeMatches As MatchCollection = Regex.Matches(itemsTxt, "CODE.+=.+(?<code>[a-zA-Z0-9]{4}?).+\n.+ACTIVE", RegexOptions.IgnoreCase + RegexOptions.Multiline)
Dim myLabelMatches As MatchCollection = Regex.Matches(itemsTxt, "LABEL.+=.+(?<label>[0-9]+?).+\n.+\<", RegexOptions.IgnoreCase + RegexOptions.Multiline)
Dim myDinarMatches As MatchCollection = Regex.Matches(itemsTxt, "COST.+=.+(?<dinar>[0-9\,\-]+?).+\n.+ADD_DINAR", RegexOptions.IgnoreCase + RegexOptions.Multiline)
Dim myCreditsMatches As MatchCollection = Regex.Matches(itemsTxt, "ADD_DINAR.+=.+(?<credits>.+?).+\n.+REQ", RegexOptions.IgnoreCase + RegexOptions.Multiline)
Dim myLevelMatches As MatchCollection = Regex.Matches(itemsTxt, "REQ_LVL.+=.+(?<level>[0-9]+?).+\n.+RANDOM", RegexOptions.IgnoreCase + RegexOptions.Multiline)
Dim myBuyableMatches As MatchCollection = Regex.Matches(itemsTxt, "BUYABLE.+=.+(?<buyable>[a-zA-Z]{4,5}?).+\n.+BUY", RegexOptions.IgnoreCase + RegexOptions.Multiline)
Dim myBuyoptionMatches As MatchCollection = Regex.Matches(itemsTxt, "BUYOPTION.+=.+(?<buyoption>[0-9]+?).+\n.+COST", RegexOptions.IgnoreCase + RegexOptions.Multiline)

Wie gesagt, bin nicht der hellste.. :[
Ich hoffe mir kann da jemand helfen bzw. das ganze besser lösen.
Ansätze helfen mir auch :]

BiedermannS · 30. Oktober 2012, 14:31

Ist die Reihenfolge immer gleich? Sieht XML sehr ähnlich.

Wenn sich die Struktur nicht ändert, könntest du das Ganze auch zeilenweise durchsuchen und entsprechend den Schlüsselwörtern eine Klasse/DataSet mit Daten befüllen.

VB.NET-Quellcode

Public Class Parser
Inherits Dictionary(Of String, Weapon)
Public Sub Parse(ByVal pfad As String)
Using sr As New StreamReader(pfad, System.Text.Encoding.Default)
Dim tmpline As String = String.Empty
Dim current As New Weapon
Do While Not sr.EndOfStream
tmpline = sr.ReadLine
If tmpline.Contains("</TARGET_INFO>") Then
MyBase.Add(current.CODE, current)
current = New Weapon
ElseIf tmpline.Trim.StartsWith("CODE") Then
current.CODE = tmpline.Split("="c)(1).Trim
ElseIf tmpline.Trim.StartsWith("BUYABLE") Then
current.BUYABLE = Boolean.Parse(tmpline.Split("="c)(1).Trim)
ElseIf tmpline.Trim.StartsWith("Der Nächste Wert") Then
'Und so weiter
End If
Loop
End Using
End Sub
Public Structure Weapon
Public Property CODE As String
Public Property BUYABLE As Boolean
Public Property BUYTYPE As Integer
Public Property COST As Integer
Public Property ADD_DINAR As Integer
Public Property REQ_LVL As Integer
Public Property APPLY_TARGET As Integer
Public Property USEABLE_CHANNEL As Integer()
Public Property POWER As Integer
Public Property AMMONUM As Integer
End Structure
End Class

BeefyX · 30. Oktober 2012, 15:12

So ich hab mal folgende Expression:

Quellcode

CODE\s+=\s+(?<code>[a-z0-9]{4}?).+BUYABLE\s+=\s+(?<buyable>(FALSE|TRUE)?).+BUYTYPE\s+=\s+(?<buytype>[0-9]?).+COST\s+=\s+(?<credits>.+?)\r\s+ADD_DINAR\s+=\s+(?<dinar>.+?)\r.+REQ_LVL\s+=\s+(?<level>[0-9]{1,3}?)\r.+APPLY_TARGET\s+=\s+(?<apply>[\-?[0-9]{1,2}]?).+USEABLE_CHANNEL\s+=\s+(?<channel>.+?)\r.+POWER\s+=\s+(?<power>[0-9]{1,5}).+AMMONNUM\s+=\s+(?<ammo>[0-9]{1,6}?)\r

Funktioniert super bei RegExr ( Programm ).
Hab die Flags ism ( ignore case, dotall, multiline ).

Mein Code:

Quellcode

BinFile.BinReader mReader = new BinFile.BinReader();
string mItems = mReader.DecryptBinFile("data/items.bin");
string mPattern = "CODE\\s+=\\s+(?<code>[a-z0-9]{4}?).+BUYABLE\\s+=\\s+(?<buyable>(FALSE|TRUE)?).+BUYTYPE\\s+=\\s+(?<buytype>[0-9]?).+COST\\s+=\\s+(?<credits>.+?)\\r\\s+ADD_DINAR\\s+=\\s+(?<dinar>.+?)\\r.+REQ_LVL\\s+=\\s+(?<level>[0-9]{1,3}?)\\r.+APPLY_TARGET\\s+=\\s+(?<apply>[\\-?[0-9]{1,2}]?).+USEABLE_CHANNEL\\s+=\\s+(?<channel>.+?)\\r.+POWER\\s+=\\s+(?<power>[0-9]{1,5}).+AMMONNUM\\s+=\\s+(?<ammo>[0-9]{1,6}?)\\r";
System.Text.RegularExpressions.MatchCollection mCollection = System.Text.RegularExpressions.Regex.Matches(mItems, mPattern, System.Text.RegularExpressions.RegexOptions.Multiline | System.Text.RegularExpressions.RegexOptions.IgnoreCase | System.Text.RegularExpressions.RegexOptions.Singleline);
foreach (System.Text.RegularExpressions.Match mMatch in mCollection)
{
Console.WriteLine("Found Item: " + mMatch.Groups["code"].Value);
}

Trotzdem habe ich 0 ergebnisse... Jemand ne idee warum? : [

Märry · 30. Oktober 2012, 15:17

Falls ' oder \ im Text drin vorkommen mag VB.net die nicht richtig erkennen. Zumindest hatte ich immer diese Problem bis ich das mal ausprobiert hatte.

Ich glaub man muss für ein \ drei schreiben also so: \\\
Bin mir aber nicht sicher, müsste man ausprobieren. Ein Azubikollege hatte in der Ausbildung mal langeweile und hat für sowas mal ein Tool geschrieben gehabt

das hatten wir dann immer benutzt deswegen meine Unsicherheit

BiedermannS · 30. Oktober 2012, 15:24

Ist dir mein Posting zu klein? Weil einfach übersehen kann man das ja nicht.

Dafür brauchst du kein RegEx...

BeefyX · 30. Oktober 2012, 15:48

Ich habs nicht übersehen.
Ich fands nur hirnrissig sowas zu posten da doch klar im Titel steht "Regulärer Ausdruck" und nicht "Alternativen zu ..."

BiedermannS · 30. Oktober 2012, 16:02

Und mit RegEx zu arbeiten, wo es nicht benötigt wird zeugt natürlich von Intelligenz.
Selbst wenn du einen Regex hast, welcher alles findet, hast du dennoch keine Zuordnung zu den einzelnen Objekten.

Anstatt die Struktur die gegeben ist zu analysieren und einen anständigen Parser dafür zu schreiben, nehmen wir doch einfach RegEx, selbst wenn es nicht das gewünschte Ergebnis bringen wird. :huh:

Das war keine Alternative, sondern ein Wink mit dem Zaunpfahl. RegEx ist zum suchen von Pattern bzw. zum Prüfen von Eingaben, nicht zum Filtern von Ganzen Texten auf zig Daten und diese dann auch noch zuordnen.

Aber mir egal, wenn du die Hilfe nicht willst, dann mach es weiter mit RegEx, aber damit machst du dir nur mehr Kopfschmerzen als notwendig...

BeefyX · 30. Oktober 2012, 16:26

Naja muss mich entschuldigen.
Habs ohne RegEx jetzt doch anders gelöst.

C-Quellcode

private static List<ShopItem> _Items;
public static void LoadItems()
{
Shop._Items = new List<ShopItem>();
BinFile.BinReader mReader = new BinFile.BinReader();
string mItems = mReader.DecryptBinFile("data/items.bin");
Dictionary<string, string> mTemp = new Dictionary<string, string>();
foreach (string mLine in mItems.Split('\n'))
{
if(mLine.Contains("="))
{
string mKey = mLine.Split('=')[0].Trim();
string mValue = mLine.Split('=')[1].Trim();
if (mTemp.ContainsKey(mKey))
{
if (mTemp.ContainsKey("BUYABLE") && mTemp.ContainsKey("CODE") && mTemp.ContainsKey("COST") && mTemp.ContainsKey("ADD_DINAR") && mTemp["BUYABLE"] == "TRUE")
Shop._Items.Add(ShopItem.Unpack(mTemp["CODE"], mTemp["COST"], mTemp["ADD_DINAR"]));
mTemp.Clear();
}
else
mTemp.Add(mKey, mValue);
}
}
Engine.Logging.Notification("Loaded Items [ " + Shop._Items.Count.ToString() + " total ]");
}

Naja wurst

BiedermannS · 31. Oktober 2012, 11:04

Ich hab hier noch was:

VB.NET-Quellcode

Public Class Parser
Inherits Dictionary(Of String, Weapon)
Public Sub ParseText(ByVal Text As String)
Dim lines As String() = Text.Split(vbCrLf.ToCharArray)
Dim tmpline As String = String.Empty
Dim current As New Weapon
Dim prop As String() = Nothing
For Each tmpline In lines
If tmpline.Contains("</TARGET_INFO>") Then
MyBase.Add(current.CODE, current)
current = New Weapon
Else
prop = tmpline.Split("="c)
If prop.Count = 2 Then
current.SetValueByName(prop(0).Trim, prop(1).Trim)
End If
End If
Next
End Sub
Public Sub ParseFile(ByVal pfad As String)
Using sr As New StreamReader(pfad, System.Text.Encoding.Default)
Dim tmpline As String = String.Empty
Dim current As New Weapon
Dim prop As String() = Nothing
Do While Not sr.EndOfStream
tmpline = sr.ReadLine
If tmpline.Contains("</TARGET_INFO>") Then
MyBase.Add(current.CODE, current)
current = New Weapon
Else
prop = tmpline.Split("="c)
If prop.Count = 2 Then
current.SetValueByName(prop(0).Trim, prop(1).Trim)
End If
End If
Loop
End Using
End Sub
Public Class Weapon
Public Property CODE As String
Public Property BUYABLE As Boolean
Public Property BUYTYPE As Integer
Public Property COST As Integer
Public Property ADD_DINAR As Integer
Public Property REQ_LVL As Integer
Public Property APPLY_TARGET As Integer
Public Property USEABLE_CHANNEL As Integer()
Public Property POWER As Integer
Public Property AMMONUM As Integer
Sub New()
CODE = String.Empty
BUYABLE = False
BUYTYPE = -1
COST = -1
ADD_DINAR = -1
REQ_LVL = -1
APPLY_TARGET = -1
USEABLE_CHANNEL = {-1}
POWER = -1
AMMONUM = -1
End Sub
Default Public ReadOnly Property GetValueByName(ByVal Name As String) As Object
Get
Dim pi As Reflection.PropertyInfo = Me.GetType.GetProperty(Name)
If Not pi Is Nothing AndAlso Not Name.ToLower.Contains("getvaluebyname") Then
Return pi.GetValue(Me, Nothing)
Else
Throw New ArgumentException("Class does not contain Property (" & Chr(34) & Name & Chr(34) & ")!", "Name")
Return Nothing
End If
End Get
End Property
Public Overrides Function ToString() As String
Dim sb As New System.Text.StringBuilder
For Each m As Reflection.PropertyInfo In Me.GetType.GetProperties
If m.PropertyType = GetType(Integer()) Then
Dim s As String = String.Empty
For Each el As Integer In DirectCast(Me(m.Name), Integer())
s &= el.ToString & ","
Next
sb.Append(String.Format("{0}: ({1}){2}", m.Name, s.Substring(0, s.Length - 1), vbTab))
ElseIf Not m.Name.Contains("GetValueByName") Then
sb.Append(String.Format("{0}: {1}{2}", m.Name, Me(m.Name).ToString, vbTab))
End If
Next
Return sb.ToString
End Function
Sub SetValueByName(ByVal Name As String, ByVal Value As String, Optional ByVal ArraySplitChar As Char = ","c)
Dim pi As Reflection.PropertyInfo = Me.GetType.GetProperty(Name)
If Not pi Is Nothing Then
If pi.PropertyType.IsAssignableFrom(GetType(Integer())) Then
Dim arr As Integer() = Array.ConvertAll(Of String, Integer)(Value.Split(ArraySplitChar), Function(s As String) As Integer
Return Integer.Parse(s)
End Function)
pi.SetValue(Me, arr, Nothing)
Else
If pi.PropertyType.IsAssignableFrom(GetType(Double)) Then
pi.SetValue(Me, Double.Parse(Value, Globalization.NumberStyles.AllowDecimalPoint, New Globalization.NumberFormatInfo() With {.CurrencyDecimalSeparator = "."}), Nothing)
ElseIf pi.PropertyType.IsAssignableFrom(GetType(Integer)) Then
pi.SetValue(Me, Integer.Parse(Value), Nothing)
ElseIf pi.PropertyType.IsAssignableFrom(GetType(Boolean)) Then
pi.SetValue(Me, Boolean.Parse(Value), Nothing)
Else
pi.SetValue(Me, Value, Nothing)
End If
End If
End If
End Sub
End Class
End Class

Aufruf erfolgt so:

VB.NET-Quellcode

Dim p As New Parser
'p.ParseText(s) ' Parsen eines Textes
p.ParseFile("c:\pfad.txt") 'Parsen einer Datei
'Hier werden die gesammelten Daten des Parsers Formatiert und im Debug
For Each kv As KeyValuePair(Of String, Parser.Weapon) In p
'ToString gibt alles als Text aus
MsgBox(kv.Value.ToString)
'Normaler Aufruf über die Eigenschaft
MsgBox(kv.Value.POWER.ToString)
'Aufruf über den Namen, wirft eine Exception wenn der Name der Eigenschaft nicht vorhanden ist
MsgBox(kv.Value("POWER").ToString)
next

Der Vorteil hier ist, dass du diese Methode leicht erweitern kannst. Du brauchst nur in der Klasse eine neue Eigenschaft hinzufügen, durch die Reflection werden alle vorhandenen Properties gesetzt.

Wenn du z.B.: die Reloadtime auch mitnehmen willst, fügst du der Klasse Weapon einfach die Eigenschaft RELOADTIME hinzu:

VB.NET-Quellcode

Public Property RELOADTIME as Double

Mfg

Regulärer Ausdruck

Regulärer Ausdruck

Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Quellcode

Quellcode

C-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

2 Benutzer haben hier geschrieben