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?
Import txt fajla u ListBox VB
Zaključano
Zakačeno
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
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
Brate nece da radi :D jel mozes da mi napravis ti pa da mi okacis na forumu!
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
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
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