Vise kolona u txt fajlu

[ shpiki @ 28.05.2005. 12:37 ] @

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!

[ Aleksandar Ružičić @ 28.05.2005. 15:22 ] @

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...

[ shpiki @ 28.05.2005. 20:19 ] @

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

[ Aleksandar Ružičić @ 28.05.2005. 22:01 ] @

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...

[ shpiki @ 29.05.2005. 16:37 ] @

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

[ Aleksandar Ružičić @ 29.05.2005. 18:50 ] @

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

[ shpiki @ 02.06.2005. 14:34 ] @

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??

[ Aleksandar Ružičić @ 03.06.2005. 16:57 ] @

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....

[ shpiki @ 04.06.2005. 00:59 ] @

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...