Daten sortieren

Goof · 5. Juli 2017, 15:15

Hallo zusammen,

wie kann ich folgende Daten sortieren bzw. prüfen ob sie zusammen passen? Es sind mehrere Platten mit Bohrungen, deren Koordinaten zueinander passen sollen.

Platte 1
Bohrung1 X=10 Y=20
Bohrung2 X=10 Y=30
Bohrung3 X=10 Y=40

Platte 2
Bohrung1 X=10 Y=21
Bohrung2 X=10 Y=40
Bohrung3 X=10 Y=30,1

Wie kann ich die Abweichung berechnen? Die Bohrungen sind nicht in der Reihenfolge. Wäre dann ähnlich diesem Programm: i-logic.com/TruePos/

Vielen Dank

Goof

Mono · 5. Juli 2017, 15:25

Wie liegen die Daten denn vor?

Goof · 5. Juli 2017, 15:57

Sie liegen als Textdatei vor.

Mono · 5. Juli 2017, 16:01

Genau so wie im Anhang? Oder hat die noch ieine Formatierung zB csv oder xml etc???

Wäre nicht schlecht wenn du ein bissl detaillierte Informationen gibts.
Gibt es immer Platte 1 und 2 ?
Oder mehr?
Woher weiß man welche Platte "passen" muss falls es mehr als 2 gibt?

RodFromGermany · 5. Juli 2017, 16:12

@Goof Lies die Datei ein wie auch immer, mach Dir pro Loch und Platte ein PoinF mit den Koordinaten, pack die in eine Dictionary(Of String, PointF).
Hol dann aus beiden Dictionarys die Koordinaten mit demselben Namen, berechne was zu berechnen ist und feddich.

Goof · 5. Juli 2017, 16:22

Es sind immer 2 Platten. Leider kann ich die Punkte nicht geordnet raus schreiben, da der Konstrukteur die Reihenfolge der Erstellung festlegt. Die Daten liegen so wie in der Bohrung.txt-Datei vor.

RodFromGermany · 5. Juli 2017, 17:34

@Goof Es genügt doch, wenn die Reihenfolge gleich ist.
Poste mal so eine Datei.

Morrison · 5. Juli 2017, 18:09

Das wird kompliziert!
Du musst mit RegEx die Textdatei analysieren, die jeweiligen Bohrungen finden und die dazugehörigen X bzw. Y Koordinaten!
Diese musst due dann in ein Array, Liste etc. speichern..
..dann kannst Du in einer(oder mehreren) Schleife die dazugehörigen Bohrungen suchen!

Du durchläufst also jede Bohrung, nimmst dir den ersten X Wert..z.B. X=10 und suchst dir dann alle Bohrungen mit X=10 raus..wenn diese dann noch den gleichen Y-Wert haben sind die Bohrungen identisch..
..zeitgleich müsste man die Differenz ausgeben lassen..z.B. wenn eine Bohrung den Y-Wert 20 hat und die andere 20,5 die Differenz 0,5..
..das wird ne schöne fummelarbeit werden..

Ich hab Dir hier mal ein kleines Beispiel erstellt wie man z.B. die einzelnen Bohrungen auslesen könnte:

Spoiler anzeigen

VB.NET-Quellcode

