Array füllen mit Wert aus einer Variabel, wie?

Computer: Software & Programmierung Visual Basic
1

Hi, alle zusammen!
:smile:
Ich möchte gerne ein Array mit Daten füllen, die ich in einer ini Datei gespeichert habe. Es wäre so etwas wie Z.B.:

_(employers.ini)
[team01]
Fritzen=„Anton“, „Arnolg“, „Ludwig“

Function getTeam()
dim pers
pers = System.PrivateProfileString(„employers.ini“, _
„team01“, „Fritzen“)
thisTeam = Array(pers)
MsgBox thisTeam (0) ’ sollte ‚Anton‘ zurückgeben…

End Function_
Das klappt aber nicht! Hat jemand von euch eine Idee, wie man es sonst lösen könnte?
Danke euch!
Gruss :smile:
Philipp

2

PrivateProfileString gibt keinen Array zurück, sondern einen String. Diesen musst du parsen.
thisTeam(0) = ParseString(pers,1)

Sub ParseString(byval strPerson as string, byval intPos as integer)
'String zurechtschneiden
End Sub

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

3

Hi!
Danke für die Antwort!
:smile:
Mein Problemchen ist, dass ich im Vorfeld nicht weiss, wie
gross mein Array sein wird…
D.h., sobald ich z.B. thisTeam(4) = ParseString (pers, 4)
macht es Krach.
Was muss ich machen?
Eine Schleife, alles Parsen und zwischenspeichern, und dann den Array definieren?

Den Array so gross machen {Array(1,2,3,4,5,6,7,8…)}, wie eine Anzahl Maximale (mögliche) Werte? oder kann ich es irgendwie dynamisch definieren, so was wie z.B. {Array(from 1 to zahlWerte)} ???

Fällt dir etwas ein?
:smile:
P.

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

4

Entweder verwendest Du anstelle eines Array’s eine Collection oder vergrösserst Deinen Array mit ReDim Preserve thisTeam(10)

5

super!
Vielen Dank für die Hilfe!
:smile: P.

6

wenn du einen string mit separatoren hast, brauchst du nur die funktion split(String,Separator). diese funktion schreibt gleich direkt in ein array.