Miten pystyn (pystynkö) hajottamaan sanan erillisiksi kirjaimiksi? Eli pitäisi saada jokaisin kirjaimen jälkeen lisättyä jotain omaa tekstiä. Mainittakoon vielä, että sana vaihtuu, eli kirjain määrä ym. vaihtelee.
split?
perna
1713
0Äänestä
Muut lukivat myös
Odottaa vastausta
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 1
Vanhimmat
Vaikka näin:
strJokuSana = "hajotetaan"
strMuutettuSana = ""
For x = 1 To Len(strJokuSana)
strKirjain = Mid(strJokuSana,x,1)
strMuutettuSana = strMuutettuSana & strKirjain
'Tähän kohtaan voi laittaa sen väliin tulevan
'oman tekstin generoinnin
strMuutettuSana = strMuutettuSana & strOmaTeksti
Next