✔ simples Array Problem, oder ?

[Yoah]

Hi @ all!

Ich habe da mal eine Array Frage!
Ich habe hier auch schon im Forum nach gesucht, aber etwas passendes
habe ich für mich nicht gefunden.

Also, das ist mein Code im Moment:

Dim x, i, J As Integer
Dim Words, ret As String
Dim arrWords() As String
Dim str As String
Dim zeichen
 x = 1
   For i = 1 To Len(strHTML) + 1
      If InStr(" ", Mid(strHTML, i, 1)) Or InStr(vbCrLf, Mid(strHTML, i, 1)) Then
         Words = Mid(strHTML, x, i - x)
         x = i
         Words = Trim(Words)
         ret = ""
         If ret <> "" Then
            Words = ret
            WordList.Add (Words) ' WordList ist eine Collection, global definiert
            ' hier soll dann der gleiche Eintrag in das arrWords() String Array machen
            ' hab schon so einiges ausprobiert, aber funktioniert hat nix
         End If
      End If
   Next

Ich hoffe, ihr könnt mir da weiter helfen, ThanX!

 

[Yoah]

Yo, hat sich erledigt,
hab da nämlich noch was gefunden!

Hier die Lösung:
Da ich ein dynamisches Array erzeugt habe, muss man es
vor jedem befüllen redimensionieren,
also, da wo der Kommentar ist, wird folgendes eingetragen, wobei k der Index
für das Array sein soll!

 ReDim Preserve arrWords(k)
 arrWords(k) = Words
 k = k + 1

cya