Keskustelu: Ohjelmointikysymykset: VB6: Tiedostosta lukeminen ja sinne kirjoittaminen

Hei

Tyhmä kysyy:
Saan luettua tiedostosta, mutta jostain syystä en saa kirjoitettua sinne muutakuin neliöitä. Onko vika muuttujan tyypissä vai olenko vain paska koodaaja??

Täsä koodi:
EI SAA NAURAA :)

Private Sub Command1_Click()
Dim teksti As String

Open "c:\temp\log.txt" For Random as #1
     teksti = Label4.Caption
     Put #1,, teksti
Close #1
MsgBox "Kirjoitettu tiedostoon."
End Sub

Jepjep. Muistutan että olen aloittelija joten vastaukset ei mielellään saa olla HIRVITTÄVÄN kryptisiä :)

Tuo Label4 siis sisältää kirjaimia ja numeroita.

Kait soveltuu sinunkin tarkoitukseesi FSO:
https://www.ohjelmointiputka.net/koodivinkit/23662-vb6-tiedoston-hallintaa-fso-lla

Kyllä tämmöisellä tosi simppelilläkin koodilla toimii. Ensin pitää tiedosto avata. Sitten kirjoittelet jotain, asetat I:n ykköseksi ja luet. Voit myös katsoa jollain tekstiedittorilla tiedostoa.

Option Explicit
Dim m As String, I As Integer

Private Sub cmdC_Click()
  Close
End Sub

Private Sub cmdO_Click()
  Open "Juttu" For Random As 1
  I = 1: txtI = I
End Sub

Private Sub cmdR_Click()
  Get #1, I, m
  Text2 = m
  I = I + 1: txtI = I
End Sub

Private Sub cmdW_Click()
  m = Text1
  Put #1, I, m
  I = I + 1: txtI = I
End Sub

Private Sub Form_Load()
  I = 1
End Sub

Private Sub txtI_Change()
  I = Val(txtI)
End Sub

Rock rock. Yllä oleva homma auttoi. kiitti taas.