Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: [VB6] Listbox -> teksti -> tallennus

Sivun loppuun

Kulma [08.01.2006 13:47:18]

#

Miten voin tallentaa listboxissa olevan listan tekstinä ?

hunajavohveli [08.01.2006 13:53:25]

#

https://www.ohjelmointiputka.net/keskustelu/8543-list-tallenus-tiedotoon

Blaze [08.01.2006 13:54:38]

#

Käyt loopissa läpi sen listan ja keräät kaikki ne kohdat johonkin muuttujaan. Sitten avaat tiedoston ja kirjoitat sen muuttujan sinne.

nomic [08.01.2006 14:36:39]

#

Dim muuttuja As String

For i = 0 To List1.ListCount - 1
    muuttuja = muuttuja & vbCrLf & List1.List(i)
Next i

Tuosta on varmaan hyvä jatkaa

Kulma [08.01.2006 14:37:02]

#

Ei onnistu, menee virheeeseen.
Tollanen kansio on olemassa. VB sanoo tosta: "Bad filename or number". Mitä vikaa?

Private Sub ccXPButton2_Click()
Dim i As Integer
On Error GoTo virheee
Dim TallennusKansio As String
TallennusKansio = App.Path & "/Ajat" & nimi21.Caption & " " & Form3.rataboxi.Text & " " & Str(Date) & "" & timee.Caption
Open TallennusKansio For Output As #1
   For i = 0 To lista.ListCount - 1
      Print #1, lista.List(i)
   Next i
Close #1
virheee:
MsgBox "Tallennus ei onnistu.", vbCritical
End Sub

hunajavohveli [08.01.2006 14:39:02]

#

Mistä rivistä valittaa?

nomic [08.01.2006 14:44:04]

#

Uskoisin, että TallennusKansio -muuttujan sisältö ei täsmää siihen mihin sen pitäisi viitata.

Ennenkuin avaat tiedoston, pisteles: msgbox TallennusKansio
ja vertaa sitä siihen, mihin toi pitäisi viitata.

Esimerkiksi: miksi tämmöinen löytyy tuolta:

& "" &

:)

Kulma [08.01.2006 15:04:56]

#

lainaus:

Esimerkiksi: miksi tämmöinen löytyy tuolta:

& "" &

Toi kuuluu siihen tiedostonimeen.
Tiedoston nimi voi olla esim. "Jussi B-Rata 8.1.2006 14:59:32".
Ai niin nimessähän ei saa olla kaksoispisteitä?
Ja tosta puuttuu myös tiedostopääte näköjään. =P
Mä laitoin sen nyt näin, ei tule virhettä, mutta tiedostoa ei tule. Miksi?

Private Sub ccXPButton2_Click()
Dim i As Integer
Dim TallennusKansio As String
TallennusKansio = App.Path & "/Ajat" & nimi21.Caption & Form3.rataboxi.Text & Str(Date) & ".txt"
Open TallennusKansio For Output As #1
   For i = 0 To lista.ListCount - 1
      Print #1, lista.List(i)
   Next i
Close #1
End Sub

Merri [08.01.2006 16:02:24]

#

Sinulla on taas se kauttaviiva eikä kenoviivaa. "/" on aivan eri asia kuin "\".

Kulma [08.01.2006 16:29:03]

#

Merri kirjoitti:

Sinulla on taas se kauttaviiva eikä kenoviivaa. "/" on aivan eri asia kuin "\".

Vaihdoin sen ja silti ohjelma ei tee mitään. =(

EDIT
Nyt toimii:

 "/ajat" ->  "/ajat/"

=P


Sivun alkuun

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta