Wort splitten!

Knusperkeks · 26. August 2006

Ich will gerne in VB6 nen wort splitten, in die einzelnen Buchstaben!

Nur leider weiß ich nicht wie das geht!

Mit der Split(text, "") geht ja auch nicht!

BSP:

text = "hallo du"

und ausgeben sollte er mir nen array der so aussieht!

Array("h","a","l","l","o"," ","d", "u")

Knusperkeks

Anzeige

Hardwarehunger · 26. August 2006

5min work:

Code:

Public Function Split(Wort As String)
 Dim a As Long
 Dim xArray() As String
 On Error Resume Next
 
 ReDim xArray(0)
 
 For a = 1 To Len(Wort)
 xArray(UBound(xArray)) = Mid(Wort, a, 1)
 ReDim Preserve xArray(LBound(xArray) To UBound(xArray) + 1)
 Next a
End Function

razor90 · 26. August 2006

maln bissl verbessert(Rückgabe wär sinnvoll und ein nicht reservierter name)

Code:

Public Function SplitAll(sText As String) As String()
 Dim a As Long
 Dim aText() As String
 On Error Resume Next
 
 ReDim aText(Len(sText) - 1)
 
 For a = 1 To Len(Wort)
 aText(a - 1) = Mid(sText, a, 1)
 Next a
 
 SplitAll = aText
 
End Function

mfg r90

Knusperkeks · 27. August 2006

ABer so wie ich das verstanden habe machtder mir ja keinen array daraus oder?

Ich guck mal ob ich das selber hin bekomme mit dem array!

Knusperkeks

Hardwarehunger · 27. August 2006

du weist wohl noch nicht viel über arrays hmm?

http://www.vbarchiv.net/faq/strings_array.php

edit:

Code:

Public Sub SplitAll(Wort As String, xArray() as String)
 Dim a As Long
 On Error Resume Next
 
 ReDim xArray(0)
 
 For a = 1 To Len(Wort)
 xArray(UBound(xArray)) = Mid(Wort, a, 1)
 ReDim Preserve xArray(LBound(xArray) To UBound(xArray) + 1)
 Next a
End Sub

razor90 · 27. August 2006

Code:

Dim bla() as String

Bla = SplitAll("Hallo")

MsgBox Bla(2) 'Bla(2)="l"

Also bei mri funzt mein Code perfekt....

Nützliche Suchen

Wort splitten!

Videos zum Themenbereich