elitepvpers - Create Strings() from String()

elitepvpers (https://www.elitepvpers.com/forum/)

- .NET Languages (https://www.elitepvpers.com/forum/net-languages/)

- - Create Strings() from String() (https://www.elitepvpers.com/forum/net-languages/3693061-create-strings-string.html)

Create Strings() from String()

Hallo,
versuche gerade ein String Array in mehrere String Arrays zu zerlegen. Klingt ansich ja nicht so schwierig aber ich bekomms nicht gebacken.^^

Beispiel:
Dim StrArr0() as String //Enthält 1250304 Einträge

Aus diesem Array will ich jetzt so viele Arrays wie Möglich mit 100 Einträgen erstellen.

Klar ist mir natürlich das ich die Anzahl der Einträge von StrArr0() durch 100 dividieren muss um die Anzahl der Möglichen 100er Arrays zu bekommen. Anschließend das Ergebniss wieder mit 100 multiplizieren und von der Gesamt Anzahl der Einträge(StrArr0.Count) subtrahieren um die Größe des letzt möglichen Arrays zu bekommen.

Kleines Snippet zum Verständnis:

Code:

        //String Array mit vielen, vielen Einträgen

        Dim StrArr0() As String = File.ReadAllLines("C:\bla.txt")



        //Enthält die Anzahl von Max. Möglichen Arrays mit 100 Einträgen

        Dim _Count As Integer = StrArr0.Count / 100



        //Enthält die Anzahl der übrigen Einträge die nicht mehr für ein Array mit 100 Items reichen

        Dim _Left As Integer = StrArr0.Count - _Count * 100



       //Arrays erstellen

       //...

Bin mal gespannt ob jemand versteht was ich will :D

Die Eigenschaft um die Arraylänge zu bekommen heißt StrArr0.Length

Ich habe noch nicht ganz verstanden wo das Problem liegt.
Hast du ein Problem beim Ausrechnen beim Kopieren oder wo?

Habs hinbekommen! Hier die Lösung falls es wen interessiert:

Code:

    Private Sub ArrayToArrays()

        'Declare File & Load User Array

        Dim FilePath As String = "C:\Users\Daniel\Desktop\user2.txt"

        Dim UserArr() As String = File.ReadAllLines(FilePath)



        'Declare Entries per SubArray

        Dim SubArrCount As Integer = 10



        'Declare List for Sub Arrays

        Dim SubArrList As New List(Of String())



        'Create Sub Arrays & Add to List

        For i As Integer = 0 To UserArr.Count / SubArrCount - 1

            Dim SubArr() As String = UserArr.Skip(i * SubArrCount).Take(SubArrCount).ToArray

            SubArrList.Add(SubArr)

        Next

    End Sub

Test Input(Textfile mit 177 Lines):

Spoiler:

danon39
danone
danonek07
danoninho
danookie
danotomas
danou123
danou2486
danouf
danpile
danpr1ce
danpwnsu
danrella2000
danrella2009
danrem
danrivel
danrivell
danrocks
danrol
danryan
dans-k
dans0n
dans123
dans44
dans55
dans9999
dansag
dansbabe
danscape12
danscat
danscat2
danscotti
danseb93
dansexy
danshachar
danshen
danshen95
danshiel01
danskenhbg
dansmstd
dansmstd1
dansontang
dansoy
dansoy0909
dansoypogi
danspl
danssir
danssle
danstabouche
dansts
dansty
dansty11
dansty1994
dansty94
danstydata
danstyyy
danstyyyy
danswer01
danswer02
danswer03
danswer04
danswer05
dantamus
dantazya
dante
dante0008
dante002
dante018
dante09
dante1954
dante1992
dante2142
dante2592
dante46
dante55
dante56
dante564
dante66430
dante666
dante69
dante81
dante852
dante88
dante90
dante9200
dante9225
dante94
dante941
dante942
dante969
dante979
dante989
danteboy123
dantecastrus
dantedevil
dantedickmann
dantedieckmann
dantee
danteinferna
dantelopez
dantemarkvii
danuss2
danut
danuta
danutzu12
danuvelawliet
danvid5
danvid55
danvid555
danvon4
danwan2
danxp
danxsan
danxx93
dany
dany007
dany10
dany11222
dany11223
dany123
dany1243
dany15
dany16
dany1990
dantemaycry
dantemibu
dantemibu1
dantendo
dantendo1
dantendo11
dantendo111
dantendo12
danter99
danteredgrave
danterod
danterod01
dantes
dantes1love
dantestyles
dantetrusy
dantevergil93
dantexskate
dantezin
dantheman
dantz12
danu
danubius
danull
danup
danup1
danup2
danup3
danuss2
danut
danuta
danutzu12
danuvelawliet
danvid5
danvid55
danvid555
danvon4
danwan2
danxp
danxsan
danxx93
dany
dany007
dany10
dany11222
dany11223
dany123
dany1243
dany15
dany16
dany1990
lololol
random123

Output sind wie erwünscht 18 Arrays mit jeweils 10 Einträgen wobei das letzte logischerweise nur 7 Einträge hat!

Für was nutzt du denn sowas, wenn man fragen darf?

Quote:

Originally Posted by xGlumanda (Post 31769394)

Für was nutzt du denn sowas, wenn man fragen darf?

Ach, frag bitte nicht^^ xD

Sagen wir's mal so, ich machs mir gerne schwieriger als es im Endeffekt ist. Abgesehen davon fehlt mir leider sehr viel Grundlegendes Wissen über VB/C# da ich nur Hobbymäßig programmiere und (leider) nicht die Möglichkeit hab irgendwelche Kurse oder ähnliches zu machen.

Bei diesem Snippet bin ich im Endeffekt aber selbst ziemlich schnell draufgekommen das es bessere Lösungen für mein Vorhaben gibt.
Wollte es dann eigentlich nur noch "aus Prinzip" fertigstellen :D