Option Strict On
Imports System.Text.RegularExpressions
Public Class Form1
Dim _Platte1 As String = "Bohrung1 X=10 Y=20 Bohrung2 X=10 Y=30 Bohrung3 X=10 Y=40"
Dim _Platte2 As String = "Bohrung1 X=10,1 Y=21,5 Bohrung2 X=10 Y=40 Bohrung3 X=10 Y=30,1"
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim re1 As String = "(Bohrung)"
Dim re2 As String = "(\d+)" 'Integer Number
Dim re3 As String = ".*?" 'Non-greedy match on filler
Dim re4 As String = "(X)" 'Single Word Character
Dim re5 As String = "(=)" 'Single Character
Dim re6 As String = "(Y)" 'Single Word Character
Dim re7 As String = "(,)" 'Single Character
Dim r As Regex = New Regex(re1 + re2 + re3 + re4 + re5 + re2 + re3 + re6 + re5 + re2, RegexOptions.IgnoreCase Or RegexOptions.Singleline)
Dim m As Match = r.Match(_Platte2)
If (m.Success) Then
Dim wBohrung = m.Groups(1)
Dim iBohrungNr = m.Groups(2)
Dim _X = m.Groups(3)
Dim _X_equals = m.Groups(4)
Dim _X_Number = m.Groups(5)
Dim _Y = m.Groups(6)
Dim _Y_equals = m.Groups(7)
Dim _Y_Number = m.Groups(8)
'Console.WriteLine("(" + wBohrung.ToString() + ")" + "(" + iBohrungNr.ToString() + ")" + "(" + _X.ToString() + ")" + "(" + _X_equals.ToString() + ")" + "(" + _X_Number.ToString() + ")" + "(" + _Y.ToString() + ")" + "(" + _Y_equals.ToString() + ")" + "(" + _Y_Number.ToString() + ")" + "")
Debug.WriteLine(wBohrung.ToString() & " " & iBohrungNr.ToString() & Environment.NewLine &
_X.ToString() & "=" & _X_Number.ToString() & Environment.NewLine &
_Y.ToString() & "=" & _Y_Number.ToString())
End If
End Sub
End Class

Ich bin nicht so der RegEx Experte, jemand der sich damit auskennt kann Dir bestimmt was leichteres bzw. übersichtlicheres und auch kompakteres zusammenstellen..ich hab dieses RegEx mit txt2re.com/ zusammengeschustert!

RodFromGermany · 5. Juli 2017, 18:13

Morrison schrieb:

RegEx

Würdest Du einfach mal abwarten, bis wir wissen, wie die Datei aufgebaut ist :?:

Der Text da oben geht einfach mit Split().

Mono · 5. Juli 2017, 18:18

Ja ich würde kein RegEx verwenden.
Aktuell sieht so aus als könnte man mit CrLf splitten und dann mit Space splitten, wobei das erste Element des 2. gesplitteten Arrays die Bohrnummer enthält und die weiteren die Koordinaten (alles was dem "=" folgt ist dann der Wert, davor die Koordinate).
Das Ganze könnte man im Zweifel in ein eigenes Objekt vom Typ Platte(mit einer List of Bohrung/Point) einlesen und dann entsprechend vergleichen.

exc-jdbi · 5. Juli 2017, 18:37

RegEx finde ich eine gute Idee und dann irgendwie so weiter

VB.NET-Quellcode

Option Strict On
Option Explicit On
Imports System.Drawing
Imports System.Drawing.Drawing2D
Public Module Module1
Public Sub Main()
Dim Bohrung1 As New List(Of PointF) From {New PointF(10, 20), New PointF(10, 30), New PointF(10, 40)}
Dim Bohrung2 As New List(Of PointF) From {New PointF(10, 21), New PointF(10, 40), New PointF(10, 30.1)}
Dim b1 As List(Of PointF) = Bohrung1.OrderBy(Function(pf) pf.X).ThenBy(Function(pf) pf.Y).ToList
Dim b2 As List(Of PointF) = Bohrung2.OrderBy(Function(pf) pf.X).ThenBy(Function(pf) pf.Y).ToList
Dim Varianc As List(Of PointF) = Variance(b1, b2)
Stop
End Sub
Private Function Variance(ByVal b1 As List(Of PointF), ByVal b2 As List(Of PointF)) As List(Of PointF)
Dim poif As PointF
Dim res As New List(Of PointF)(b1.Count)
For i As Integer = 0 To b1.Count - 1
poif = New PointF(b1(i).X - b2(i).X, b1(i).Y - b2(i).Y)
res.Add(poif)
Next
Return res
End Function
End Module

Freundliche Grüsse

exc-jdbi

Daten sortieren

Daten sortieren

VB.NET-Quellcode

Morrison schrieb:

VB.NET-Quellcode

Ähnliche Themen

5 Benutzer haben hier geschrieben