Liste mit Structuren bearbeiten

Farliam · 15. Juli 2020, 16:44

Hallo zusammen,

ich versuche schon die ganze Zeit zu verstehen wieso ich eine Liste mit Structuren, die nachträglich bearbeitet werden sollen nicht so funktionieren wie ich will.

Hier einmal die Structur :

VB.NET-Quellcode

Private Structure TmpOrdner
Private mName As String
Private mNameItems As List(Of String)
Private ReadOnly mMainDir As String
Private onElements As List(Of String)
Public Sub New(ByVal NameItems As List(Of String), ByVal MainDir As String)
mNameItems = NameItems
mMainDir = MainDir
onElements = New List(Of String)
End Sub
Public Sub New(ByVal NameItems As List(Of String), ByVal MainDir As String, ByVal Name As String)
mName = Name
mNameItems = NameItems
mMainDir = MainDir
onElements = New List(Of String)
End Sub
Public Property GetName() As String
Get
Return mName
End Get
Set(value As String)
mName = value
End Set
End Property
Public Property GetNameItems() As List(Of String)
Get
Return mNameItems
End Get
Set(value As List(Of String))
mNameItems = value
End Set
End Property
Public ReadOnly Property getMainDir() As String
Get
Return mMainDir
End Get
End Property
Public Property SetElementList() As List(Of String)
Get
Return onElements
End Get
Set(value As List(Of String))
onElements = value
End Set
End Property
End Structure

Einmal in der Klasse steht ganz oben global :

VB.NET-Quellcode

Private mtmpOrdner As New List(Of TmpOrdner)

Wenn ich jetzt mit einem Button :

VB.NET-Quellcode

For Each mt As TmpOrdner In mtmpOrdner
If mt.GetName = orginalSelectetFolder Then
mt.GetName = TextBox6.Text
orginalSelectetFolder = TextBox6.Text
End If
Next

die Daten bearbeiten will, wird laut Einzelschritt das Element mt ordentlich mit dem Text aus der Textbox6 beschrieben.

Wenn ich aber in einer anderen Prozedur die Liste lese, und in z.B. ein Treeview zeichne steht immer noch der Orginale Text.

Ich denke in die Richtung, dass es mit den Eigenschaften der Structur zusammenhängt? Benutze sonst fast nur Klassen.

LG

RodFromGermany · 15. Juli 2020, 17:58

@Farliam Poste mal den Code, wo die List mit den Strulturen belegt und abgefragt wird.

Farliam · 15. Juli 2020, 18:07

Hey,

ich habe jetzt einfach mal die "Private Structure" durch "Private Class" und natürlich End Class getauscht. Ergebniss -> Funktioniert

Also ist das eine Eigenart der Structur die ich nicht kenne?

Willst du den Code wirklich sehen? Ist eine einzelne Sub die über 200 Zeilen Code-Salat enthält^^

Sub die die Listbox füllt :

Spoiler anzeigen

VB.NET-Quellcode

