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
1
668
Vastaukset
- Bad Golfer
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
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Tänään pyörit ajatuksissa enemmän, kun erehdyin lukemaan palstaa
En saisi, silti toivon että sinä vielä palaat ja otetaan oikeasti selvää, hioituuko särmät ja sulaudummeko yhteen. Vuod225124- 254278
- 272441
- 342234
- 371988
- 151908
En ole koskaan kokenut
Ennen mitään tällaista rakastumista. Tiedän että kaipaan sinua varmaan loppu elämän. Toivottavasti ei tarvitsisi vain ka191587- 121521
Voi ei! Jari Sillanpää heitti keikan Helsingissä - Hämmästyttävä hetki lavalla...
Ex-tangokuningas on parhaillaan konserttikiertueella. Hän esiintyi Savoy teatterissa äitienpäivänä. Sillanpää jakoi kons211237Kerranki asiat oikein
Ilkka ja muut pienpuolueeet...teitte hyvän työn kun valitsitte pätevän henkilön virkaan eikä kepulle passelia!! Jatkakaa101164