Vise kolona u txt fajlu

Vise kolona u txt fajlu 28.05.2005. u 13:37 · pre 260 meseci #1

Imam jedan txt fajl (spisak.txt) i kako bih mogao da namestim da on izgleda ovako (hocu da to napravim sa tri TextBox-a od kojih ce jedan biti txtRedBr, drugi txtilm, atreci txtStatus):

Code:

Br.    Film        Disk uzeo
*************************
001    Mumija        Dejan Mijic
002    Hoodlum        <Disk Prisutan>
003    Closer        <Disk Prisutan>

Hvala!

Potpis

There are only 10 types of people in the world:
those who understand binary, and those who don't.

Re: Vise kolona u txt fajlu 28.05.2005. u 16:22 · pre 260 meseci #2

jel mora bas tako da izgleda? :D
bolje bi ti bilo ovako (lakse)

e sad, za ovakav format (sve sto ne pocinje sa tackom nece biti uzeto u obzir) ucitavanje bi ti bilo ovako (ubaci u jedan modul):

Code:

Public Type DataEntry
  Broj  As Long 'a zasta ce ti redni broj???
  Film  As String
  Status As String
End Type

Public Disk() As DataEntry

Public Sub Ucitaj()
Dim ff As Integer
Dim i As Integer
Dim s As String
Dim a() As String

ReDim Disk(0 To 0) As DataEntry

ff = FreeFile
Open "C:\spisak.txt" For Input As #ff
  Do While Not EOF(ff)
   Line Input #ff, s
   If Left$(s, 1) = "." Then
    a = Split(Mid$(s, 2), "|")
    i = Ubound(Disk) + 1
    ReDim Preserve Disk(0 To i)
    Disk(i).Broj = CInt(a(0))
    Disk(i).Film = a(1)
    Disk(i).Status = a(2)
   End If
  Loop
Close #ff
End Sub

i sad ti Disk() array sadrzi sve podatke iz txt fajla...

Potpis

rafforum.rs - Forum Računarskog Fakulteta

Re: Vise kolona u txt fajlu 28.05.2005. u 21:19 · pre 260 meseci #3

ovo je sve ok i bilo bi super, samo da ja nisam početnik u ovom velikom svetu VB-a...
Možeš li da mi napišeš konkretan primer, kako ovo sve da radi? Znači, u jedan txtbox da se upijuju brojevi, u jedan nazivi filma a u treći status... i još ako možeš, kako da se podaci iz fajla prikazuju u listboxu?

znam kako otvoriti txt fajl u listboxu, samo da li ce se i tu videti

Code:

.001|Hoodlum|Mijic Dejan

Potpis

There are only 10 types of people in the world:
those who understand binary, and those who don't.

Re: Vise kolona u txt fajlu 28.05.2005. u 23:01 · pre 260 meseci #4

Evo bio sam slobodan malopre pa sam ti uradio jedan mali primer (u uploadu) pogledaj, pa reci sta ti nije jasno...

p.s. sad se setih da nisam uradio Remove...

Potpis

rafforum.rs - Forum Računarskog Fakulteta

diskovi.zip2.65k

Re: Vise kolona u txt fajlu 29.05.2005. u 17:37 · pre 260 meseci #5

e care, ovo je ok i radi sve!!! HVALA TI!

:-D
Sad mi treba jos nesto... [Remove] mozes li mi napisati kod kojim cu moci da izbrisem stavku iz listbox i iz spisak.txt fajla?
Znaci, odabirom stavke iz liste i klikom na Delete, da se ta stavka izbrise i iz liste iz iz spisak.txt
Za brisanje iz ListBoxa ide:

Code:

Private Sub cmdDelete_Click()
List1.RemoveItem List1.ListIndex
End Sub

Potpis

There are only 10 types of people in the world:
those who understand binary, and those who don't.

Re: Vise kolona u txt fajlu 29.05.2005. u 19:50 · pre 260 meseci #6

probaj ovako:

