String() alle möglichkeiten Durchlaufen

  • VB.NET
  • .NET 5–6

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von HenryV.

    String() alle möglichkeiten Durchlaufen

    Servus,

    ich stehe gerade bisschen (mal wieder) auf dem Schlauch.

    ich habe folgendes vor:
    Ich habe einen einfachen String. Der ist bspw. so aufgebaut: "Hauptkategorie, Hauptkategorie > Unterkategorie 1, Hauptkategorie > Unterkategorie 1 > Unterkategorie 2"

    Diese muss ich in 2 DataSets laden wie folgt:
    Dataset1: wc_terms
    ----------------------------
    term_id|Name|Slug|term_group
    ---------------------------
    1| Hauptkategorie | hauptkategorie|0
    2| Unterkategorie 1 | hauptkategorieunterkategorie1 | 0
    3 | Unterkategorie 2 | hauptkategorieunterkategorie1unterkategorie2 | 0

    Dataset2: wp_term_relationships 'hier wird die abhängigkeit zugeordnet
    --------------------------------
    objectid | term_id | ter_group
    1 | 1 | 0
    1| 2 | 0
    2 | 2 | 0
    1 | 3 | 0
    2 | 3 | 0
    3 | 3 |0

    und hier setzt irgendwie mein Hirn aus. Ich splitte den String erstmal nach den Komma. So und ab hier weiß ich nicht mehr wie ich weiter machen soll.

    ich versteh nur Bahnhof.
    Wie soll aus deinem einen BeispielString die untigen zwei Tabellen bei rauskommen, mit 3 bzw 7 Datensätzen?

    Das zweite ist, es ist keine gute Idee, das in zwei Datasets zu verteilen.
    Die Daten sind untereinander abhänggig, dann sollen sie auch in ein gemeinsames Dataset (und weitere Tabellen wohl noch dazu)

    Hier der Code, der aus deinem String die zwei Tabellen ausgibt. (Die Reihenfolge der zweiten Tabelle konnte ich so nicht reproduzieren)

    VB.NET-Quellcode

    1. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    3. Dim Txt As String = "Hauptkategorie, Hauptkategorie > Unterkategorie 1, Hauptkategorie > Unterkategorie 1 > Unterkategorie 2"
    4. Dim TxtArray As String() = Txt.Split(","c)
    5. Dim term_ids As New List(Of Integer)
    6. Dim i As Integer
    8. 'wc_terms
    9. 'term_id|Name|Slug|term_group
    10. For Each t As String In TxtArray
    11. i += 1
    12. Dim NameArray As String() = t.Split(">"c)
    13. Dim Name As String = NameArray.Last.Trim
    14. Dim Slug As String = t.Replace(" "c, "").Replace(">"c, "").ToLower
    15. Debug.Print($"{i} | {Name} | {Slug} | 0")
    16. term_ids.Add(i)
    17. Next
    19. 'wp_term_relationships
    20. 'objectid | term_id | ter_group
    21. Dim z As Integer = 0
    22. For x As Integer = 0 To term_ids.Count - 1
    23. For y As Integer = z To term_ids.Count - 1
    24. Debug.Print($"{term_ids(x)} | {term_ids(y)} | 0")
    25. Next
    26. z += 1
    27. Next
    29. End Sub

Facebook
Telefonspende