Keskustelu: Ohjelmointikysymykset: VB6: Pilkut pisteiksi

Miten saan muutettua hinnan muotoon 3.5, jos käyttäjä syöttää tekstikentään esim. hinnan 3,5? MySQL ei nimittäin tunnista, jos numerossa on käytetty pilkkua erottamassa desimaaleja. Format(txtHinta, "##.##") ei toimi.

Ehkä voisit käyttää muuttujana ensin merkkijonoa, johon sitten tallentuu käyttäjän antama teksti. Tämän jälkeen voisit merkkijonosta helposti muuttaa pilkun pisteeksi ja sitten muuttaa merkkijonon numeeriseksi muuttujaksi Val-funktiolla.

Koeta korvata pilkku pisteellä korvausfunktioita käyttäen. En nyt muista oliko Basicin puolella sellainen kuin StrReplace? Tai ainakin jokin sen tyylinen. Toinen vaihtoehto on leikitellä Mid- ja InStr-funktioilla.

Tuo funktio on pelkkä Replace. Syntaksi on muistaakseni tämä:

Teksti = Replace(Teksti, KorvattavaOsa, Korvaaja)
'eli tässä tapauksessa
Teksti = Replace(Teksti, ",", ".")
Luku = Val(Teksti)

Jo rupesi toimimaan.
Kiitos jälleen kerran avusta! =)