Code:

Private Sub cmdDelete_Click()
Dim i As INteger, k As Integer

i=List1.ListIndex

for k=i To Ubound(Disk)
Disk(k) = Disk(k+1)
Next

Redim Preserve Disk(0 To Ubound(Disk) - 1)

List1.RemoveItem i

End Sub

naravno da bi napravio promene na spisak.txt moras da pozoves 'Sacuvaj' metodu

p.s. ovaj kod je napisan u zurbi i inije isproban, ali bi trebao da radi sasvim ok

Potpis

rafforum.rs - Forum Računarskog Fakulteta

Re: Vise kolona u txt fajlu 02.06.2005. u 15:34 · pre 260 meseci #7

Problem se javlja kod Remove-a!!!

Code:

Subscript out of range!

ali je osnova odlična!!! Hvala ti!
Sad me interesuje još, kako da dodam u spisak.txt još jedan red (kolonu) pre kolone >status< da u njoj bude putanja do slike (image) i da tu sliku prilikom klika na odredjenu stavku u listi ucitam u Image1??

Potpis

There are only 10 types of people in the world:
those who understand binary, and those who don't.

Re: Vise kolona u txt fajlu 03.06.2005. u 17:57 · pre 260 meseci #8

pa da :D izvini nisam primetio (rekoh da sam pisao na brzinu) stavi:

Code:

i=List1.ListIndex-1

promeni DataType u ovo:

Code:

Public Type DataEntry
  Broj  As Long 'a zasta ce ti redni broj???
  Film  As String
  Status As String
  Slika As String
End Type

i onda ispravi ovo:

Code:

Public Sub Ucitaj()
Dim ff As Integer
Dim i As Integer
Dim s As String
Dim a() As String

ReDim Disk(0 To 0) As DataEntry

ff = FreeFile
Open "C:\spisak.txt" For Input As #ff
  Do While Not EOF(ff)
   Line Input #ff, s
   If Left$(s, 1) = "." Then
    a = Split(Mid$(s, 2), "|")
    i = Ubound(Disk) + 1
    ReDim Preserve Disk(0 To i)
    Disk(i).Broj = CInt(a(0))
    Disk(i).Film = a(1)
    Disk(i).Status = a(2)
    Disk(i).Slika = a(3)
   End If
  Loop
Close #ff
End Sub

a sto se tice ucitavanja slike, koristi

Code:

Image.Picture = LoadPicture(Disk(i).Slika)

al predhodno proveri da li fajl Disk(i).Slika postoji....

Potpis

rafforum.rs - Forum Računarskog Fakulteta

Re: Vise kolona u txt fajlu 04.06.2005. u 01:59 · pre 260 meseci #9

Opet mi prijavljuje grešku prilikom brisanja!!!!!!!
Greška se javlja u

Code:
Private Sub mnuDelete_Click()
Dim i As Integer
Dim k As Integer
Dim pitanje As String

pitanje = MsgBox("Sigurni ste da ?elite da izbri?ete" & vbNewLine & txtFilm.Caption & " ?", vbYesNo, "Obri?i " & txtFilm.Caption)
If pitanje = vbYes Then

i = lstFilmovi.ListIndex - 1

For k = i To UBound(Disk)
Disk(k) = Disk(k + 1) '<-------- OVDE JAVLJA GREŠKU!!!
Next

ReDim Preserve Disk(0 To UBound(Disk) - 1)

lstFilmovi.RemoveItem i

Sacuvaj
End If
End Sub

I još jedno pitanje... ako namestim da mi List1.Style = 1 (checkbox), kako da film koji nije prisutan bude čekiran???
Znači, ako prikaže <Disk Prisutan>, onda ništa (fajl nije čekiran), a ako prikaže recimo <Disk kod Dejana>, onda da taj film bude čekiran...

Potpis

There are only 10 types of people in the world:
those who understand binary, and those who don't.

Forum kao aplikacija na telefonu

Srodne teme