Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Import txt fajla u ListBox VB

[es] :: Visual Basic 6 :: Import txt fajla u ListBox VB

[ Pregleda: 2970 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Srdjan Prpa
Senior FullStack developer
Cloud Horizon
Beograd, Srbija

Član broj: 120238
Poruke: 131
82.208.236.*



+1 Profil

icon Import txt fajla u ListBox VB01.07.2007. u 21:12 - pre 173 meseci
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?
 
Odgovor na temu

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

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


+44 Profil

icon Re: Import txt fajla u ListBox VB02.07.2007. u 12:38 - pre 173 meseci
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

 
Odgovor na temu

Srdjan Prpa
Senior FullStack developer
Cloud Horizon
Beograd, Srbija

Član broj: 120238
Poruke: 131
82.208.236.*



+1 Profil

icon Re: Import txt fajla u ListBox VB02.07.2007. u 19:33 - pre 173 meseci
Brate nece da radi :D jel mozes da mi napravis ti pa da mi okacis na forumu!
 
Odgovor na temu

Srdjan Prpa
Senior FullStack developer
Cloud Horizon
Beograd, Srbija

Član broj: 120238
Poruke: 131
82.208.236.*



+1 Profil

icon Re: Import txt fajla u ListBox VB03.07.2007. u 10:44 - pre 173 meseci
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
 
Odgovor na temu

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

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


+44 Profil

icon Re: Import txt fajla u ListBox VB03.07.2007. u 14:39 - pre 173 meseci
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
Prikačeni fajlovi
 
Odgovor na temu

[es] :: Visual Basic 6 :: Import txt fajla u ListBox VB

[ Pregleda: 2970 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.