Array mit textlichen Index

  • VB.NET

Es gibt 17 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Sowas kann man implementieren. Stichwort: Indexer und dann den Parameter halt so festlegen.

    Grüße
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    jan99 schrieb:

    mit Indizies die aus Buchstaben dürfen
    Wenn Du nicht Dim Otto As Integer = 15 meinst, muss das "otto" in Apostrophen stehen, also ein String sein: MeinArray("Otto") = 47.
    Das geht, wie @slice sagt, bei einem Dictionary, und das sieht dann so aus:

    VB.NET-Quellcode

    1. Dim dct = New Dictionary(Of String, Integer)
    2. dct.Add("Otto", 13)
    3. MessageBox.Show(dct("Otto").ToString)
    4. dct("Otto") = 42
    5. MessageBox.Show(dct("Otto").ToString)
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Moin !
    vielen Dank für Eure Informationen.

    Ich habe das jetzt einmal umgesetzt - bekomme aber im Editor einen Hinweis auf mögliche Laufzeitfehler wegen einer 'spät gebundenen Auflösung' !

    VB.NET-Quellcode

    1. Imports Microsoft.VisualBasic
    3. Public Class frm_BearbeitenSiel_Digitalisieren
    5. Private _Old_Osmode As Integer
    7. Dim _Document As Autodesk.Map.IM.Forms.Document
    9. Dim _Properties As New EBL.Bearbeiten.Siel.Properties
    11. Dim _dctFeatures = New Dictionary(Of String, Integer)
    13. ....
    16. Private Sub frm_BearbeitenSiel_Digitalisieren_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    18. Dim _Old_Osmode As Integer = CInt(Autodesk.AutoCAD.ApplicationServices.Application.GetSystemVariable("OSMODE"))
    20. ' Befüllen der Listen
    22. InitTabx(0, lb_Schächte)
    24. InitTabx(1, lb_Elemente)
    26. Dim ListOfFeature() As String = _Properties.GetFeatureTabellen(200)
    28. For Each FeatureTabelle As String In ListOfFeature
    30. _dctFeatures.Add(FeatureTabelle, 0)
    32. Next


    Hätte ich das anders schreiben müssen oder ist diese Meldung zu vernachlässigen ?

    Gruß Jan

    jan99 schrieb:

    Laufzeitfehler
    in welcher Codezeile?
    Wozu brauchst Du Imports Microsoft.VisualBasic?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Das mit dem Textbasiertem Index kannst du schön über Properties lösen. Ich hab da mal kurzt im Object-Brower nachgeschaut und hab da dann in Cotrol-Klasse die ControlCollection-Klasse gefunden. Die macht das ganze wie gesagt über Properties:
    Hier das ganze mal anhand von Car und CarCollection in VB.NET und C#
    VB.NET-Code

    VB.NET-Quellcode

    1. Imports System.Linq
    2. Imports System.Windows.Forms
    3. Imports System.Collections.Generic
    4. Module Module1
    6. Sub Main()
    8. End Sub
    10. Public Class Car
    11. Public Property Name As String
    12. Public Property Marke As String
    13. Public Property Person As Integer
    14. Public Overrides Function ToString() As String
    15. Return String.Format("[Name={0}, Marke={1}, Insassen={2}", Me.Name, Me.Marke, Me.Person)
    16. End Function
    17. End Class
    19. Public Class CarCollection
    20. Private carList As List(Of Car)
    21. Public Sub New()
    22. Me.carList = New List(Of Car)()
    23. End Sub
    24. Public Sub Add(c As Car)
    25. Me.carList.Add(c)
    26. End Sub
    27. Public Sub Remove(c As Car)
    28. Me.carList.Remove(c)
    29. End Sub
    30. Public Sub Remove(index As Integer)
    31. Me.carList.RemoveAt(index)
    32. End Sub
    33. Default Public Property Car(carName As String) As Car 'Default macht es Indexierbar
    34. Get
    35. Return Me.carList.Find(Function(x)
    36. Return x.Name = carName
    37. End Function)
    38. End Get
    39. Set(value As Car)
    40. Dim car = Me.carList.Find(Function(x)
    41. Return x.Name = carName
    42. End Function)
    44. Dim index = Me.carList.IndexOf(car)
    45. Me.carList(index) = value
    46. End Set
    47. End Property
    48. Default Public Property Car(index As Integer) As Car
    49. Get
    50. Return Me.carList(index)
    51. End Get
    52. Set(value As Car)
    53. Me.carList(index) = value
    54. End Set
    55. End Property
    57. End Class
    59. End Module

    C#-Code

    C#-Quellcode

    1. using System;
    2. using System.Collections.Generic;
    3. using System.Windows.Forms;
    4. using System.Linq;
    5. using System.Text;
    6. using System.Threading.Tasks;
    8. namespace IndexerTest1
    9. {
    10. class Program
    11. {
    12. static void Main(string[] args)
    13. {
    14. CarCollection cl = new CarCollection();
    15. cl.add(new Car() { Name = "VW Diesel", Marke = "VW", Person = 5 });
    16. cl.add(new Car() { Name = "Ford Fiesta", Marke = "Ford", Person = 5 });
    17. cl.add(new Car() { Name = "Mercedes A-Klasse", Marke = "Mercedes", Person = 5 });
    18. cl.add(new Car() { Name = "Mini Cooper", Marke = "Mini", Person = 2 });
    19. cl.add(new Car() { Name = "Jeep Renegade", Marke = "Jeep", Person = 4 });
    20. cl.add(new Car() { Name = "Ferrair A380", Marke = "Ferrari", Person = 2 });
    21. cl.add(new Car() { Name = "Honda Civic", Marke = "Honda", Person = 6 });
    23. Car c1 = cl["VW Diesel"];
    24. Console.WriteLine(c1.ToString());
    26. Car c2 = cl[5];
    27. Console.WriteLine(c2.ToString());
    29. cl.Remove(c1);
    30. cl.Remove(cl[1]);
    31. cl.Remove(cl["Ferrari A380"]);
    33. Console.ReadKey();
    34. }
    35. }
    37. public class Car
    38. {
    39. public string Name { get; set; }
    40. public string Marke { get; set; }
    41. public int Person { get; set; }
    42. public override string ToString()
    43. {
    44. return string.Format("[Name={0}, Marke={1}, Insassen={2}]", this.Name, this.Marke, this.Person);
    45. }
    46. }
    48. public class CarCollection
    49. {
    50. private List<Car> carList;
    51. public CarCollection()
    52. {
    53. this.carList = new List<Car>();
    54. }
    56. public void add(Car c)
    57. {
    58. this.carList.Add(c);
    59. }
    60. public void Remove(Car c)
    61. {
    62. this.carList.Remove(c);
    63. }
    64. public void Remove(int index)
    65. {
    66. this.carList.RemoveAt(index);
    67. }
    68. public Car this[int index]
    69. {
    70. get
    71. {
    72. return this.carList[index];
    73. }
    74. set
    75. {
    76. this.carList[index] = value;
    77. }
    78. }
    79. public Car this[string carName]
    80. {
    81. get
    82. {
    83. return this.carList.Find((x) => x.Name == carName);
    84. }
    85. set
    86. {
    87. Car c = this.carList.Find((x) => x.Name == carName);
    88. int index = this.carList.IndexOf(c);
    89. this.carList[index] = value;
    90. }
    91. }
    92. }
    93. }


    Das ganze kann man dann auch noch schön mit <T> oder (Of T) generisch machen ;D

    Lg Radinator
    In general (across programming languages), a pointer is a number that represents a physical location in memory. A nullpointer is (almost always) one that points to 0, and is widely recognized as "not pointing to anything". Since systems have different amounts of supported memory, it doesn't always take the same number of bytes to hold that number, so we call a "native size integer" one that can hold a pointer on any particular system. - Sam Harwell

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Radinator“ ()

    Moin !

    habe das in allen Projekten (hoffentlich) umgestellt.

    Dafür steht jetzt in Zeile 30

    VB.NET-Quellcode

    1. _dctFeatures.Add(FeatureTabelle, 0)


    Die Anmerkung
    Fehler 36 "Option Strict On" lässt spätes Binden nicht zu. X:\VB_NET_2015\Projects\tappenbeckja\EBL.Bearbeiten.Siel\EBL.Bearbeiten.Siel\frm_BearbeitenSiel_Digitalisieren.vb 33 13 EBL.Bearbeiten.Siel


    Damit werden jetzt aber richtig Fehler gelistet - erkaufe ich mir damit nicht schlechteres ?

    Gruß Jan

    nein - verwechsel nicht Fehlermeldungen mit Fehlern.
    Die Fehlermeldungen sind deine Freunde.
    Ohne Fehlermeldungen kannst du die Fehler nicht beseitigen.


    Aber wie gesagt - du präsentierst uns iwie falschen Code.

    Denn solches habichjetzt ausprobiert:

    VB.NET-Quellcode

    1. Dim _dctFeatures As New Dictionary(Of String, Integer)
    3. Private Sub frm_BearbeitenSiel_Digitalisieren_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    4. Dim ListOfFeature() As String '= _Properties.GetFeatureTabellen(200)
    5. For Each FeatureTabelle As String In ListOfFeature
    6. _dctFeatures.Add(FeatureTabelle, 0)
    7. Next
    8. End Sub
    und kompiliert

    Bingo - da gab es jetzt eine Fehlermeldung und damit war die zweite behoben!

    Woher wußtest Du ? Grinzzzz !

    Habe dann aber noch eine Frage in Zusammenhang mit der Optionsumstellung.



    VB.NET-Quellcode

    1. Public Function GetFeatureTabellen(ByVal MaxIdx As Integer) As Array
    2. Dim CollectionTabelleName As String = "|"
    3. Dim TabelleName As String
    4. For Idx As Integer = 1 To MaxIdx
    5. TabelleName = GetManholeTabelle(Idx)
    6. CollectionTabelleName = CheckFeatureTabellenName(TabelleName, CollectionTabelleName)
    8. TabelleName = GetCoverTabelle(Idx)
    9. CollectionTabelleName = CheckFeatureTabellenName(TabelleName, CollectionTabelleName)
    11. TabelleName = GetDivElementTabelle(Idx)
    12. CollectionTabelleName = CheckFeatureTabellenName(TabelleName, CollectionTabelleName)
    14. Next
    16. Dim ListOfTabellen() As String = CollectionTabelleName.Split({"|"}, StringSplitOptions.RemoveEmptyEntries)
    17. Return ListOfTabellen
    18. End Function


    Die Einbindung der Funktion, mit dem Array als Rückgabe, habe ich mir aber so aus dem Web gesucht. Föllig falsch ?



    gruß Jan

    naja, hat einer gecodet, der keine Ahnung von Datentypen hat.

    Die Methode ist mit Rückgabe-Datentyp Array deklariert (zeile #1), aber was tatsächlich mit der Return-Anweisung zurückgegeben wird - welchen Datentyp hat das? (zeile #17).

    Hilfestellung: Video-Tut: Welchen Datentyp hat das Objekt?

    Dann deklarirere den Rückgabewert richtig, also entsprechend dem, was auch tatsächlich returnt wird, und auf einmal wird alles gut.

    (Du merkst: Sobald du Strict On machst, fängst du an, Datentypen zu unterscheiden, was zuvor für dich nur ein einziger Brei war.)