Splitten aaneengesloten string VBA

[JEC.]

Het komt vaak voor dat je tekst wilt splitten. Als er scheidingstekens zijn is het heel gemakkelijk.
Als er geen scheidingstekens zijn, wordt meestal methode 1 gebruikt of een dergelijke methode waar de letters in een array gelezen worden.

Er is echter een directe methode. Vast bruikbaar voor VBA liefhebbers

Algemene methode:

Sub jec()
 a = "ABCDEFG"
 For i = 1 To Len(a)
   sp = sp & " " & Mid(a, i, 1)
 Next
 sp = Split(Mid(sp, 2))
End Sub

Directe methode:

Sub jecc()
sp = StrConv("ABCDEFG", vbUnicode)
sp = Split(Left(sp, Len(sp) - 1), Chr(0))
End Sub

 

[snb]

Inderdaad.:thumb:

Sub M_snb()
  sn = Split(Trim(Format("ABCDEFG", Replace(Space(7), " ", "@ "))))
End Sub

Sub M_snb()
  sn = Split(Trim(Replace(StrConv("ABCDEFG", 64), Chr(0), " ")))
End Sub

 

[JEC.]

Ook mooi die eerste! Waar Format zich in positieve zin onderscheidt van de werkbladfunctie TEKST

 

[snb]

Waar dat bij VBA trim en application.trim in het nadeel van VBA trim uitvalt.

 

[JEC.]

Inderdaad.. alsook bij Mod. Al is dat een geval apart