txtfil som database

[Blaster2k]

Jeg har en listbox, i denne vil jeg vise en liste av ting som står i en txtfil (hver linje = et eget listitem), så vil jeg også ha en knapp som gjør at jeg kan slette den merkede linjen fra listen (og tekstfilen).

 

Noe hjelp å få?

Endret 1. juli 2005 av Blaster2k

[trrunde]

Du bruker open kommando for å lese inn filen:

dim tekst as string
open filnavn for input as #1
do
    line input #1, tekst
    list1.additem(tekst)
loop until eof(1)
close #1

Endret 1. juli 2005 av trrunde

[Blaster2k]

Takker og bukker. men hvordan kan man få slettet den merkede linja fra tekstfilen?

[trrunde]

Koden for å fjerne et item:

List1.RemoveItem (List1.ListIndex)

 

Koden for å lagre etter du har slettet noe:

dim y as integer
open filnavn for output as #1
for y = 0 to list1.listcount-1
   print #1, list1.list(x)
next y
close #1

Endret 1. juli 2005 av trrunde

[Blaster2k]

Koden for å lagre etter du har slettet noe:

dim y as integer
open filnavn for output as #1
for y = 0 to list1.listcount-1
   print #1, list1.list(x)
next y
close #1

Hehe, den der lagrer det øverste listeelementet like mange ganger som listcount.

Endret 1. juli 2005 av Blaster2k

[trrunde]

skal være print #1, list1.list(Y) ikke x slik som jeg skrev

[trrunde]

Virker det nå?

[Blaster2k]

Jepp, takker =)