Keskustelu: Ohjelmointikysymykset: VB6 - FSO ja rivien erottelu

Nyt tuli pieni ongelma.
Olen tehnyt tallennuksen FSO:ta käyttäen, mutta nyt pitäisi saada monirivisen textboxin teksti tallennettua siten, että jokaisen rivin eteen laitettaisiin merkki #
Eli tekstiboxissa oleva teksti:

Ekarivi
Tokarivi
Kolmasrivi
jne, jne

Tallentuisi:
#Ekarivi
#Tokarivi
#Kolmasrivi
jne, jne

Olisiko vinkkejä kuinka tuo tehtäisiin?

Jaa merkkijonon rivit taulukkoon, lisää jokaisen rivin alkuun risuaita, ja muodosta taulukosta jälleen merkkijono. Split- ja Join-funktioista on nyt todellista hyötyä. Tiedostoon tallentamista FileSystemObjectin avulla ei tässä koodinpätkässä ole - sen varmaan osaat itsekin.

Dim teksti As String, rivit() As String
'haetaan tekstikentän sisältö muuttujaan
teksti = Text1.Text
'jaetaan teksti taulukkoon rivinvaihtojen kohdalta
rivit = Split(teksti, vbCrLf)
'käydään jokainen rivi läpi
For i = 0 To UBound(rivit)
    'lisätään rivien alkuun risuaita
    rivit(i) = "#" & rivit(i)
Next
'yhdistetään taulukko takaisin merkkijonoksi
teksti = Join(rivit, vbCrLf)

Jeps. noin sen uumoilinkin ja itse kun koitin tuota tehdä. niin en hokannut tuota vbCrLf erottelua.
FSO menee kyllä, joten enköhän tuosta pääse taas jatkamaan.