Keskustelu: Ohjelmointikysymykset: VB6: Desimaaliluvut

Option Explicit
Ongelmana on desimaaliluvun tallentaminen tiedostoon ja sen lataaminen uudelleen. Kun kirjoitan desimaaliluvun tiedostoon, se kirjoituu muodossa "1,1". Sitä lukiessa ohjelma luulee siinä olevan kaksi ykköstä eri riveillä. Jos tiedostossa on desimaaliluku muodossa "1.1", ohjelma ymmärtää sen desimaaliluvuksi. Mutta en onnistunut tallentamaan lukuja siihen muotoon. Tässä ongelma yksinkertaistetusti:

Dim a As Currency
Dim b As String
Sub poista()
a = 1.1
On Error Resume Next
Kill "hakemisto\poista.txt"
Open "hakemisto\poista.txt" For Append As #1
    Print #1, a
Close #1
Open "hakemisto\poista.txt" For Input As #1
    Input #1, b
Close #1
MsgBox b
End
End Sub

Komento Write tallentaa tiedostoon desimaalipisteen:

Write #1, a

Ja toisaalta Line Input lukee koko rivin (Input lukee pilkkuun asti)