Mehrdimensionales dynamisches Array oder vielleicht eine andere Lösung?

  • VBScript

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Mono.

    Mehrdimensionales dynamisches Array oder vielleicht eine andere Lösung?

    Hallo zusammen,

    ich habe ein kleines Problem habe eine CSV Liste mit Werten wie z.B.

    a;xa
    a;xb
    a;xc
    b;ya
    b;yb
    c;za
    ....

    Ich will diese Liste einlesen und in Abhändigkeit setzten, sprich:

    a;xa;xb;xc
    b;ya;yb
    c;za

    Meine Idee war ein mehrdimensionales dynamisches Array welches unterschiedlich gefüllt wird (a=4 Werte, b=3 Werte, c=2 Werte). Da sich die CSV-Liste immer wieder ändern kann, müsste es ein dynamisches Array sein. Die Werte in der CSV-Liste sind nicht sortiert, dies hätte zu folge ich müsste das Array erst einmal an der ersten position durchlaufen (y-Richtung), ob der Wert bereits existiert und dann an der Array-Position (x-Richtung) das Ende ermitteln um weitere Werte eintragen zu können. Dabei müsste überprüft werden, ob das Array ggfs. Redimensioniert werden müsste. All das würde eine lange Laufzeit verursachen.

    Was ich genau damit erzwecken möchte ist, dass in einer HTA.-Datei zwei Dropdown Listen erscheinen und sobald ein Wert in einem der beiden Felder ausgewählt wurde, werden im anderen Dropdown-Feld nur noch die dazugehörigen Werte angezeigt. Sprich: wird im ersten Feld "a" ausgewählt, dann ist im zweiten Feld nur noch "xa;xb und xc" auswälbar. Wurde dagegen im zweiten Feld als erstes "ya" gewählt, dann kann im ersten Feld nur noch "b" ausgewählt werden.

    Hat jemand eine Idee für die Umsetzung?

    Für eure Hilfe und Ideen danke ich schon mal

    Schöne Grüße

    ?( Christoph

    Christoph1971 schrieb:

    Hat jemand eine Idee für die Umsetzung?

    EDIT: sorry ist ja nur vbs ... "schön" gehts halt nur mit .Net ;)

    dictionaries und listen sind dynamisch ...

    Visual Basic-Quellcode

    1. Dim dic As New Dictionary(Of String, List(Of String))
    2. Dim dummycsv() As String = {"a:1", "b:2", "a:3"}
    3. Dim spl() As String
    5. For Each s As String In dummycsv
    6. spl = Split(s, ":")
    7. If Not dic.ContainsKey(spl(0)) Then
    8. dic.Add(spl(0), New List(Of String))
    9. End If
    10. dic(spl(0)).Add(spl(1))
    11. Next

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „picoflop“ ()

    Hi

    Ich würde dir auch das Dictionary empfehlen.
    Benötigst eigentlich auch kein Array im Dictionary Objekt.

    Ich würde es etwa so machen:

    Visual Basic-Quellcode

    1. Set d = CreateObject("Scripting.Dictionary")
    2. Str = Array("a;xa", "a;xb", "b;ya", "a;xc")
    3. For Each item In Str
    4. SplittedItem = Split(item,";")
    5. If d.exists(SplittedItem(0)) Then
    6. d.Item(SplittedItem(0)) = d.Item(SplittedItem(0)) & ";" & SplittedItem(1)
    7. Else
    8. d.add SplittedItem(0),SplittedItem(1)
    9. End If
    10. Next
    11. ke = d.keys
    12. it = d.items
    13. For a=0 To d.count-1
    14. WScript.Echo ke(a)
    15. WScript.Echo it(a)
    16. Next


    Nun kommts drauf an was du machen willst, du könntest die items(it) wieder splitten mit ";" als trennzeichen und hättest ein array aller zugehörigen werte.


    gruss mono
    Hi,

    Ich habe mal die List aus Vb.Net als Klasse für Vb Script geschrieben.
    Spoiler anzeigen

    Visual Basic-Quellcode

    1. Class List
    2. Public Property Get count
    3. count = interncount +1
    4. End Property
    6. Private InternCount
    7. Private Listarray
    9. Private Sub Class_Initialize()
    11. Interncount =-1
    12. Listarray = Array()
    13. End Sub
    15. Public Sub add(item)
    16. interncount = interncount +1
    18. ReDim Preserve Listarray(interncount)
    19. Listarray(interncount) = item
    21. End Sub
    23. Public Property Get item(index)
    24. If interncount >= index Then
    25. item = Listarray(index)
    26. Else
    27. Err.Raise 1,".item(" & index & ")","Error, index out of range: maximum index = " & interncount
    28. End If
    32. End Property
    34. Public Property Set item(index,val)
    35. If interncount >= index Then
    36. listarray(index) = val
    37. Else
    38. Err.Raise 1,".item(" & index & ")","Error, index out of range: maximum index = " & interncount
    39. End If
    40. End Property
    42. Function deleteAt(index)
    43. If index <= interncount Then
    44. For a=index To intercount-1
    45. listarray(a) = listarray(a+1)
    46. Next
    47. interncount = interncount -1
    49. ReDim Preserve listarray(interncount)
    50. Else
    51. Err.Raise 1,".item(" & index & ")","Error, index out of range: maximum index = " & interncount
    52. End If
    53. End Function
    55. Function sort
    56. If interncount > -1 Then
    57. Call QuickSort(listarray,0,interncount)
    58. else
    59. Err.Raise 2, ".sort", "Leere Liste kann nicht sortiert werden"
    60. end if
    61. End Function
    63. Private Function QuickSort( vntArray, intVon, intBis )
    66. Dim i, j
    67. Dim vntTestWert, intMitte, vntTemp
    69. If intVon < intBis Then
    70. intMitte = (intVon + intBis) \ 2
    71. vntTestWert = vntArray(intMitte)
    72. i = intVon
    73. j = intBis
    75. Do
    76. Do While UCase( vntArray(i) ) < Ucase( vntTestWert )
    78. i = i + 1
    79. Loop
    81. Do While UCase( vntArray(j) ) > Ucase( vntTestWert )
    83. j = j - 1
    84. Loop
    86. If i <= j Then
    87. vntTemp = vntArray(j)
    88. vntArray(j) = vntArray(i)
    89. vntArray(i) = vntTemp
    90. i = i + 1
    91. j = j - 1
    92. End If
    93. Loop Until i > j
    95. If j <= intMitte Then
    96. Call QuickSort(vntArray, intVon, j)
    97. Call QuickSort(vntArray, i, intBis)
    98. Else
    99. Call QuickSort(vntArray, i, intBis)
    100. Call QuickSort(vntArray, intVon, j)
    101. End If
    102. End If
    104. End Function
    106. End Class


    Aufruf:

    Visual Basic-Quellcode

    1. set MyList = New List
    2. 'Funktionen
    4. MyList.add("myStringItem")
    5. MyList.deleteAt(0)
    6. MyList.sort
    8. 'eigenschaften:
    10. Wscript.echo MyList.count
    11. Wscript.echo MyList.item(0)
    13. MyList.item(0) = "New StringItem"
    15. 'auf dein beispiel bezogen:
    17. Sub Main
    18. Set d = CreateObject("Scripting.Dictionary")
    19. Str = Array("a;a", "b;b", "b;a", "a;b")
    20. For Each item In Str
    21. SplittedItem = Split(item,";")
    22. If d.exists(SplittedItem(0)) Then
    23. d.Item(SplittedItem(0)).add(SplittedItem(1))
    24. Else
    25. Set Li = New List
    26. Li.add(SplittedItem(1))
    27. d.add SplittedItem(0), Li
    28. End If
    29. Next
    34. end sub


    Diese List könntest du als Item einem Dictionary Objekt zuweisen und dann die von Picoflop vorgeschlagene Methode benutzen.

    Gruss mono
    Das ist meine Signatur und sie wird wunderbar sein!