|
Wenn Sie einen String in ein Array zerlegen wollen, so dass jedes Element dieses Arrays genau ein Zeichen des Strings enthält, können Sie dies natürlich in einer einfachen Schleife erledigen:
Dim Text As String
Dim l As Long
Dim nChars() As String
Text = "abcdef"
ReDim nChars(0 To Len(Text) - 1)
For l = 1 To Len(Text)
nChars(l - 1) = Mid$(Text, l, 1)
Next 'l
Sie könnten jedoch in Visual Basic 6 auch die Split-Funktion verwenden - wenn ein Trenner zwischen den Zeichen verfügbar wäre. Was nicht ist, kann aber werden: Wird der gegebene String mit der Funktion StrConv in einen Unicode-String umgesetzt, befindet sich zwischen jedem Byte ein Nullzeichen (Ascii 0), as wir als Trenner verwenden können. Da das letzte Byte des Unicode-Strings auch ein Nullzeichen ist und Split daraus ein letztes leeres Element ableiten würde, schneiden wir es zuvor vom Unicode-String ab.
nChars = _
Split(Left$(StrConv(Text, vbUnicode), Len(Text) * 2 - 1), _
Chr$(0))
Zum vereinfachten Aufruf in eine praktische Funktion verpackt, sieht das so aus:
Public Function StrToArray(Text As String) As String()
StrToArray = _
Split(Left$(StrConv(Text, vbUnicode), Len(Text) * 2 - 1), _
Chr$(0))
End Function
|