Keskustelu: Ohjelmointikysymykset: VB6: Merkin korvaus toisella

Jos on yksi muuttuja esim. tässä tapauksessa se on nimi.. Jos kirjoittaa siihen inputboxilla vaikka petteri petturi nii miten saa sellai et toi välilyönti korvautuu pisteel? Eli siitä pitäis tulla petteri.petturi!

Voit käyttää replacea:

Muuttuja = Replace$(Muuttuja, " ", ".")

Eli ensimmäinen on se missä muutetaan, sitten se mitä muutetaan ja lopuksi miksi muutetaan.

nimi = Replace(nimi, " ", ".")

Edit. nah! Merri kerkesi ensiksi! ;)

MERRI! Mihin muuten tuota "DOLLARI"($) - merkkiä niiku tarvitaan, ku se toimii sen kaa ja ilman sitä.

Dollarin kanssa Replace palauttaa merkkijonon variantin sijasta (nopeampi).

Muutin otsikkoa vähän paremmaksi.

Miten saa left/right/len/mid -funktioiden ja toistorakenteen avulla: LAADI OHJELMA JOKA SALAKIRJOITTAA VIESTISI SITEN, ETTÄ SE KÄÄNTÄÄ SYÖTTÄMÄSI MERKKIJONON TAKAAPÄIN ALKAEN. (ELI EI SAA NIIKU KÄYTTÄÄ StrReverse)

Rajotetaas vähän noita ISOJA kirjaimia. ;) Tuollainen toteutetaan vaikkapa niin, että luodaan silmukka, joka käy läpi arvot ykkösestä merkkijonon pituuteen. Silmukan sisällä lasketaan indeksi päinvastaisessa järjestyksessä (merkkijonon pituus miinus silmukan senhetkinen indeksi), poimitaan Mid$-funktiolla merkki tuosta kohdasta ja lisätään se toiseen merkkijonoon, johon muodostuu siten alkuperäinen teksti väärinpäin.

Millä silmukalla se olis helpompi tehdä "for next" vai "do while"... sori oon nuubi :D

For ... Next lienee helpompi tuossa, koska merkkijonon pituus on kokoajan tiedossa. Do ... Loop sopii taas sellaiseen tilanteeseen, jossa ei olla aivan varmoja koska käsiteltävä tieto loppuu tai jos käsiteltävä tieto muuttuu kokoajan esimerkiksi pituudeltaan. Mid$ voidaan sijoittaa myös siihen, mihin asetetaan, esim.:

Mid$(Muuttuja, 5, 1) = "S"

Muuttaa viidennen merkin kirjaimeksi S. Mid$ on lähinnä poikkeustapaus tällaisessa käyttäytymisessä; en ainakaan muista mitään toista komentoa, joka voi käyttäytyä noin.

Tämä tosin ei ole välttämätön juuri tuohon esimerkkiin, mutta voi olla hyvä tietää.

Miten siis saa tehtyä sellai, että joku vaik syöttää jotain tekstii siihen inputboxiin ja sitten kun painaa ok, niin se näyttää sen kirjoitetun tekstin takaperin(eli vaik ohjelmointi --> itniomlejho.. oon kyl aika nuubi :D

Tee kopio string-muuttujasta, looppaa jokaisen merkin lävitse käänteisessä järjestyksessä, kopioi toisen stringin kohtaan. Voit tehdä vielä yhden apumuuttujan, joka pitää lukua siitä, monesko kirjain on menossa siinä muuttujassa johon kopioidaan merkkejä.

Ja lisäksi: tässä vaiheessa kovin moni ei tahdo lähteä valmista koodia antamaan, joten joudut itse miettimään miten toteutat asian koodina.

Kiits kaikille! :D

Public Function Form_load()
Teksti="moicca"
For i = 1 to len(Teksti) step -1
Palautus = Palautus & mid(Teksti,i,1)
Next i
End Sub

Näin yksinkertaisesti sen voi hoitaa for mid ja len funktioilla

Mitä tarkoittaa "Val" tossa Val(kuus + kol) ?

"Returns the numbers contained in a string as a numeric value of appropriate type."

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbenlr98/html/vafctval.asp