[ Srdjan Prpa @ 01.07.2007. 21:12 ] @
Zanima me u VB kako mogu da ucitati txt file u ListBox, hocu klikom na dugme da mi se otvori open meni i ja da nadjem negde taj fajl txt i da mi se otvori u ListBox a pomocu 2 dugmeta da taj ListBox snimim al pod nekim drugim imenom kao opcija save?
[ Aleksandar Ružičić @ 02.07.2007. 12:38 ] @
za Open i Save As dijaloge koristi CommonDialog, a za ucitavanja i cuvanje mozes da koristis ovo:
Code:

Sub OpenListBox(lst As ListBox, Filename As String)
  
   Dim fn As Integer
   Dim s As String

   lst.Clear

   fn = FreeFile  
   Open Filename For Input As #fn
  
      While Not EOF(fn)
      
         Line Input #fn, s
   
         lst.AddItem s
      
      Wend

   Close #fn

End SUb

Sub SaveListBox(lst As ListBox, Filename As String)

  Dim fn As Integer
  Dim i As Long


  fn = FreeFile
  Open Filename FOr Output As #fn
    
    For i = 0 To lst.ListItems - 1

       Print #fn, lst.List(i)

    Next  

  Close #fn

End Sub
[ Srdjan Prpa @ 02.07.2007. 19:33 ] @
Brate nece da radi :D jel mozes da mi napravis ti pa da mi okacis na forumu!
[ Srdjan Prpa @ 03.07.2007. 10:44 ] @
E ovako nasao sam na internetu kako da ubacim u TextBox neki txt fajl, jel zna neko da ovaj kod prepravi pa da mogu da ubacim u ListBox neki txt fajl

Code:

Private Sub Image6_Click()
    Dim fnum As Integer
    On Error GoTo ex
    ComDia.CancelError = True
    ComDia.FileName = ""
    ComDia.InitDir = App.Path
    ComDia.Flags = cdlOFNFileMustExist
    ComDia.Filter = "Test Files (*.txt)|*.txt"
    ComDia.Flags = &H4 'cdlOFNHideReadOnly &H4 Hides the Read Only
    ComDia.ShowOpen
    fileOpen = ComDia.FileName
    fnum = FreeFile
    Open fileOpen For Input As fnum
    Text1.Text = Input$(LOF(fnum), #fnum)
    Close fnum
    Exit Sub
ex:     If Err.Number = 32755 Then Exit Sub 'user pressed cancel
    MsgBox "Error # " & Err.Number & " - " & Err.Description
End Sub
[ Aleksandar Ružičić @ 03.07.2007. 14:39 ] @
Citat:
Brate nece da radi :D jel mozes da mi napravis ti pa da mi okacis na forumu!

pa nece da radi samo od sebe :)
to su ti procedure koje treba da pozoves da bi sacuvao/ucitao podatke...

evo uradio sam ti demo pa ti pogledaj...


btw, d3d4 mi rece da igras counter sa njim a koliko mogu da vidim po tvojim porukama izgleda da su tebe zaduzili da im napravis program za generisanje rasporeda meceva :D
deda je od mene to trazio pre nekih mesecak dana i slozili smo se da mu uradim to po principu usluga za uslugu, ja sam uradio neki draft i poslao mu na mail (bez sourcea naravno :D) on je reko ok, samo zavrsi, a posto on nije ispunio svoj deo pogodbe tako ni ja nisam zavrsio program, pa evo okacio sam ti ovde (nedovrseni) source ako ti nesto pomogne...

pozdrav