''' <summary>
''' <code>Erstellt eine erste Übersicht der Datei, und speichert die Variabeln gloabal</code>
''' </summary>
''' <param name="sPfad">Pfad zur Excel Datei</param>
Private Sub CreateFirst(ByVal sPfad As String)
If mPfad = String.Empty Then
MsgBox("Bitte geben Sie erst einen Hauptordner an!", MsgBoxStyle.Exclamation, "Fehlendes Argument")
Exit Sub
End If
'Gloable Liste leeren
mtmpOrdner.Clear()
TreeView1.Nodes.Clear()
'DataSheet verfügbar machen über Interop.Excel
Dim MyXls As New Microsoft.Office.Interop.Excel.Application With {
.Visible = CheckBox1.Checked
}
Dim wb As Microsoft.Office.Interop.Excel.Workbook = MyXls.Workbooks.Open(sPfad)
Dim Tabelle1 As Microsoft.Office.Interop.Excel.Worksheet = DirectCast(wb.Sheets(TextBox4.Text), Worksheet)
'Erstmal die Anzahl der Bereiche Laden.
'Gewisse Anzahl an Leeren Bereichen sind gleichgültig mit dem Ende
Dim mFolderEndMax As Integer = CInt(NumericUpDown3.Value)
'Ausrichtung der Tabelle herausfinden <-> Horizontal = Ordner name aus der Zellen einer Zeile bilden
'Vertikal = Ordner name aus der Zellen einer spalte Bilden
Dim lEmptyCells As Integer = 0 '<- Gezähle leere Zellen
If RadioButton1.Checked Then '<- Horizontale ausrichtung
Dim i As Integer = 1 '<- Localer Schrittgeber
Dim cellName As String = String.Empty
Do Until lEmptyCells = mFolderEndMax ' <- Solange zählen bis lEmptyCells gleich dem eingestellten Wert ist
cellName = "A" & i
If Not DirectCast(Tabelle1.Range(cellName).Value, String) = String.Empty Then
'Ordnernamen als veränderbare Structur erstellen
Dim lBeetwenCell As List(Of String) = CreateBeetwenArr(TextBox3.Text, m_replace_char)
'Wenn die Stückelung des Namens die der Liste überschreitet, wird das letzte Zeichen
'auf alle weitere Bereiche erweitert.
Dim tmpom As New List(Of String)
Dim innerlEmptyCells As Integer = 0
Dim innerlSchritt As Integer = 1
Dim tmpFolderName As String = String.Empty
Do Until innerlEmptyCells = CInt(NumericUpDown4.Value) ' <- der Namen nun erstellen.
If Not DirectCast(Tabelle1.Range(cellName).Value, String) = String.Empty Then
'Die Zelle ist nicht leer
If CheckBox5.Checked Then
If innerlSchritt <= lBeetwenCell.Count - 1 Then
tmpFolderName &= lBeetwenCell.Item(innerlSchritt - 1) 'Normaler counter
Else
tmpFolderName &= lBeetwenCell.Item(lBeetwenCell.Count - 1) 'Hier wird das letzte
'Zeichen der Betweenliste erweitert weil der Count nicht reicht
End If
End If
tmpFolderName &= DirectCast(Tabelle1.Range(cellName).Value, String)
tmpom.Add(DirectCast(Tabelle1.Range(cellName).Value, String))
If Not CheckBox5.Checked Then
If innerlSchritt <= lBeetwenCell.Count - 1 Then
tmpFolderName &= lBeetwenCell.Item(innerlSchritt - 1) 'Normaler counter
Else
tmpFolderName &= lBeetwenCell.Item(lBeetwenCell.Count - 1) 'Hier wird das letzte
'Zeichen der Betweenliste erweitert weil der Count nicht reicht
End If
End If
'innerlEmtpy = 0
innerlEmptyCells = 0
Else
innerlEmptyCells += 1
End If
'Nächster Zellenname erstellen
innerlSchritt += 1
cellName = CL(innerlSchritt) & i
Loop
'Der Namen ist nun vorhanden und kann in die globale Liste eingefügt werden#
'Erst auf die maximale Länge überprüfen
If Not CheckBox2.Checked And
tmpFolderName.Length > 256 Then
tmpFolderName = tmpFolderName.Substring(0, 256)
End If
If CheckBox2.Checked And tmpFolderName.Length > CInt(NumericUpDown2.Value) Then
tmpFolderName = TrimString(tmpFolderName)
End If
If tmpFolderName.Contains("*") Or
tmpFolderName.Contains("<") Or
tmpFolderName.Contains(">") Or
tmpFolderName.Contains("\") Or
tmpFolderName.Contains("|") Or
tmpFolderName.Contains("/") Or
tmpFolderName.Contains(":") Then
If CheckBox6.Checked Then
tmpFolderName = tmpFolderName.Replace("<", "")
tmpFolderName = tmpFolderName.Replace(">", "")
tmpFolderName = tmpFolderName.Replace("/", "")
tmpFolderName = tmpFolderName.Replace("|", "")
tmpFolderName = tmpFolderName.Replace("/", "")
tmpFolderName = tmpFolderName.Replace("*", "")
tmpFolderName = tmpFolderName.Replace(":", "")
Dim t As New TmpOrdner(lBeetwenCell, mPfad, tmpFolderName)
t.SetElementList() = tmpom
mtmpOrdner.Add(t) 'Structur mit nötigen Daten erstellt
End If
Else
Dim t As New TmpOrdner(lBeetwenCell, mPfad, tmpFolderName)
t.SetElementList() = tmpom
mtmpOrdner.Add(t) 'Structur mit nötigen Daten erstellt
End If
lEmptyCells = 0 ' <- reset
Else
'Leerer Bereich
lEmptyCells += 1 ' <- Erhöhen
End If
i += 1 '<- Schritt erhöhen
Loop
ElseIf RadioButton2.Checked Then '<- Vertikale Ausrichtung
Dim i As Integer = 1 '<- Localer Schrittgeber
Dim cellName As String = String.Empty
Do Until lEmptyCells = mFolderEndMax ' <- Solange zählen bis lEmptyCells gleich dem eingestellten Wert ist
cellName = CL(i) & 1
Dim tmpom As New List(Of String)
If Not DirectCast(Tabelle1.Range(cellName).Value, String) = String.Empty Then
'Ordnernamen als veränderbare Structur erstellen
Dim lBeetwenCell As List(Of String) = CreateBeetwenArr(TextBox3.Text, m_replace_char)
'Wenn die Stückelung des Namens die der Liste überschreitet, wird das letzte Zeichen
'auf alle weitere Bereiche erweitert.
Dim innerlEmptyCells As Integer = 0
Dim innerlSchritt As Integer = 1
Dim tmpFolderName As String = String.Empty
Do Until innerlEmptyCells = CInt(NumericUpDown4.Value) ' <- der Namen nun erstellen.
If Not DirectCast(Tabelle1.Range(cellName).Value, String) = String.Empty Then
'Die Zelle ist nicht leer
If CheckBox5.Checked Then
If innerlSchritt <= lBeetwenCell.Count - 1 Then
tmpFolderName &= lBeetwenCell.Item(innerlSchritt - 1) 'Normaler counter
Else
tmpFolderName &= lBeetwenCell.Item(lBeetwenCell.Count - 1) 'Hier wird das letzte
'Zeichen der Betweenliste erweitert weil der Count nicht reicht
End If
End If
tmpFolderName &= DirectCast(Tabelle1.Range(cellName).Value, String)
tmpom.Add(DirectCast(Tabelle1.Range(cellName).Value, String))
If Not CheckBox5.Checked Then
If innerlSchritt <= lBeetwenCell.Count - 1 Then
tmpFolderName &= lBeetwenCell.Item(innerlSchritt - 1) 'Normaler counter
Else
tmpFolderName &= lBeetwenCell.Item(lBeetwenCell.Count - 1) 'Hier wird das letzte
'Zeichen der Betweenliste erweitert weil der Count nicht reicht
End If
End If
'innerlEmtpy = 0
innerlEmptyCells = 0
Else
innerlEmptyCells += 1
End If
'Nächster Zellenname erstellen
innerlSchritt += 1
cellName = CL(i) & innerlSchritt
Loop
'Der Namen ist nun vorhanden und kann in die globale Liste eingefügt werden#
If Not tmpFolderName = String.Empty Then
'Erst auf die maximale Länge überprüfen
If Not CheckBox2.Checked And
tmpFolderName.Length > 256 Then
tmpFolderName = tmpFolderName.Substring(0, 256)
End If
If CheckBox2.Checked And tmpFolderName.Length > CInt(NumericUpDown2.Value) Then
tmpFolderName = TrimString(tmpFolderName)
End If
'Dann Sonderzeichen durchgehen
If tmpFolderName.Contains("*") Or
tmpFolderName.Contains("<") Or
tmpFolderName.Contains(">") Or
tmpFolderName.Contains("\") Or
tmpFolderName.Contains("|") Or
tmpFolderName.Contains("/") Or
tmpFolderName.Contains(":") Then
If CheckBox6.Checked Then
tmpFolderName = tmpFolderName.Replace("<", "")
tmpFolderName = tmpFolderName.Replace(">", "")
tmpFolderName = tmpFolderName.Replace("/", "")
tmpFolderName = tmpFolderName.Replace("|", "")
tmpFolderName = tmpFolderName.Replace("/", "")
tmpFolderName = tmpFolderName.Replace("*", "")
tmpFolderName = tmpFolderName.Replace(":", "")
Dim t As New TmpOrdner(lBeetwenCell, mPfad, tmpFolderName)
t.SetElementList() = tmpom
mtmpOrdner.Add(t) 'Structur mit nötigen Daten erstellt
End If
Else
Dim t As New TmpOrdner(lBeetwenCell, mPfad, tmpFolderName)
t.SetElementList() = tmpom
mtmpOrdner.Add(t) 'Structur mit nötigen Daten erstellt
End If
End If
lEmptyCells = 0 ' <- reset
Else
'Leerer Bereich
lEmptyCells += 1 ' <- Erhöhen
End If
i += 1 '<- Schritt erhöhen
Loop
End If
'Bereich Reinigen
MyXls.Quit()
MyXls = Nothing
CreateTreeViewControl()
End Sub

RodFromGermany · 15. Juli 2020, 18:23

Farliam schrieb:

Also ist das eine Eigenart der Structur die ich nicht kenne?

Eine Struktur verhält sich da wie eine Variable, sie ist ein ValueType:
Mit Dim var As TmpOrdner hast Du eine Instanz.
Eine Klasse musst Du mit New instanziieren:
Dim var2 As New TmpOrdner2

Farliam · 15. Juli 2020, 18:34

Okay, ich habe die Structur (siehe mein Code) vorher auch mit New instanziert. Habe ja nur die Beschreibung der TmpOrdner geändert.
Auf die Klasse kann ich nach dem erstellen in der Liste zugreifen, auf eine Structur nur ReadOnly.

Dass ist das, was ich nicht ganz verstehe.

ErfinderDesRades · 15. Juli 2020, 20:55

Farliam schrieb:

auf eine Structur nur ReadOnly.

schon das stimmt nicht - aber egal.

Den Unterschied bei Structure und Class machen die Variablen aus, denen man son Ding zuweist.

Auf eine ValueType-Variable (Structure) wird eine Kopie der kompletten Structure geschrieben - das sind bei deinem TmpOrdner-Dingens mit 4 Membern: 32 Bytes.

Auf eine ReferenceType-Variable wird nur ein Zeiger auf das Objekt geschrieben - das sind immer 4 Bytes.

Wenn du also einen ValueType an eine Methode übergibst, dann übergibst du ihm eine Kopie des Objekts.
Da kann die Methode natürlich alles mögliche mit machen - sie macht es immer nur mit einer Kopie - das Original, beim Aufrufer, bleibt davon gänzlich unberührt.

Wenn du aber einen ReferenceType an eine Methode übergibst, dann übergibst du einen Zeiger auf das Objekt.
Also es gibt nur ein Objekt, und was die Methode auf diesem Zeiger macht, das macht sie auf dem Original-Objekt - es gibt ja garkein anderes.
Das Objekt beim Aufrufer und das Objekt in der Methode ist dasselbe.

Liste mit Structuren bearbeiten

Liste mit Structuren bearbeiten

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Farliam schrieb:

Farliam schrieb:

Tags

Ähnliche Themen

3 Benutzer haben hier geschrieben