[es] - Import txt fajla u ListBox VB

highagain87
Srdjan Prpa
Srbija - Pozega

Član broj: 120238
Poruke: 85
82.208.236.*

Sajt: www.djus.net

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?

www.djus.net
www.e-nalozi.info

^{01.07.2007. u 21:12}

Aleksandar Ružičić
Developer, Haragei Creative Solutions
Beograd - Čačak

Moderator
Član broj: 26939
Poruke: 1592
*.medianis.net.

Jabber: krcko@haragei.com
Sajt: krcko.haragei.org

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

Always code as if the person who will maintain your code is a maniac serial killer that knows where you live.

^{02.07.2007. u 12:38}

highagain87
Srdjan Prpa
Srbija - Pozega

Član broj: 120238
Poruke: 85
82.208.236.*

Sajt: www.djus.net

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!

www.djus.net
www.e-nalozi.info

^{02.07.2007. u 19:33}

highagain87
Srdjan Prpa
Srbija - Pozega

Član broj: 120238
Poruke: 85
82.208.236.*

Sajt: www.djus.net

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

www.djus.net
www.e-nalozi.info

^{03.07.2007. u 10:44}

Aleksandar Ružičić
Developer, Haragei Creative Solutions
Beograd - Čačak

Moderator
Član broj: 26939
Poruke: 1592
*.medianis.net.

Jabber: krcko@haragei.com
Sajt: krcko.haragei.org

Profil

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

Always code as if the person who will maintain your code is a maniac serial killer that knows where you live.

Prikaceni fajlovi

listbox save-load.zip - 2.07k

cs league.zip - 27.77k

^{03.07.2007. u 14:39}