Keskustelu: Ohjelmointikysymykset: VBA: Merkin lisääminen tekstiin tietyin välein

Hei,

miten saa tehtyä koodin, joka lisää esimerkiksi joka viidennen merkin jälkeen tekstijonoon pilkun?

Threadissa

http://www.mrexcel.com/forum/excel-questions/73389-insert-space-into-text-value.html

On tehty funktio, joka lisää pisteen joka merkin jälkeen

Function adddots(r As String) As String
With CreateObject("vbscript.regexp")
    .Pattern = "(.)"
    .Global = True
    adddots = .Replace(r, "$1.")
    adddots = Left(adddots, Len(adddots) - 1)
End With
End Function

Mutta tämän muokkaaminen ei onnistunut oikein "maalaisjärjellä", mikä tietysti meikäläisen tapauksessa on varsin vähäistä:)

Mikä neuvoksi?

Mod. lisäsi kooditagit!

Enpä ole tuttuja kyseisen kielen kanssa, mutta eikös tuommoinen menisi ihan toistorakenteella, tyyliin

paikka_merkkijonossa = 0

While paikka_merkkijonossa < merkkijonon_pituus
	merkkijono.lisaaMerkki ( paikka_merkkijonossa, ',' )
	paikka_merkkijonossa += 5
End While

Moi Kseno!

täältä löytyy valmis funktiokuvaus ja täältä löytyy sama regexp-funktiolla