[es] - Import txt fajla u ListBox VB

Srdjan Prpa
Srdjan Prpa
Srbija - Pozega

Član broj: 120238
Poruke: 124
82.208.236.*

Sajt: www.f1caffe.info

Profil

^{01.07.2007. u 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?

^{01.07.2007. u 21:12}

Aleksandar Ružičić
Aleksandar Ružičić
Junior Developer, Spoonlabs d.o.o
20°27'46'' - 44°48'8''

SuperModerator
Član broj: 26939
Poruke: 2352
*.medianis.net.

Jabber: krckoorascic@gmail.com
Sajt: krcko.net

Profil

Re: Import txt fajla u ListBox VB

^{02.07.2007. u 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

Vivvo CMS

_{jQuery addict!}

^{02.07.2007. u 12:38}

Srdjan Prpa
Srdjan Prpa
Srbija - Pozega

Član broj: 120238
Poruke: 124
82.208.236.*

Sajt: www.f1caffe.info

Profil

Re: Import txt fajla u ListBox VB

^{02.07.2007. u 19:33}

Brate nece da radi :D jel mozes da mi napravis ti pa da mi okacis na forumu!

^{02.07.2007. u 19:33}

Srdjan Prpa
Srdjan Prpa
Srbija - Pozega

Član broj: 120238
Poruke: 124
82.208.236.*

Sajt: www.f1caffe.info

Profil

Re: Import txt fajla u ListBox VB

^{03.07.2007. u 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

^{03.07.2007. u 10:44}

Re: Import txt fajla u ListBox VB

^{03.07.2007. u 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

Vivvo CMS

_{jQuery addict!}

Prikačeni fajlovi

listbox save-load.zip - 2.07k

cs league.zip - 27.77k

^{03.07.2007. u 14:39}