tekens invoegen

[bn2vs]

Ik heb een string waar ik tussen elk sybmool een punt wil zetten.
Ik heb geprobeerd dit te doen met split en join (zie onder), maar dat lukte niet...
Hoe kan ik dit best doen?

dim stringZonderPunten as string = "abcdefg"
dim stringMetPunten as string = Join(Split(CStr(stringZonderPunten), ""), ".").ToString

 

[That Guy]

even uit het hoofd:

Dim ss As String
ss = "abcdefg"

Dim i As Long
Dim c As String
Dim nString As String


For i = 1 To Len(ss)

c = Mid(ss, i, 1)
nString = nString & "." & c

Next i


MsgBox nString

 

[bn2vs]

is er geen manier om het zonder lus op te lossen?

 

[That Guy]

zover ik weet niet.
wat is trouwens het probleem met een lus, het kan in 5 regels als je het te lang vind:

'neem aan dat sInput de input string is
Dim i As Long, c As String, nString As String
For i = 1 To Len(ss)
   c = Mid(ss, i, 1)
   nString = nString & "." & c
Next i
'output = nString

daarbij, als je het vaker gebruikt, kan je het makkelijk in een functie omschrijven